Anzeige
Archiv - Navigation
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
836to840
836to840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Listbox mehrspaltig Einträge hinzufügen
17.01.2007 23:23:39
Tinky
Hallo!
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Da fehlt additem ot
17.01.2007 23:31:33
Lars
ot
AW: Da fehlt additem ot
17.01.2007 23:37:56
Tinky
Hä kappier ich nicht
Was kapierst du nicht? oT
17.01.2007 23:48:56
Lars
oT
AW: Listbox mehrspaltig Einträge hinzufügen
17.01.2007 23:39:47
Josef
Hallo Tinky,
das geht so.
Private Sub CommandButton1_Click()
    If Me.name6030 = "" Then
        MsgBox "Sie müssen einen Namen angeben!", vbCritical
        Me.name6030.SetFocus
    Else
        With .ListBox1
            .AddItem Now
            .List(.ListCount - 1, 1) = Me.CommandButton1.Caption
            .List(.ListCount - 1, 2) = Me.name6030
        End With
        With ThisWorkbook.Sheets("Abfrage")
            .Range("A2") = Me.CommandButton1.Caption
            .Range("B2") = DateAdd("ww", 1, Now)
        End With
    End If
End Sub

Gruß Sepp
Anzeige
AW: Listbox mehrspaltig Einträge hinzufügen
17.01.2007 23:43:17
Tinky
Hallo Josef
Vielen Dank jetzt gehts!
Gruß Tinky

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige