Option Explicit
Private Sub UserForm_Initialize()
Dim i As Integer
Label1.Caption = "Bitte die Einträge der Reihenfolge von oben nach unten auswählen. " _
& vbCrLf & "Ansonsten wir die Auswahl nicht korrekt verarbeitet!"
Sheets("Tabelle1").Select
Range("A4").Select
ListBox1.RowSource = "A1:A7"
End Sub
Private Sub ButOK_Click()
Dim i, n, nNew As Integer
Dim diagrammarray As Variant
nNew = 0
For i = 0 To ListBox1.ListIndex
If ListBox1.Selected(i) Then nNew = nNew + 1
Next i
MsgBox (nNew)
If nNew <> 0 Then ReDim diagrammarray(nNew - 1)
n = 0
For i = 0 To ListBox1.ListIndex
If ListBox1.Selected(i) Then
diagrammarray(n) = ListBox1.List(i)
n = n + 1
End If
Next i
If nNew <> 0 Then
For i = 0 To UBound(diagrammarray)
MsgBox (diagrammarray(i))
Next i
End If
Unload Me
End Sub