Vba: so überprüfen sie, ob ein blatt vorhanden ist (mit beispiel)

Sie können die folgende Funktion in VBA erstellen, um zu überprüfen, ob ein bestimmtes Blatt in der aktuell aktiven Excel-Arbeitsmappe vorhanden ist:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

Diese Funktion gibt TRUE oder FALSE zurück, um anzugeben, ob ein bestimmter Blattname in der aktuell aktiven Excel-Arbeitsmappe vorhanden ist oder nicht.

Beachten Sie, dass diese Funktion lediglich prüft, ob die Indexnummer eines Blattes größer als 0 ist.

Wenn das Blatt vorhanden ist, hat die Blattindexnummer mindestens den Wert 1 , sodass die Funktion den Wert TRUE zurückgibt.

Das folgende Beispiel zeigt, wie Sie diese Funktion in der Praxis nutzen können.

Beispiel: Verwenden Sie VBA, um zu prüfen, ob das Blatt vorhanden ist

Angenommen, wir haben die folgende Excel-Arbeitsmappe mit drei Blättern:

Wir können in VBA die folgende Funktion erstellen, um zu prüfen, ob ein bestimmter Blattname in dieser Arbeitsmappe vorhanden ist:

 Function sheetExists(some_sheet As String) As Boolean

On Error Resume Next
sheetExists = (ActiveWorkbook.Sheets(some_sheet).Index > 0)

End Function

Anschließend können wir die folgende Formel in Zelle A1 des aktuell aktiven Blatts eingeben, um zu prüfen, ob der Blattname „Teams“ in dieser Arbeitsmappe vorhanden ist:

 =sheetExists("Teams")

Der folgende Screenshot zeigt, wie diese Formel in der Praxis angewendet wird:

Die Funktion gibt TRUE zurück, da dieser Blattname in der Arbeitsmappe vorhanden ist.

Beachten Sie außerdem, dass bei dieser Funktion die Groß-/Kleinschreibung nicht beachtet wird.

Wenn wir beispielsweise prüfen, ob der Blattname „teams“ existiert, würde die Funktion auch TRUE zurückgeben:

Nehmen wir jedoch an, wir prüfen, ob der Blattname „coaches“ existiert:

Die Funktion gibt FALSE zurück, da dieser Blattname in der Arbeitsmappe nicht vorhanden ist.

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So zählen Sie die Anzahl der Blätter in einer Arbeitsmappe
VBA: So extrahieren Sie Daten aus einer anderen Arbeitsmappe
VBA: So fügen Sie mehrere Zeilen ein