Fehlermeldung unterdrücken
28.03.2006 11:32:14
Henning
Ich möchte in meiner Tabelle einen Bereich absuchen, und alle leeren Zellen mit einem Symbol füllen.
Habe bereits folgendes:
Sub x()
Dim RangeEmpty As Range
Dim RangeBereich As Variant
Dim Symbol As Variant
Set RangeBereich = Application.Range("B7:U7")
Symbol = ("---")
Set RangeEmpty = RangeBereich.SpecialCells(xlCellTypeBlanks)
RangeEmpty = Symbol
End Sub
Das funktioniert auch, solange leere Zellen vorhanden sind. Sind nun aber alle Zellen bereits gefüllt, soll das Programm nichts weiter machen. Stattdessen bekomme ich die Fehlermeldung: Keine Zellen gefunden. Hat da jemand eine Lösung?
MfG
Henning
Anzeige