Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige