Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tabellenblatt vorhanden??

Forumthread: Tabellenblatt vorhanden??

Tabellenblatt vorhanden??
24.02.2004 11:47:06
Marco
Hallo,
wie kann ich per VBA am besten feststellen, ob ein Tabellenblatt besteht oder nicht?
Vielleicht kann mir jemand einen Tip geben. Vielen Dank schon mal.
Gruß Marco
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt vorhanden??
24.02.2004 11:52:52
Piep
Mit dieser funktion geht das
=BlattVorhanden("Balattname")
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 = "JA"
Exit Function
End If
Next Blatt
BlattVorhanden = "Nein"
End Function

Anzeige
AW: Tabellenblatt vorhanden??
24.02.2004 11:53:41
Alex K.
Hallo Marco,
die schnellste Möglichkeit ist, das Tabellenblatt direkt anszusprechen. Den Fehler kann man abfangen und somit feststellen, ob es exsistiert. Die längere Variante wäre eine Schleife, um alle Tabellenblätter mit dem gesuchten Namen zu vergleichen.
Hier mal die schnelle Lösung:

Dim sh  as Worksheet
On Error Resume Next
set sh = Worksheets("Gesuchter Name")
If Err.Number <> 0 Then
Err.Clear
MsgBox "Tabellenblatt nicht vorhanden"
Else
'gefunden!
End If

Anzeige
AW: Tabellenblatt vorhanden??
24.02.2004 12:15:09
Marco
Vielen Dank für die schnelle Hilfe.
Gruß Marco
Danke für die Rückmeldung oT
24.02.2004 14:32:49
Alex K.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige