Löschen eines Excel-Blattes

Sprache / Programm: Excel ab Version 95

Beschreibung

Die Funktion löscht Arbeitsblätter (Tabellen, Diagramme, Dialoge und Modulblätter in Excel 95) in Excel. Das Programm benötigt das Programm 'BlattVorhanden' um festzustellen, ob das zu löschende Blatt überhaupt vorhanden ist, damit kein Laufzeitfehler auftritt.

VBA-Quelltext

Public Function BlattLöschen(BlattName As String) As Boolean
Dim Warnung As Boolean
Application.ScreenUpdating = False
BlattLöschen = (ActiveWorkbook.Sheets.Count > 1) And Not ActiveWorkbook.ProtectStructure
If BlattLöschen And BlattVorhanden(BlattName) Then
Warnung = Application.DisplayAlerts
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(BlattName).Delete
Application.DisplayAlerts = Warnung
End If
End Function

Argumente der Funktion/Prozedur

Hinweis

Diese Funktion verwendet die Funktion BlattVorhanden