Probleme m.Makro zum löschen von bestimmten Zellen
28.06.2007 11:46:36
bestimmten
mit dem folgenden Makro sollen die Zellen der Spalten in M, N und O gelöscht werden wenn in der jeweiligen Zeile in der Spalte C kein Inhalt ist. Funktioniert eingentlich auch super, nur in den ersten paar Zeilen von M, N und O funktioniert es nicht. Danach schon ;-)
Wird ausgeführt in Tabelle 2
Name des Makro : LöscheZellInhalt
Das Makro selbst:
Sub LöscheZellInhalt()
Dim c As Variant
For c = 3 To (Range("c60000").End(xlUp).Offset(-3, 0).Row) - 1
If Cells(3 + c, 3) = "" Then
Range("A1").ClearContents
Cells(3 + c, 13).ClearContents
Cells(3 + c, 14).ClearContents
Cells(3 + c, 15).ClearContents
End If
Next c
End Sub
Hier meine Beispieldatei:
https://www.herber.de/bbs/user/43653.zip
Vielleicht bin ich ja einfach nur blind, Hilfe!
Gruß
Sascha