Hyperlink
16.10.2019 11:03:16
ludicla
mit folgendem Code:
Private Sub CommandButton1_Click()
If ComboBox1.Value = "PV-Leistung" Then
MsgBox "Die Datei Erzeugungsanlagen wird geöffnet"
Range("A1").Activate
ElseIf ComboBox1.Value = "Bayernwerkrechnung" Then
MsgBox "Die Datei zu Ermittlung und Abrechnung der vorgelagerten Netzkosten wird geöffnet"
Range("a2").Activate
End If
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Wenn ich den Hyperlink in der Zelle aktviere starte Auto_open korrekt.
Wenn ich aber über den Commandbutton anwähle wird zwar die Datei geöffnet, aber
Auto_open reagiert nicht.
Was mach ich falschm ?
Schon mal im voraus Danke.
Gruss Ludicla.
Anzeige