Listbox mehrspaltig Einträge hinzufügen
17.01.2007 23:23:39
Tinky
Ich habe eine Listbox mit drei Spalten jetzt möchte ich über den Button einträge hinzufügen. So wie es mit einzelenen mit AddItem geht.
Mit diesem Code überschreibt es mir immer den aktuellen Eintrag.
Private Sub CommandButton1_Click()
If Me.name6030 = "" Then
MsgBox "Sie müssen einen Namen angeben!", vbCritical
Me.name6030.SetFocus
Else
Me.ListBox1.List(List, 0) = Now
Me.ListBox1.List(List, 1) = Me.CommandButton1.Caption
Me.ListBox1.List(List, 2) = Me.name6030
ThisWorkbook.Sheets("Abfrage").Range("A2") = Me.CommandButton1.Caption
ThisWorkbook.Sheets("Abfrage").Range("B2") = DateAdd("ww", 1, Now)
End If
End Sub
Gruß Tinky
Anzeige