Fehlerbehandlung
28.10.2004 19:53:26
Bergelmir
ich möchte überprüfen, ob eine Tabelle vorhanden ist.
Wenn ja dann soll die Tabelle anzeigt werden.
Andernfalls soll die Tabelle erstellt werden.
Meine Frage ist daher, ob es ein Befehl gibt der prüft ob die Tabelle existiert.
(bzw. das Objekt x wenn es nicht um ein Worksheet sondern um ein anderes Objekt geht)
In etwa:
if exist(worksheets("meineTabelle")) then ...
Ich konnte darüber leider nichts finden.
Meine Lösung daher wie folgt:
--------------
Option Explicit
---
Sub test()
Const Tabellenname As String = "meineTabelle"
Dim Tabellenblatt As Worksheet
On Error Resume Next
Worksheets(Tabellenname).Activate
If Err.Number = 9 Then
Set Tabellenblatt = Worksheets.Add(after:=Worksheets(Worksheets.Count))
Tabellenblatt.Name = Tabellenname
Tabellenblatt.Activate
End If
On Error GoTo 0
End Sub
Eine Lösung wie oben würde mir jedoch besser gefallen.
Finde ich einfach lesbarer.
Eventuell gibt es ja doch eine Lösung.
Gruß Bergelmir