ich verzweifle nun schon seit Stunden, googlen hat mich leider nicht weiter gebracht...
Ich möchte gerne eine Messagebox ausgeben und dort die zweite Spalte meiner Listbox ausgeben. Bisher klappt nur die erste Spalte...
Private Sub CommandButton1_Click()
Dim I As Integer
Dim Schaeden As String
For I = 1 To ListBox1.ListCount - 1
If ListBox1.Selected(I) = True Then
If Schaeden = "" Then
Schaeden = ListBox1.List(I)
Else
Schaeden = Schaeden & ", " & ListBox1.List(I)
End If
End If
Next
MsgBox Schaeden
Unload UserForm1
End Sub
Was mache ich falsch?Lieben Gruß
Marc