|
Hallo,
Erst Heute Zeit gefunden von Ihnen bereitgestellte Codes einsetzen. Vielen Dank
Dabei kommt eine Fehler wenn ich mit F5 Ausführen will
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "50"
Select Case sWert Fehler Meldung: Variable nicht Definiert
Case "STERNE": ListBox1.List = Array("0", "1", "2", "3")
Case "%"
Dim i&, str(0 To 100)
For i = LBound(str) To UBound(str)
ListBox1.AddItem i
Next
ListBox1.AddItem "", 0
End Select
End Sub
|