Code im Optionsbutton. Geht Verbesserung?
28.11.2016 18:17:09
Dieter(Drummer)
in der Beispieldatei (anbei) ist eine Userform mit Optionsbutton1. Der Entsprechende Code funktioniert wie gewünscht und einwandfrei. Kann der Code verbessert/gekürzt werden? Hier der Code und die Datei:
Private Sub OptionButton1_Click()
'Application.ScreenUpdating = False
If MsgBox("Datei öffnen?", vbYesNo + vbDefaultButton2 + 32, "Datei öffnen") = vbYes Then
Label1.Visible = True 'Label1 wird eingeblendet/aktiviert "grüner Haken"
Workbooks.Open Filename:= _
"C:\G...\M...\Fxyz.xlsm"
OptionButton1.Value = False 'Button1, Aktivierung wird ausgeschaltet
Else
Unload Me 'Beendet die aktive Userform
End If
'Application.ScreenUpdating = true
End Sub
https://www.herber.de/bbs/user/109766.xlsm
Gruß, Dieter(Drummer)