Letzten Zellwert löschen wenn
10.10.2007 12:34:18
Andre´
| A | B | |
| 1 | entfernen | |
| 2 | entfernen | |
| 3 |
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Mit folgenden Code wird überprüft ob der letzte Zellwert von Spalte B entfernen steht, wenn ja wird dieser Zellinhalt gelöscht.
Sub letzten_entfernen() With Range("B65536").End(xlUp) If LCase(CStr(.Value)) = "entfernen" Then .ClearContents End If End With End Sub
Problem ist, das in der Zelle B1 immer entfernen steht und wenn nochmals das Makro ausgeübt wird dann wird auch dieser Zellwert gelöscht.
Kann mir bitte jemand einen Tipp geben, wie ich nur in dem Bereich von B2 bis B65536 nach dem letzten Zellwert suchen kann, und das dieser dann gelöscht wird.
Danke im voraus!
MFG Andre