Das Leben ist nicht immer ein Wunschkonzert… Aber man kann eine andere Playlist wählen!

VBA-Schulung. Wir erstellen eine Datei mit mehreren Tabellenblättern:

Wir schreiben ein kleines Makro, das uns bei der Blattsuche hilft:

Option Explicit
Option Compare Text

Sub BlattSuche()
Dim strBlattname As String
Dim i As Integer

strBlattname = InputBox("Bitte geben Sie den gesuchten Blattnamen ein!")

For i = 1 To ActiveWorkbook.Sheets.Count
    If ActiveWorkbook.Sheets(i).Name = strBlattname Then
        ActiveWorkbook.Sheets(i).Activate
        Exit Sub
    End If
Next

MsgBox "Das gesuchte Blatt " & strBlattname & " wurde nicht gefunden."

End Sub

Bei einer Teilnehmerin funktioniert das nicht:

Die Activate-Methode des Worksheet-Objektes kann nicht ausgeführt werden.

Ich werde stutzig, als ich das Menüband aufklappe:

Da entdecke ich, dass sie noch beim Schreiben eines Tabellenblattnamens ist: