Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
680to684
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
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage ob Sheet vorhanden

Abfrage ob Sheet vorhanden
14.10.2005 18:07:51
Christine
Hallo, ich nochmal...
ich würde gern eine Abfrage machen, ob ein bestimmtes Blatt bereits vorhanden ist. Also ungefähr so:
if Sheet("Daten").VORHANDEN then
...
end if
Leider weiß ich nicht, was ich für VORHANDEN verwenden könnte.
Im Archiv habe ich das hier gefunden:
IF Not SheetExist("Daten") Then ...
Aber da bekomme ich den Fehler "Sub oder Function nicht definiert".
Habt ihr vielleicht eine Idee, was ich machen könnte?
Danke und lieben Gruß,
Christine.

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

Betreff
Datum
Anwender
Anzeige
AW: Abfrage ob Sheet vorhanden
14.10.2005 18:13:32
Leo
Hi,

Sub Blatt_da()
Dim sht As Object
For Each sht In ThisWorkbook.Sheets
If sht.Name = "Daten" Then
MsgBox "Blatt vorhanden!"
Exit For
End If
Next
End Sub

mfg Leo
AW: Abfrage ob Sheet vorhanden
14.10.2005 18:14:25
Peter
Servus,
oder brutal.
Sub t()
On Error GoTo fehler
Sheets("Daten").Select
Exit Sub
fehler:
If Err.Number = 9 Then MsgBox "Sheet existiert nicht"
End Sub

MfG Peter
AW: Abfrage ob Sheet vorhanden
14.10.2005 18:23:33
Christine
Danke Leo, funktioniert super!
Da wäre ich sicher lange nicht draufgekommen. :) Du hast mir gerade meinen Abend gerettet, weil ich doch jetzt schon Feierabend machen kann.
LG,
Christine.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige