Hallo Zusammen,
ich bin gerade etwas verzweifelt
habe ein Makro geschrieben, welches alle Zeilen ausblenden soll, wenn sich in der Zeile ein bestimmtes Wort ( in dem Fall Finanzierung) befindet.
Allerdings blendet es jedesmal fast die gesamte Tabelle aus
Screenshots vorher und nacher hängen bei
Makro:
Sub BestimmteZeilenAusblenden()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = Finanzierung And Rows(Zelle.Row).Hidden = False _
Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub
Wo ist der Fehler
ich bin gerade etwas verzweifelt
habe ein Makro geschrieben, welches alle Zeilen ausblenden soll, wenn sich in der Zeile ein bestimmtes Wort ( in dem Fall Finanzierung) befindet.
Allerdings blendet es jedesmal fast die gesamte Tabelle aus
Screenshots vorher und nacher hängen bei
Makro:
Sub BestimmteZeilenAusblenden()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle.Value = Finanzierung And Rows(Zelle.Row).Hidden = False _
Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub
Wo ist der Fehler