Office: Suche Makro Wenn ZelleA Leer dann lösche Inhalt von ZelleB

Hallo,

ich suche einen Makro Code der folgendes macht.
Er soll in einer Tabelle schauen ob in Spalte C in einer Zelle ein Wert steht und wenn nicht soll er in der Spalte K einen Wert löschen falls dort einer drinnen steht. Dies soll er Zeile für Zeile machen. Und wenns geht nicht für das ganze Blatt sondern nur für die Länge der Tabelle. Diese variiert aber in der Länge von Zeit zu Zeit.

Bin da irgendwie am verzweiflen aber vielleicht kann man mir einer der Profis weiterhelfen.
Vielen Dank schonmal.
MDK

 

Hallo!

Teste mal:

Code:

Sub Loeschen()
    Dim Letzte As Range, Zelle As Range
    Set Letzte = Cells(UsedRange.Rows.Count, 3)
    For Each Zelle In Range(Cells(1, 3), Letzte)
        If Zelle = "" Then Zelle.Offset(0, 8).ClearContents
    Next Zelle
End Sub

 

Hallo,

er meckert bei der Zeile:
Set Letzte = Cells(UsedRange.Rows.Count, 3)

Laufzeitfehler 424 Objekt erforderlich...
Kann ihn deshalb nicht testen. Ist da vielleicht ein zeichen falsch?
Danke

 

Hallo!

Bei mir läuft's problemlos...
Möglicherweise ist bei dir da etwas schreibgeschützt?

 

Also wenn ich das UsedRange.Rows.Count durch zb. 1000 ersetze funktioniert es...

 

ok also es funktioniert wenn ich
ActiveSheet.UsedRange.Rows.Count
nehme... Hat wohl noch der Bezug gefehlt.