Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Makro um eine Bedingung erweitern
Frage
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