Hallo, mein nachfolgend aufgeführtes Makro funktioniert bisher einwandfrei (in Excel 2003). Jetzt möchte ich es jedoch noch um eine weitere Bedingung erweitern und zwar wenn die nachfolgende Zeile (nach dem Vergleichsbereich*) leer ist, soll das Makro (wie bisher) nur die Zelleninhalte löschen! Wenn die nachfolgende Zeile (*““) jedoch nicht leer ist, soll die komplette Zeile gelöscht werden! Kann mir jemand helfen und mein Makro dementsprechend vervollständigen?
Wäre euch sehr dankbar!


Option Explicit

Sub Aktualisieren()
Dim Bereich As Range
Dim VergleichsBereich As Range
Dim Zelle As Range
Dim I As Long
Dim Help As Integer

For Help = 1 To Sheets.Count
Worksheets(Help).Activate
Set Bereich = ActiveSheet.Range("D6:D999")
Set VergleichsBereich = ActiveSheet.Range("F1")

For Each Zelle In Bereich

If Zelle.Value <> VergleichsBereich.Value And _
TypeName(Zelle.Value) <> "String" And _
TypeName(Zelle.Value) <> "Empty" Then
For I = 0 To -3 Step -1
Zelle.Offset(0, I).ClearContents
Next I
End If
Next Zelle

Set Bereich = Nothing
Set VergleichsBereich = Nothing
Next Help

End Sub


Danke schon mal für euer Bemühen und schönen Tag noch!

MfG

Flo07