Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

In VBA Abfrage ob Blatt vorhanden

4 views
Skip to first unread message

Lothar Meyer

unread,
Apr 14, 2000, 3:00:00 AM4/14/00
to
Hallo,
ich erzeuge in VBA ein neues Tabellen-Blatt. Nun brauche ich an anderer
Stelle eine Möglichkeit um festzustellen ob das neue Blatt vorhanden ist.
Wie kann man das Realisieren.
Danke schon mal.

--
Meyer....@t-online.de

Urs Metzger

unread,
Apr 16, 2000, 3:00:00 AM4/16/00
to
Hallo Lothar,

hier eine Funktion für dich:

Function TabelleVorhanden(TabellenName As String) As Boolean
Dim TB As Worksheet

TabelleVorhanden = False
For Each TB In Worksheets
If TB.Name = TabellenName Then
TabelleVorhanden = True
Exit For
End If
Next TB
End Function

Gruß, Urs
"Lothar Meyer" <Meyer....@t-online.de> schrieb im Newsbeitrag
news:8d7h98$mn7$1...@news05.btx.dtag.de...

Konrad Hauke

unread,
Apr 16, 2000, 3:00:00 AM4/16/00
to
Hallo Lothar Meyer!

folgendes Makro gibt True zurück wenn die gesuchte Tabelle
existiert ansonsten False.

Aufrufen kannst Du die Funktion in etwa so:

If ExistWorksheet("Tabelle1") = False Then
'Erzeuge eine neue Tabelle...
End If


Public Function ExistWorksheet(tWs As String) As Boolean
Dim ws As Worksheet
For Each ws In Worksheets
If UCase(ws.Name) = UCase(tWs) Then
ExistWorksheet = True
Exit Function
Next ws
End Function


mfg Konrad Hauke

http://www.xakte.de


Lothar Meyer <Meyer....@t-online.de> schrieb in im Newsbeitrag:

0 new messages