Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Werkzeug
BildScreenshot zu Werkzeug Werkzeug-Seite mit Beispielarbeitsmappe aufrufen

Tabellenblatt auf Name (Anfang) überprüfen | Herbers Excel-Forum


Betrifft: Tabellenblatt auf Name (Anfang) überprüfen von: Joachim
Geschrieben am: 13.01.2010 15:29:36

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

  

Betrifft: AW: Tabellenblatt auf Name (Anfang) überprüfen von: Björn B.
Geschrieben am: 13.01.2010 15:37:07

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.


  

Betrifft: Dank Euch beiden :-) owT von: Joachim
Geschrieben am: 13.01.2010 15:47:32




  

Betrifft: AW: Tabellenblatt auf Name (Anfang) überprüfen von: Reinhard
Geschrieben am: 13.01.2010 15:39:08

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


Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt auf Name (Anfang) überprüfen"