Live-Forum - Die aktuellen Beiträge
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Gibt es Tabellenblatt XY schon?

Gibt es Tabellenblatt XY schon?
18.01.2005 14:10:57
Sina
Hallöchen,
ich habe ein Makro geschrieben, dass eigenständig Tabellenblätter genieriert.
So, diese Tabellenblätter bekommen von mir natürlich einen Namen.
Nun möchte ich, dass das Makro, bevor es das Tabellenblatt generiert prüft, ob nicht schon ein Tabellenblatt mit dem Namen existiert.
Wie macht man das?
Grüße
Sina

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gibt es Tabellenblatt XY schon?
18.01.2005 14:14:22
Josef
Hallo Sina!
ZB. so:

Private Function SheetExist(ByVal sheetName As String, Optional WbName As String) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If WbName = "" Then WbName = ThisWorkbook.Name
For Each wks In Workbooks(WbName).Worksheets
If wks.Name = sheetName Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function
Sub test()
If SheetExist("Tabelle1") Then
MsgBox "Gibt's schon!"
Exit Sub
End If
'was sonst noch passieren soll!
End Sub

Gruß Sepp
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige