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
Inhaltsverzeichnis

VBA: Sheet existiert?

Forumthread: VBA: Sheet existiert?

VBA: Sheet existiert?
23.07.2003 22: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?
23.07.2003 23: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
23.07.2003 23: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?
23.07.2003 23: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?
23.07.2003 23:06:51
Franz W.
Hallo Otto,
funktioniert bestens!! Vielen Dank und ebensolches Nächtle auch Dir
Franz

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige