Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA: Sheet existiert?

Forumthread: VBA: Sheet existiert?

VBA: Sheet existiert?
24.07.2003 00:56:57
Franz W.
Hallo Forum,
hätte da noch eine kleine Frage heute abend:
wie kann ich bitte per VBA abfragen, ob innerhalb einer Mappe ein bestimmtes Sheet existiert?
Vielen Dank im Voraus
Grüße
Franz
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Sheet existiert?
24.07.2003 01:05:07
Boris
Hi Franz,
es gibt den "brutalen" Weg und den sauberen.
Ich zeig sie dir beide - du solltest aber die 2. Variante nutzen;-)
Option Explicit

Sub bin_ich_da()
On Error GoTo fehler
Worksheets("Test").Select
Exit Sub
fehler:
MsgBox "Mich gibt´s noch nicht"
End Sub



Sub bin_ich_da_2()
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name = "Test" Then
MsgBox "Mich gibt es schon"
Exit Sub
End If
Next
MsgBox "Mich gibt es noch nicht"
End Sub

Gruß Boris

Anzeige
Nehm gern Var. 2
24.07.2003 01:10:32
Franz W.
Hallo Boris,
vielen Dank für Deine Hilfe! Und nachdem ich diese Woche erst mal wieder eine Belehrung über Goto und Co. bekommen habe (allerdings eine sehr wertvolle diesmal), werde ich mich ganz schnell an deinen zweiten Tipp machen ;-)))
Vielen Dank und Gute Nacht auch Dir
Franz

Anzeige
AW: VBA: Sheet existiert?
24.07.2003 01:03:37
OttoH
Hallo Franz,
nimm mal folgenden Code als Ansatz:

Sub Blatt_suchen()
Dim Blatt As Sheets
Dim Blattname As String
Dim i As Integer
Blattname = "Tabelle1"
For i = 1 To ActiveWorkbook.Sheets.Count
If ActiveWorkbook.Sheets(i).Name = Blattname Then
MsgBox ("Gefunden")
End If
Next
End Sub

Gut's Nächtle
OttoH

Anzeige
AW: VBA: Sheet existiert?
24.07.2003 01:06:51
Franz W.
Hallo Otto,
funktioniert bestens!! Vielen Dank und ebensolches Nächtle auch Dir
Franz

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum