Hallo! Dann hier mal eine andere Variante. Da ich die Datei nicht sehe und nicht genau weiß, was wie in LIstbox eingelesen wird, kann ich nur vermuten. Also der Code schaut, ob in Listbox 1 was ausgwählt wurde. wenn nicht da trägt er so wie vorher unten drunter ein. Wurde was ausgewählt, nimmt er die Zeile des Eintrages -1 (das wäre dann die Stelle ab 1 - Listbox zählt ab 0 beginnen) und trägt dort ein. Da ich listbox nicht kenne, müsste du da mal anpassen, wie sich der Wert für die Zeile ergibt. VG
Private Sub ComboBox1_Click()
Dim zeile As Long
zeile = Tabelle2.Cells(Rows.Count, 6).End(xlUp).Row
zeile = zeile + 1
'wenn in der Listbox was ausgewählt wurde, dann dort eintragen sonst unten drunter
If ListBox1.ListIndex = -1 Then
'nix ausgewählt also unten drunter
Tabelle2.Cells(zeile, 6) = UserForm1.ComboBox1.Value
Else
'zeile durch ListBox1.ListIndex -1 ersetzen, da es bei 0 losgeht oder halt einen anderen Wert
Tabelle2.Cells(ListBox1.ListIndex - 1, 6) = UserForm1.ComboBox1.Value
End If
End Sub
|