Zellen arbeiten, wenn Bed. erfüllt, ausblenden
09.06.2009 17:09:14
Peter
Ich habe eine Tabelle mit einem Datenbereich, der in der Spalte A mit "xDat" benannt ist.
Dort ist auf jeder Zeile ein Datum eingetragen.
Nun habe ich ein Datum als Mindestwert (range("rMin")) und ein Datum als Maximalwert (range("rMax")) definiert. Ich möchte nun, dass beim Aufrufen des Makros jede Zeile innerhalb "xDat" ausgeblendet wird, das kleiner als "rMin" und grösser als "rMax" ist. (Wenn irgend möglich, möchte ich die letzte Zeile jedoch immer eingeblendet lassen - doch das kriege ich vielliecht später noch hin).
Mein Code funktioniert nicht. noch der Zeile "r = Range("xDat") erhalte ich den Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht festgelegt.
Wer kann mir helfen?
Danke, Peter
Option Explicit
Sub test()
Dim r As Range, c As Range
r = Range("xDat")
Range("xDat").EntireColumn.Hidden = False 'zuerst alle Zellen einblenden
For Each c In r
If c.Value Range("rMax").Value Then
Rows(c).EntireRow.Hidden = True
End If
Next
End Sub
Anzeige