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
|