Anzeige
Archiv - Navigation
1128to1132
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
Inhaltsverzeichnis

Tabellenblatt auf Name (Anfang) überprüfen

Tabellenblatt auf Name (Anfang) überprüfen
Joachim
Hallo,
bevor ich einen Code ausführe , möchte ich per Makro überprüfen, ob es in meiner Mappe bereits ein Tabellenblatt gibt, das mit "Liste" beginnt. Tabellenblätter heisen bei mit zB "Liste Werkzeug" oder "Liste Material"..
Wenn ein Tabellenblatt in den ersten 5 Zeichen mit "Liste" beginnt, will ich gerne eine Meldung.
Danke schon mal
Gruss
Joachim

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

Betreff
Benutzer
Anzeige
AW: Tabellenblatt auf Name (Anfang) überprüfen
13.01.2010 15:37:07
Björn
Hallo,
versuch es mal so:

Dim wk As Object
For Each wk In Worksheets
If Left(wk.Name, 5) = "Liste" Then MsgBox wk.Name, vbInformation
Next
Gruß
Björn B.
Dank Euch beiden :-) owT
13.01.2010 15:47:32
Joachim
AW: Tabellenblatt auf Name (Anfang) überprüfen
13.01.2010 15:39:08
Reinhard
Hallo Joachim,
Sub tt()
Dim Wks As Worksheet, Vorh As Boolean
For Each Wks In ThisWorkbook.Worksheets
If Wks.Name Like "Liste*" Then
Vorh = True
Exit For
End If
Next Wks
If Vorh Then
MsgBox "Blatt vorhanden"
Else
Mgsbox "Blatt nicht vorhanden"
End If
End Sub

Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige