Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
284to288
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige