Prüft ob ein Excel-Blatt vorhanden ist

Sprache / Programm: Excel ab Version 95

Beschreibung

Das Programm prüft, ob in Excel ein Blatt mit dem gesuchten Namen bereits vorhanden ist. Dabei durchsucht das Blatt alle Blätter, also auch Modulblätter (auch im alten Excel-4 Makrocode, bis Excel 95 waren das eigene Modulblätter) und Dialogblätter (in Excel 95 bauten die Dialoge auf einer eigenen Forms-Bibliothek auf).

VBA-Quelltext

Public Function BlattVorhanden(BlattName As String) As Boolean
Dim Blatt As Object
Application.ScreenUpdating = False
For Each Blatt In ActiveWorkbook.Sheets ' Namen aller Tabellen prüfen
If Blatt.Name = BlattName Then
BlattVorhanden = True
Exit Function
End If
Next Blatt
BlattVorhanden = False
End Function

Argumente der Funktion/Prozedur

BlattName: Name des zu suchenden Tabellenblattes