VBA, Excel, auf Existenz und Wert prüfen

[jobo]

Hallo Vinzenz,

wie würde man denn am elegantesten überprüfen, ob bereits ein Tabellenblatt namens "abc" existiert?

Und wie vermeide ich Laufzeitfehler 13, Typen unverträglich? Das tauchte anscheinend auf, weil in einer Zelle, die ich durchlaufe, #WERT steht (also "NULL" ???)

' Durchlaufe die Spalte B im aktuellen Tabellenblatt
    For Each mycell In ws.range("B1:B" & ws.UsedRange.Rows.Count)
        ' Flag setzen, Kategorie noch nicht vorhanden in Ausgabetabelle
        CategoryFound = "notfound"
        'in 0 umwandeln, wenn da Text drinne steht
        myvalue = mycell.Value
        If VarType(myvalue) = 8 Then
            myvalue = 0
        End If
        'nur wenn was in Spalte C steht

If ws.range("C" & mycell.Row).Value <> "" _
        And ws.range("C" & mycell.Row).Value <> " " _
        And myvalue <> 0 Then

Diese letzten drei Zeilen markiert der Debugger. Der Test "myvalue <> 0" bringt wohl den Typenunverträglichkeitsfehler, wenn der Wert "#Wert" ist, also auf eine nicht verfügbare Resource zB. verweist.

Dank und Gruß

Robert aka jobo