Zellen durchsuchen u Spalten ausblenden - Speed
16.05.2019 13:56:56
Robert
ich habe zwar ein nettes Makro, das funktioniert. Aber es erscheint mir recht umständlich und läuft so langsam --- kann man das einfacher und schneller machen?
Was ich möchte:
Im Bereich (O4:AN95) - später vielleicht größer werdend - soll geschaut werden, ob in der jeweiligen Zeile einmal EIN Datum steht, das älter als heute ist (es stehen in fast allen Zellen Datumsangaben).
Es reicht, wenn ein Datum älter ist als heute: Dann soll die Zeile NICHT ausgeblendet werden, sonst schon. (Es sollen hinterher alle Zeilen da stehen mit einem vertrichenen Datum...)
Was ich bislang zusammengebastelt habe:
Sub Uberfaellig()
Dim zeile As Integer, spalte As Integer, zelle As Range, ausblenden As Boolean
For zeile = 4 To 95 'zeilenweises Vorgehen
ausblenden = True 'Standard soll ausblenden sein
If Cells(zeile, 1) "" Then 'wenn die erste Spalte leer ist
= ganze Zeile leer,
dann Suche in dieser Zeile beenden
For spalte = 15 To 40 'jetzt Spalten durchsuchen
Set zelle = Cells(zeile, spalte) 'Inhalt der Zelle anschauen
If IsDate(zelle) And zelle Wo ist der Zeitfresser bzw. wie macht man das, wenn man sich mit VBA auskennt? :)
1000 Dank
Robert