VBA ListBox

Question

Hello again!

in einer Excel Datei habe ich eine Userform mit einer Listbox und
drei Commanbuttons erstellt. Die Listbox wird schon wie gewünscht
mehrspaltig gefüllt. Der eine Button schließt die Userform
(funktioniert schon).

Nun zu den zwei Buttons die noch nicht funktionieren:

1) In der 6. Spalte der Listbox stehen Zahlen die Zeilennummern auf
einem Worksheet (inputForm) repräsentieren. Wenn jemand auf den
Button klickt, sollen die ausgewählten Zahlen aus Spalte 6
nacheinander in eine Variable gespeichert werden (ich benötige die
Zahlen für eine Range-Angabe damit ich bestimmte Zellenbereiche
löschen kann) und anschließend die ausgewählten Zeilen aus der
Listbox entfernt werden.

2) Beim Klick auf diesen Button soll überprüft werden ob EINE Zeile
ausgewählt wurde (Keine Zeile führt zu MsgBox "Bitte Auswahl
treffen", mehr als eine führt zu MsgBox "Nur eine Zeile auswählen").
Wurde tatsächlich eine Zeile ausgewählt, muss die Zahl aus Spalte
6 der Listbox in eine Zelle (Cells(25,46)) geschrieben werden.

Ich hoffe das ist verständlich und das Ihr mir weiterhelfen könnt.

Gruß, critchm

Answer 1

Hallo,

zu Button 2:

Den Wert bekomme ich schon in die Zelle mit:

Worksheets(inputForm).Cells(25, 46).Value =
ChooseBackup2.ListBox1.List(ListBox1.ListIndex, 5)

Aber vorher muss ja noch eine Prüfung erfolgen wie viele Zeilen in der
Listbox1 ausgewählt sind.

Gruß, critchm

Answer 2

Hallo,

das und dadurch auch den ganzen Rest habe ich nun auch geschafft.

Um zu prüfen wie viele Zeilen in der Listbox ausgewählt sind habe
nutze ich folgendes:

Dim k As Integer
k = 0
For i = 0 To ChooseBackup2.ListBox1.ListCount - 1
If ChooseBackup2.ListBox1.Selected(i) = True Then k = k + 1
Next i

Bin jetzt also fertig. Mir hilft es schon immer wenn ich das was ich will
hier aufschreibe und Schrittweise abarbeite.

Gruß, critchm