Office: Zeile Ausblenden wenn Bedingung erfüllt ist

Guten Morgen,

ich habe mir schon vieles durchgelesen - finde aber leider nicht das passende für mich.
Ich habe auch eine Excel Mappe mit Kundenanfragen.
Um die Mappe übersichtlich zu halten möchte ich die Anfragen die "Verloren" sind ausblenden.
Ich habe in Spalte X einen Status - Kontaktphase, Angebotsphase, Abschluss, Verloren
Je nach Status wird auch die Zeile Farbig - Kontakt bleibt weiß , Angebot wird orange , Abschluss wird grün und Verloren wird rot.
Nun möchte ich wie oben geschrieben sobald ein Status auf Verloren gesetzt wird das dann die Zeile ausgeblendet wird.
Wenn ich das ganze auch noch "Manuel" steuern kann - mit je einem Button zum Ausblenden und einem für alles wieder einzublenden wäre super.
Danke für eure Hilfe
Gruß Guido

 

Hi,

das kannst Du wunderbar mit dem Makrorecorder aufzeichnen. 1 mal nach "Verloren" filtern und dann nochmal nach "Alle anzeigen". Wenn Du das hast, kannst Du die Mappe mit dem Code hier mal hochladen - dann kann man sicher noch den überflüssigen "Recorder-Müll" aus dem Code entfernen ;-)

 

Sub Zeileausblenden()
'
' Zeileausblenden Makro
'
' Tastenkombination: Strg+a
'
ActiveSheet.Range("$A$1:$Y$167").AutoFilter Field:=22, Criteria1:= _
"Verloren"
Rows("2:2").Select
Selection.EntireRow.Hidden = True
Rows("3:3").Select
Selection.EntireRow.Hidden = True
Rows("4:4").Select
Selection.EntireRow.Hidden = True
Rows("5:5").Select
Selection.EntireRow.Hidden = True
Rows("6:6").Select
Selection.EntireRow.Hidden = True
Rows("7:7").Select
Selection.EntireRow.Hidden = True
Rows("8:8").Select
Selection.EntireRow.Hidden = True
Rows("9:9").Select
Selection.EntireRow.Hidden = True
Rows("10:10").Select
Selection.EntireRow.Hidden = True
Rows("11:11").Select
Selection.EntireRow.Hidden = True
Rows("12:12").Select
Selection.EntireRow.Hidden = True
End Sub


meinst du so?
ich möchte aber dass - sobald ein Status auf Verloren gesetzt wird die Zeile autom. ausgeblendet wird

 

Hi,

weise diesen Code einem Button (und/oder einer Tastenkombination) zu:

Code:

Sub Verloren()
With ActiveSheet
    If .FilterMode Then
        .ShowAllData
    Else
        .Range("A1:Y167").AutoFilter Field:=24, Criteria1:="<>Verloren"
    End If
End With
End Sub

Wenn der Autofilter aktiv ist, dann werden wieder alle Daten angezeigt, andernfalls werden alle "Verloren" ausgefiltert.
Field:=24 ist Spalte X (=24. Spalte). In dieser Spalte stehen Deine Stati. Das musst Du ggfls. anpassen.

 

Moin Boris!
raffiniert und Danke für den Tipp!!

Da muss ich meine If...Then-Schleifen wohl endlich mal wegschmeißen ...
Grüße