Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Tebellenblatt suchen!

Forumthread: Tebellenblatt suchen!

Tebellenblatt suchen!
24.02.2015 12:20:42
NoPa
Hallo,
ich möchte mit VBA prüfen ob, in meiner Mappe eine bestimmtes Tabellenblatt vorhanden ist!
z.B. „Tabelle1“
Wenn „ja“ soll es gelöscht werden wenn nein soll nichts passieren!
Danke für die Hilfe.
Gruß
Norbert

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tebellenblatt suchen!
24.02.2015 12:27:34
Klaus
Hi Norbert,
hier der Code für ein Blatt namens Tabelle1
Sub BlattXLoeschen()
Const BlattName As String = "Tabelle1"
Application.DisplayAlerts = False
If WksSheetExists(BlattName) Then Sheets(BlattName).Delete
Application.DisplayAlerts = True
End Sub
Function WksSheetExists(sSheet As String) As Boolean
Dim wks As Object
On Error Resume Next
Set wks = Sheets(sSheet)
If Not wks Is Nothing Then
WksSheetExists = True
End If
On Error GoTo 0
End Function
Grüße,
Klaus M.vdT.

Anzeige
AW: Tebellenblatt suchen!
24.02.2015 14:05:04
NoPa
super danke.
Gruß
Norbert

Danke für die Rückmeldung! owT.
24.02.2015 14:05:30
Klaus
.

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige