UserForm mit Listbox

Forumthread: UserForm mit Listbox
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: UserForm mit Listbox

05.02.2004 18:28:52

Manfred

Hi und guten Tag
Ich habe eine UserForm mit einer Listbox und einem Textfeld das das aktuelle Datum enthält. Wie kann man den selektierten Datensatz aus der Listbox und das aktuelle Datum in ein anderes Tabellenblatt einfügen z.B. Spalte1, Spalte2, Spalte3 (aus Listbox), Datum (aus Textfeld).
Diese vier Werte sollen an eine bestimmte Stelle in dem neuen Tabellenblatt (Kassenbuch)erscheinen und jede weitere Selektion aus der Listbox (Tabellenblatt 1)soll unter die eingetragenen Werte (Tabellenblatt 2)aufgelistet werden.
Danke vielmals

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm mit Listbox

09.02.2004 03:00:25

Dieter Klemke

AW: UserForm mit Listbox

09.02.2004 03:00:25

Dieter Klemke

Hallo Manfred,
du kannst das z.B so machen (geschrieben wird nach Blatt 2):


Private Sub ListBox1_Click()
Dim ind As Long
Dim spalte As Long
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets(2)
zeile = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1
ind = ListBox1.ListIndex
For spalte = 1 To 3
ws.Cells(zeile, spalte) = ListBox1.List(ind, spalte - 1)
Next spalte
ws.Cells(zeile, 4) = txtDatum
End Sub

MfG
Dieter

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!