ich möchte gern die Fehlermeldungen #DIV/0! in den Zellen A13 und C20 mit dem Text "Bitte Wert eingeben" ersetzen.
der Code:
Sub Fehlerkorrektur()
Range("A13").CurrentRegion.SpecialCells(Type:=xlCellTypeFormulas, Value:=xlErrors).Value = "Bitte Wert eingeben"
End Sub
funktioniert nur wenn wirklich ein Fehler vorliegt. Wenn aber ein richtiger Wert in der Zelle steht kommt es zu einem Laufzeitfehler.
Ich denke eine If Abfrage wäre hier besser.
Wie -- legt in Zelle A13 eine Fehlermeldung vor schreibe "Bitte Wert eingeben", wenn kein Fehler vorliegt lass alles wie es ist.
Danke für alle Antworten
Gábor