loadpicture mit code aufheben
21.02.2005 09:50:43
roland_k
ich habe zwei optionbutton1 und optionbutton3 in einem tabellenblatt
mit folgendem code lade ich in den button ein icon
wie kann ich das icon wieder entfernen wenn die bedingung nicht zutrifft ?
zeile = Cells(58, 2).End(xlUp).Row
For i = 11 To 45 Step 2
If zeile = i Then OptionButton1.Picture = LoadPicture("C:\icon\stopp.ico")
If zeile = i Then OptionButton1.Locked = True
Next i
For i = 12 To 45 Step 2
If zeile = i Then OptionButton2.Picture = LoadPicture("C:\icon\stopp.ico")
If zeile = i Then OptionButton2.Locked = False
Next i
wer kann mir da helfen bin mal wieder am ende mitmeiner weissheit
danke im voraus
gruss roland_k