Sub xyz()
Dim rng As Range
Dim Bereich As Range
Set Bereich = Cells.SpecialCells(xlCellTypeFormulas)
For Each rng In Bereich
If rng.Value = "" Then
rng.ClearContents
End If
Next rng
End Sub
Das sollte genügen... jedenfalls falls alle Formeln in deinem Tabellenblatt überprüft werden sollen.
Bei "Nummer = Range("A65536").End(xlUp).Offset(-1, 0)" müsstest du die row Eigenschaft abfragen also:
"Nummer = Range("A65536").End(xlUp).Offset(-1, 0).row"
Aber auch das würde nichts brigen da Formeln die "" ergeben nicht mit einbezogen werden. Nur Werte.
"Nummer = Range("A65536").End(xlUp).Offset(-1, 0)" führt bei dir wahrscheinlich schon zu einem Fehler wenn der Wert der letzten Zelle nicht numerisch ist.
"Set Bereich = Rows(Nummer)" legt einen Bereich über eine Zeile fest. Z.B. "A10:IV10".
Der Rest ist korrekt und kann so bleiben.
Gruß
Till
|