Moin Community,

ich habe ein Programm, in dem ich Teile (25 Werte in Spalte A) auswählen kann. Im zweiten Schritt wähle ich dann die zum jeweiligen Teil gehörende Stelle an dem das Teil eine beschädigung hat (Werte in Matrix 25x19). 

Nun will ich dass mein Programm den Wert den ich in der Matrix auswähle erkennt und mir darauf hin einen dazugehörigen Wert ausgibt der in Zeile 3 (C3:T3 in meinem Fall)  steht. Zb.  ich wähle zb Welle A1 : Schaden links F1 dann wäre der Wert den er ausgeben sollte F3. 

Dies soll aber für die ganze Matrix gecheckt werden, da die Schäden auch zu mehreren Ausgaben kommen. 

Unten mal angehängt wie mein Programm bis jz läuft. Und jz Fehlt mir quasi mein Part Private Sub Bereich Change()

Danke im Vorraus

Flo

Option Explicit

Private Sub UserForm_Initialize()
'1. Box

Worksheets("Pulver vs Anwendung").Activate

Bauteil.List = Range("B7:B25").Value

UserForm1.Bauteil.Text = "-Bauteil wählen-"

End Sub

Private Sub Bauteil_Change()

Bereich.Clear

'Bereich freischalten
Bereich.Enabled = True

Dim Zeile As Long
Dim tbl As ListObject
Dim i As Long


Set tbl = Tabelle4.ListObjects("Anwendung")


'Schleife über alle Zeilen der Tabellen

For Zeile = 7 To tbl.DataBodyRange.Rows.Count
    If Bauteil.Value = tbl.DataBodyRange(Zeile, 1).Value Then
    
      
     For i = 2 To tbl.DataBodyRange.Columns.Count
     Bereich.AddItem tbl.DataBodyRange(Zeile, i)
     Next i
        
End If

Next Zeile

End Sub