Herbers Excel-Forum - das Archiv

Abfrage ob Blatt eingeblendet!?!

Bild

Betrifft: Abfrage ob Blatt eingeblendet!?!
von: Oliver S.

Geschrieben am: 21.04.2005 13:27:22
Hallo Excelianer und Excelianerinnen,
ich komme mal wieder nicht auf die Lösung. Ich möchte eine Abfrage in einen VBA Code einarbeiten, der Abfragt, ob ein Tabellenblatt mit einem bestimmten Namen eingeblendet ist. Das alleine ist nun nicht das Problem. Die Tabellenblätter haben die Namen Grunddaten 2002, Grunddaten 2003, Grunddaten 2004 und nächstes Jahr dann Grunddaten 2005 und dann immer so weiter. Nun soll die Abfrage kontrollieren, ob ein Blatt mit dem Teilnamen Grunddaten offen ist, also sie soll das Leerzeichen und die Jahreszahl in dem Blattnamen ignorieren. Die Abfrage sollte also so lauten: Wenn ein Blatt mit dem Teilnamen Grunddaten eingeblendet ist, dann....
Ich komme nun nicht drauf, wie ich das hinbekommen soll. Ich habe schon mit Left und Right versucht, aber kein zufriedenstellendes Ergebnis erhalte. Habt Ihr noch eine Idee? Wäre super.
Danke Euch schon mal,
Oliver
Bild

Betrifft: AW: Abfrage ob Blatt eingeblendet!?!
von: ANdreas

Geschrieben am: 21.04.2005 13:38:52
Hallo Oliver,
hier mein Vorschlag:
Sub BlattEingeblendet()
Dim ws As Worksheet, blnEingeblendet As Boolean
For Each ws In ThisWorkbook.Worksheets
If ws.Name Like "Grunddaten*" Then
If ws.Visible = xlSheetVisible Then
blnEingeblendet = True
Exit For
End If
End If
Next ws
If blnEingeblendet Then MsgBox "Mindestens ein Grunddatenblatt sichtbar!", vbInformation
End Sub

Gruß
Andreas
Bild

Betrifft: Perfekte Lösung, danke Dir. o.T.
von: Oliver S.
Geschrieben am: 21.04.2005 14:01:52
 Bild
Excel-Beispiele zum Thema "Abfrage ob Blatt eingeblendet!?!"
Unterdrückung von Sicherheitsabfragen Arbeitsmappe-Schließen-Abfrage abfangen
Name der aufrufenden Schaltfläche abfragen Abfrage der markierten Spalten
Anzahl der einzufügenden Zeilen abfragen Programmabbruch bei Überspeichernabfrage verhindern
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist Web-Abfrage ohne *.iqy-Datei
Web-Aktienkursabfrage bei YAHOO Start- und Enddatum abfragen und markieren