Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige