herrausfinden ob ein bestimmtes Sheet vorhanden is

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: herrausfinden ob ein bestimmtes Sheet vorhanden is
von: Maiky
Geschrieben am: 02.12.2003 15:00:13

Hallo zusammen,

ich möchte in meiner Arbeitsmappe per Makro herrausfinden ob ein bestimmtes Sheet (Name: Report) vorhanden ist. Kann mir wer helfen?

P.S.: Die Funktion SheetsExists funktioniert nicht!

Bild


Betrifft: AW: herrausfinden ob ein bestimmtes Sheet vorhanden is
von: WernerB.
Geschrieben am: 02.12.2003 15:08:39

Hallo Maiky,

mein Vorschlag:

Sub SheetVorhanden1()
Dim BlaNa As String
Dim i As Integer
Dim vorh As Boolean
    BlaNa = "Report"
    vorh = False
    For i = 1 To Sheets.Count
      If Sheets(i).Name = BlaNa Then
        vorh = True
        Exit For
      End If
    Next i
    If vorh = True Then
      MsgBox "Blatt '" & BlaNa & "' existiert !"
    Else
      MsgBox "Blatt '" & BlaNa & "' existiert nicht !"
    End If
End Sub

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).


Bild


Betrifft: AW: herrausfinden ob ein bestimmtes Sheet vorhanden is
von: Maiky
Geschrieben am: 02.12.2003 17:43:41

Vielen Dank Werner.B. Klappt super!


Bild


Betrifft: AW: herrausfinden ob ein bestimmtes Sheet vorhanden is
von: Otto Ecker
Geschrieben am: 02.12.2003 15:10:20

Hallo Maike,


Sub a()
On Error GoTo fehler
Worksheets.Add
ActiveSheet.Name = "hugo"
Exit Sub
fehler:
aplication.DisplayAlerts = False
ActiveSheet.Delete
MsgBox "Blattname schon vorhanden"
Application.DisplayAlerts = True
End Sub


oder in einer Schleife alle Blätter durchlaufen

dim sh as worksheet
for each sh in worksheets
if sh.name="hugo" then
msgbox "gibt's schon"
end
end if
next sh
worksheets.add
usw

Gruß Otto


Bild

Beiträge aus den Excel-Beispielen zum Thema " herrausfinden ob ein bestimmtes Sheet vorhanden is"