765 Aufrufe
Gefragt in Datenbanken von
Guten Tag Zusammen,
Ich bin grad dabei eine ewig Lange Liste in der Spalte D nach 1.Beweissicherung und 2.Beweissicherung zu filtern.

Das Problem ist das in der Liste (Die Liste ist in verschiedenen Stadtteilen eingeteilt) zwischen den verschiedenen Stadtteilen mehrere Absätze und Berechnungen enthalten sind sodass die normale Filterfunktion von Excel nicht die komplette Spalte filtert sondern nur bis zum ersten Absatz.

Meine Überlegung deshalb ein Makro dafür einzusetzen, aber wie?

Ich bin recht neu in diesem Mileau was Makros angeht.

Vielen Dank schon im voraus für Hilfen

2 Antworten

0 Punkte
Beantwortet von m-o Profi (22.7k Punkte)
Hallo,

die folgenden Makros gehören in ein Standard-Modul deiner Arbeitsmappe:

Sub filtern()

Dim strFilter As String
Dim lngZeile As Long
Dim lngletzte As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

'Suchtext wird festgelegt
strFilter = "1. Beweissicherung"

'erst einmal alle Zeilen einblenden
ActiveSheet.UsedRange.Rows.Hidden = False

'letzte Zeile im aktuellen Blatt in Spalte D ermitteln
lngletzte = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row

'nun Spalte D ab Zeile 2 durchlaufen und alle Zeilen ohne den Suchtext ausblenden
For lngZeile = 2 To lngletzte
If Cells(lngZeile, 4).Value <> strFilter Then Rows(lngZeile).Hidden = True
Next lngZeile

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub

Sub AlleZeilenEinblenden()
ActiveSheet.UsedRange.Rows.Hidden = False
End Sub


Im Code wird nach 1. Beweissicherung gefiltert. Den Suchbegriff musst du ggf. anpassen.

Gruß

M.O.
0 Punkte
Beantwortet von
Sauber!

Vielen Dank
...