Feedback: GoTo und MsgBox
15.11.2021 16:13:53
Eisi
der Code funktioniert, ist der aber auch logisch aufgebaut?
Danke für das Feedback.
VG Eisi :-)
<pre>Private Sub cmd_GeheZuDatenstammQuelle_Click()
On Error GoTo Hinweis
Application.Goto tbl_DatenstammQuelle.Range("A1"), Scroll:=True
Exit Sub
Hinweis:
MsgBox "Deine Sheets zur Wartung sind noch ausgeblendet." & vbLf & vbLf & "Wähle den grünen Button:" _
& "**Wartung einblenden**", 0 + vbInformation, "Update-Routine"
Resume Next
End Sub</pre>