Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfung ob Tabellenblatt existiert

Forumthread: Prüfung ob Tabellenblatt existiert

Prüfung ob Tabellenblatt existiert
18.01.2005 20:54:41
Chris
Hallo Zusammen,
ich versuche eine Abfrage zu machen ob ein Tabellenblatt existiert oder nicht.
Zuerst hätte an folgendes gedacht, geht aber nicht:
If Sheet("Neu").Exists = True Then
goto neu_existiert
End If
Hat jemand Ahnung wie ich das hinbekommen könnte?
vielen Dank & Gruß
Chris
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfung ob Tabellenblatt existiert
18.01.2005 21:01:08
Ramses
Hallo
entweder mit einer Schleife
Function FindSheet(tbName as String) as Boolean
Dim i As Integer
For i = 1 to Worksheets.count
If Worksheets(i).Name = tbName then
FindSheet = True
Exit For
end if
Next i
FindSheet = False
End Sub
und im Makro kannst du abfragen
If FindSheet("Tabelle1") = True
oder mit einer OnError Anweisung
Gruss Rainer
Anzeige
AW: Prüfung ob Tabellenblatt existiert
18.01.2005 21:44:35
andre
Hallo Chris,
kannst Du so ähnlich lösen:

Sub IstBlattDa()
Dim BlattDa As Boolean
BlattDa = False
On Error GoTo weiter
If Sheets("Tabelle3").Name = "Tabelle3" Then BlattDa = True
weiter:
On Error GoTo 0
MsgBox BlattDa
End Sub

Wenn es Tabelle3 gibt ist der Name auch Tabelle3 und das Ergebnis True. Gibt es das Blatt nicht bleibt die Variable auf False. Da dabei ein Fehler kommt musst Du mit On Error arbeiten. Geht schneller als mit einer Schleife vor allem bei vielen Blättern.
Anzeige
AW: Prüfung ob Tabellenblatt existiert
18.01.2005 21:02:32
Reinhard
Hi Chris, 

Sub ttt()
For Each ws In Worksheets
If ws.Name = "Neu" Then GoTo NeuExistiert
Next ws
Set NewSheet = Worksheets.Add
NewSheet.Name = "Neu"
NeuExistiert:
End Sub

Gruß
Reinhard
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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