Code Snippet "VBA Excel"

Erstes Blatt einer Arbeitsmappe aktivieren

Sub Auf1WorksheetSpringen()
  If Worksheets.Count > 0 Then
    Worksheets(1).Activate
  Else
    MsgBox "Kein Tabellenblatt in dieser Mappe vorhanden!"
  End If
End Sub