Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
384to388
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
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Mehrfachauswahl im Listenfeld

Mehrfachauswahl im Listenfeld
18.02.2004 09:55:05
Brit N.
Hallo Leute!
Ich habe mal eine Frage zum mehrzeiligen Listenfeld!
Wie ich es fülle und wie ich bei Einfachauswahl die Daten auswerte, weiß ich nun so langsam.
Aber wie kann ich bei Mehrfachauswahl die Daten in ein anderes Tabellenblatt übermitteln.
z.B.
Ich habe im Listenfeld mehrere Zeilen mit Zahlen(Punktnummer, Koordinaten)
Ich möchte nun den Punkt Nr.2 und den Punkt Nr.6 auslesen.
In Zeile 2 kommte Punkt Nr.2 und in Zeile 3 kommte Punkt Nr.6!
Kann mir da jemand helfen?
Danke!
Brit

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrfachauswahl im Listenfeld
18.02.2004 13:41:45
Dieter Klemke
Hallo Brit,
du kannst das z.B. so machen:

Private Sub btnOK_Click()
Dim i As Long
Dim ws As Worksheet
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets(1)
zeile = 2
With Me.ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then
ws.Cells(zeile, 1) = .List(i)
zeile = zeile + 1
End If
Next i
End With
Me.Hide
End Sub

MfG
Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige