Thema Datum  Von Nutzer Rating
Antwort
07.02.2020 17:15:11 Anna
NotSolved
07.02.2020 18:19:20 Mase
NotSolved
07.02.2020 18:35:22 Anna
NotSolved
Blau Zeilen Filtern
 07.02.2020 22:07:30 Mase
*****
Solved
07.02.2020 23:55:30 Anna
NotSolved
08.02.2020 00:02:05 Anna
NotSolved
08.02.2020 07:58:48 Mase
*****
Solved
08.02.2020 09:50:36 Anna
NotSolved
08.02.2020 09:54:21 Anna
NotSolved
08.02.2020 16:28:47 Mase
*****
Solved
08.02.2020 22:27:08 Anna
NotSolved
08.02.2020 22:32:29 Anna
NotSolved
08.02.2020 23:15:23 Mase
*****
Solved
08.02.2020 23:32:36 Anna
NotSolved
09.02.2020 10:15:37 Mase
NotSolved
09.02.2020 12:37:38 Anna
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
07.02.2020 22:07:30		 Views:
966		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen Filtern

Versuchs mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngZelle As Range, strAdr As String
     
    If Not Intersect(Target, Range("B5")) Is Nothing Then      'Wenn Eingabe in B5 erfolgte
        If Target.Value = "" Then                         'Wenn B5 gelöscht wurde
            Cells.Rows.Hidden = False                'Alle Zeilen wieder einblenden
        Else                                            'Ansonsten :
            Cells.Rows.Hidden = True                 'Alle Zeilen zunächst ausblenden
            Rows("1:6").Hidden = False               'Zeilen 1:6 wieder einblenden
            With Columns("A")                                'Suche Wert in kompletter Spalte A
                Set rngZelle = .Find(Range("B5").Value, lookat:=xlWhole) 'Suche nach Wert der Zelle B5
                If Not rngZelle Is Nothing Then strAdr = rngZelle.Address
                While Not rngZelle Is Nothing
                    rngZelle.EntireRow.Hidden = False 'Spalte mit gefundenem Wert einblenden
                    Set rngZelle = .FindNext(after:=rngZelle)   'Weitersuchen
                    If rngZelle.Address = strAdr Then Set rngZelle = Nothing
                Wend
            End With
        End If
    End If
    '
    Application.Goto Reference:=Range("B5")
    Set rngZelle = Nothing
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.02.2020 17:15:11 Anna
NotSolved
07.02.2020 18:19:20 Mase
NotSolved
07.02.2020 18:35:22 Anna
NotSolved
Blau Zeilen Filtern
 07.02.2020 22:07:30 Mase
*****
Solved
07.02.2020 23:55:30 Anna
NotSolved
08.02.2020 00:02:05 Anna
NotSolved
08.02.2020 07:58:48 Mase
*****
Solved
08.02.2020 09:50:36 Anna
NotSolved
08.02.2020 09:54:21 Anna
NotSolved
08.02.2020 16:28:47 Mase
*****
Solved
08.02.2020 22:27:08 Anna
NotSolved
08.02.2020 22:32:29 Anna
NotSolved
08.02.2020 23:15:23 Mase
*****
Solved
08.02.2020 23:32:36 Anna
NotSolved
09.02.2020 10:15:37 Mase
NotSolved
09.02.2020 12:37:38 Anna
NotSolved