Zeilen ohne ein bestimmtes Wort ausblenden
18.07.2019 18:29:22
Malte
ich habe in einer Arbeirtsmappe für Kostenschätzungen ein Makro drin, welches mir alle Kostenstellen, die nichts mit dem Gebäude zu tun haben, ausblenden, bzw alle wieder einblenden die Ich brauche.
Hierfür habe ich in alle Zeilen die ich brauche untereinander(in der selben Spalte) das Wort Halle geschrieben. Klappt auch sehr gut.
Mein Problem ist nun, dass es sehr lange dauert, da er (denke ich) die komplette Zeile abtastet nach dem Wort.
Wie bekomme ich folgenden Befehl zu umgeschrieben, dass er nur die betreffende Spalte (BG) nach dem Wort durchsucht.
Bzw. gibt es vielleicht allgemein eine bessere Lösung?
Sub Halle()
Dim objRow As Range
For Each objRow In Rows("1:600")
objRow.Hidden = WorksheetFunction.CountIf(objRow, "*Halle*") = 0
Next
End Sub
Gruß Malte
Anzeige