02.08.2022, 08:08
Servus,
Hier erstmal mein Makro:
Das Makro geht Zeile für Zeile für Zeile ab
ich möchte aber dass wenn in der Listbox das Item ausgewählt wird dass die Logik auch überprüft in welcher Zeile sich im Tabellenblatt der Eintrag befindet:
Bsp:
Listbox:
Spalte1 Spalte2
1 a
3 c <------ das ausgewählt
Tabellenblatt:
Spalte1 Spalte2
1 a
2 b
3 c <------ diese Zeile in Textbox das eintragen
4 d
Hoffe das ist verständlich
Hier erstmal mein Makro:
Code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim LR As Long
Dim LC As Long
Dim i As Long
Dim KC As Variant
Dim DS As String
DS = "b"
LR = Tabelle4.Cells(Rows.Count, 1).End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Kundendaten.TB_Name = Tabelle4.Cells(i + 2, 4)
Kundendaten.TB_Telefon = Tabelle4.Cells(i + 2, 5)
Kundendaten.TB_Mobil = Tabelle4.Cells(i + 2, 6)
Kundendaten.TB_Email = Tabelle4.Cells(i + 2, 7)
Kundendaten.TB_Funktion = Tabelle4.Cells(i + 2, 8)
End If
End If
Next i
End SubDas Makro geht Zeile für Zeile für Zeile ab
ich möchte aber dass wenn in der Listbox das Item ausgewählt wird dass die Logik auch überprüft in welcher Zeile sich im Tabellenblatt der Eintrag befindet:
Bsp:
Listbox:
Spalte1 Spalte2
1 a
3 c <------ das ausgewählt
Tabellenblatt:
Spalte1 Spalte2
1 a
2 b
3 c <------ diese Zeile in Textbox das eintragen
4 d
Hoffe das ist verständlich