Feststellen ob Tabellenblatt vorhanden

Forumthread: Feststellen ob Tabellenblatt vorhanden
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Feststellen ob Tabellenblatt vorhanden

22.08.2005 10:49:44

volker

Hei und guten Morgen,
ich habe ein größeres Projekt, in dem ich per Makro feststellen möchte, ob ein Tabellenblatt mit einem bestimmten Namen vorhanden ist.
Ist dies der Fall soll das Makro dieses Tabellenblatt löschen, da es in der Folge wieder neu angelegt wird.
Gibt es einen einfachen Weg dieses Blatt zu identifizieren?
So ungefähr:
If Sheets(aktblatt).exists Then Delete Sheets(aktblatt)
Danke
Volker

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Feststellen ob Tabellenblatt vorhanden

22.08.2005 11:04:56

Eule
AW: Feststellen ob Tabellenblatt vorhanden

22.08.2005 11:23:14

volker

AW: Feststellen ob Tabellenblatt vorhanden

22.08.2005 11:04:56

Eule

Hi Volker
probiers mal damit:


Function BlattExistiert _
(strTestname As String, _
strMappenname As String) _
As Boolean
Dim objMappe As Workbook
Dim objBlatt As Worksheet
BlattExistiert = False
Set objMappe = Application.Workbooks(strMappenname)
For Each objBlatt In objMappe.Worksheets
If objBlatt.Name = strTestname Then
BlattExistiert = True
Exit For
End If
Next objBlatt
End Function

Gruss Eule

AW: Feststellen ob Tabellenblatt vorhanden

22.08.2005 11:23:14

volker

Dank Dir Eule,
eine sehr hilfreiche Funktion,
THX,
Volker