Fehlerbehandlung bei SpecialCells(xlFormulas, 16)
29.06.2004 07:46:31
andre
warum wirkt bei diesem Code die Fehlerbehandlung nicht oder nur sporadisch?
Sub Test1()
Dim rngErrors as Range
For each blaetter in Sheets()
On Error GoTo weiter
'keine Formeln da
Set rngErrors = blaetter.Cells.SpecialCells(xlFormulas, 16)
On Error GoTo 0
weiter:
Next blaetter
End Sub
Ich möchte den code in der Schleife überspringen, wenn keine Formeln im Blatt sind und mit dem nächsten Blatt weitermachen. Ich bekomme allerdings fast immer 'nen Fehler 1004, das Excel keine Zellen gefunden hat..
Grüße, Andre
Anzeige