Zeilen ausblenden
20.02.2007 11:15:21
Andre´
mit folgenden Makro vergleiche ich die Zellwerte ab A3 mit dem Wert in C1. In den Zellen ist das Datum enthalten. Wenn der Zellwert in der Spalte A kleiner ist als in C1, dann wird in der Spalte B einer Zeile "Zeile ausblenden" geschrieben. Wenn nichts mehr in der Spalte A gefunden, dann wird abgebrochen.
Sub ausblenden()
Dim rng As Range
For Each rng In Range("B3:B65536" & Range("H65536").End(xlUp).Offset(1, 1))
If rng.Offset(0, -1) = "" Then Exit Sub
If rng.Offset(0, -1) < Range("C1") Then rng = "Zeile ausblenden"
Next rng
End Sub
Ich möchte nun erreichen, das nichts in die Spalte B geschrieben wird sondern dass diese Zeile ausgeblendet wird wo der Wert in der Spalte A kleiner ist als der Wert in C1. Das Makro soll dann ausgeübt werden, sobald die Zelle C1 angeklickt wurde.
Hat jemand eine Idee
Danke im Voraus
MFG Andre