Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tebellenblatt suchen!

Forumthread: Tebellenblatt suchen!

Tebellenblatt suchen!
24.02.2015 11: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 11: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 13:05:04
NoPa
super danke.
Gruß
Norbert

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

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige