Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm mit Listbox

Forumthread: 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
Anzeige

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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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