Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
376to380
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
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm mit Listbox

UserForm mit Listbox
05.02.2004 17: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
Anzeige
AW: UserForm mit Listbox
09.02.2004 02: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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige