Hallo,

bin in VBA nicht besonders gut und stehe im Moment vor folgendem Problem. Ziemlich trivial.

Ich möchte in der vorletzten Zeile eines dynamischen Bereichs alle Formeln löschen, deren Ergebnis "" liefert - sprich keinen Wert.

Ich habe mir folgenden Code zusammengestellt, aber er läuft leider nicht. Bin leider auch nach ewigem Rumprobieren nicht drauf gekommen, woran es liegt.

Sub xyz()

Dim rng As Range
Dim Bereich As Range
Dim Nummer As Long

Nummer = Range("A65536").End(xlUp).Offset(-1, 0)

Set Bereich = Rows(Nummer)

For Each rng In Bereich
If rng.Value = "" Then
rng.ClearContents
End If
Next rng
End Sub

Vielleicht kann mir jemande helfen.

Danke schon mal.

Lukas