Guten Morgen allerseits,
es ist mal wieder soweit. Gerade habe ich in den Tisch gebissen ;-)
Mit folgendem Makro lese ich derzeit die in einer ListBox
mit Multiselect ausgewählten Einträge in einen Zellenbereich
aus.
Alles was mir fehlt, ist eine MsgBox, falls der Anwender in
der ListBox nichts angeklickt hat.
Klappt aber nicht. Dachte mir schon mit On error go to usw.
abzufangen. Das kappt dann aber so gut, dass er mir prinzipiell
einen MsgBox auswirft, egal ob in der ListBox ausgewählt wurde,
oder nicht.
Wer könnte meinen Gedankenknoten lösen, damit ich heute nicht aus
dem Fenster springen muß ?
Dankeschön
R.Schmitt
With ListBox2
For n = 0 To .ListCount - 1
If .Selected(n) Then
i = i + 1
ReDim Preserve arr(i)
arr(i) = .List(n)
End If
Next
End With
Range("af4:af100" & UBound(arr) + 1) = Application.Transpose(arr)
End If