Ich wurde Gestern wunderbar geholfen bei meinem Listbox Problem und jetzt komme ich halt wieder ins schleudern.
Gestern ging ich halt davon aus dass der Wert immer True sein wird.
Wenn aber ein bestimmter Auwahl nicht gewählt wird, muss auf das Arbeitsblatt "Data" ein Bereich gelöscht werden.
(Siehe Makrobeispiel: welches nicht funktioniert!
Else
If sel1 = False Then
Sheets("Data").Range("B6:BE37").Select
Selection.ClearContents)
Private Sub CommandButton1_Click()
sel1 = ListBox1.Selected(0) = True
sel1 = ListBox1.Selected(0) = False
sel2 = ListBox1.Selected(1)
sel3 = ListBox1.Selected(2)
sel4 = ListBox1.Selected(3)
If sel1 = True Then Call HPdataCollect
Else
If sel1 = False Then
Sheets("Data").Range("B6:BE37").Select
Selection.ClearContents
Ich hoffe Ihr könnt mich wieder helfen?
Grüsse
Robert