ich verwende eine Listbox aus der ich bestimmte Einträge kopieren möchte:
Wenn in Spalte 4 der Eintrag "*gekauft*" steht, kopiere die jeweilie Zeile komplett (also auch die Spalten 1,2 und 3.)
Füge dann alle vier Einträge in Tabelle2 cells(x,5) untereinander ein. Such vorher jeweils die letzte beschriebene Zelle in Spalte E.
Meine VBA Kenntnisse reichen dafür leider nicht aus.
HIer ist schon mal ein (falscher?) Ansatz:
dim i as Long With ListBox3
For i = 0 To Me!ListBox3.ListCount - 1
For Each Item In ListBox3.List(i, 6)
If ListBox3.List(i, 6) = "*gekauft*" Then
....
End If
Next
End With
End Sub
Danke Chris