Zeile aus LB und TB löschen
17.03.2019 11:08:33
Guesa
mit folgendem Code lese ich die Daten in eine LB1 ein und schreibe Sie in TB2
mit doppelklick möchte ich den Eintrag in LB1 und die Zeile im TB1 löschen, habe hier schon geguckt aber nichts passendes gefunden, schon mal ein Danke für eure Hilfe
Gruß, Guesa
Private Sub ListBox1_Click()
Sheets("Tabelle2").Range("B4").Value = ListBox1.List(ListBox1.ListIndex, 0)
Sheets("Tabelle2").Range("D6").Value = ListBox1.List(ListBox1.ListIndex, 1)
Sheets("Tabelle2").Range("G9").Value = ListBox1.List(ListBox1.ListIndex, 2)
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.ColumnCount = 3
.ColumnWidths = "20pt; 20pt; 20pt"
.List = Sheets("Tabelle1").Range("A2:C10").Value
End With
End Sub