inputbox samlignes med en celle i multidim array

VBA?
Excel - da du nævner "arket"?

Indsættes i Ark1

Dim xlsRæk
Dim arr(3, 5)
Sub testArr()
    opbygArr
    xlsRæk = 1
   
    tegn = InputBox("Indtast et tegn")
    søgIArr tegn
End Sub
Private Sub søgIArr(tegn)
    For r = 0 To 2
        For k = 0 To 4
            If tegn = arr(r, k) Then
                overførRække r
            End If
        Next k
    Next r
End Sub
Private Sub overførRække(r)
    For k = 1 To 5
        Cells(xlsRæk, k) = arr(r, k - 1)
    Next k
    xlsRæk = xlsRæk + 1
End Sub
Private Sub opbygArr()
    arr(0, 0) = "g"
    arr(0, 1) = "s"
    arr(0, 2) = "x"
    arr(0, 3) = "w"
    arr(0, 4) = "2"
   
    arr(1, 0) = "x"
    arr(1, 1) = "z"
    arr(1, 2) = "h"
    arr(1, 3) = "u"
    arr(1, 4) = "2"
   
    arr(2, 0) = "t"
    arr(2, 1) = "y"
    arr(2, 2) = "k"
    arr(2, 3) = "m"
    arr(2, 4) = "2"
End Sub

Du misforstår mig - Det er et eksempel med "bokstaverne" - Har løst problemet :-)