Thema Datum  Von Nutzer Rating
Antwort
06.06.2011 07:15:52 Steffi
Solved
Blau Checkbox zum Ein-und Ausblenden von Zeilen
 06.06.2011 10:55:56 Till
NotSolved
06.06.2011 10:58:35 Gast78382
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
06.06.2011 10:55:56		 Views:
931		 Rating:
     
Antwort:
  Ja
Thema:
Checkbox zum Ein-und Ausblenden von Zeilen

Hi,

Private Sub CheckBox1_Click()

If CheckBox1 Then
    
    Dim LR&, R&, AV, rng As Range
    LR = Range("E" & Rows.Count).End(xlUp).Row
    Set rng = Range("A1:E" & LR)
    AV = rng.Value
    rng.Rows.Hidden = True
    
    Application.ScreenUpdating = False
    For R = 1 To LR
        If AV(R, 5) = "A" Then
            Rows(R).Hidden = False
        End If
    Next
    Application.ScreenUpdating = True
    Cells(1, 1).Select
    
Else

    ActiveSheet.Rows.Hidden = False
    Cells(1, 1).Select
    
End If

End Sub

Du kannst aber auch einfach einen Autofilter verwenden, kommt das nicht in Frage? ( Daten/Autofilter)

Gruß

Till

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
06.06.2011 07:15:52 Steffi
Solved
Blau Checkbox zum Ein-und Ausblenden von Zeilen
 06.06.2011 10:55:56 Till
NotSolved
06.06.2011 10:58:35 Gast78382
NotSolved