Thema Datum  Von Nutzer Rating
Antwort
07.06.2011 10:33:53 ...
NotSolved
10.06.2011 12:13:33 Till
NotSolved
14.06.2011 06:32:08 Gast7391
NotSolved
14.06.2011 13:19:12 Till
NotSolved
24.06.2011 07:59:28 Gast7177
NotSolved
Blau Ausblenden von Zeilen anhand von ausgewähltem Kriterium
 24.06.2011 16:08:07 Till
NotSolved

Ansicht des Beitrags:
Von:
Till		 Datum:
24.06.2011 16:08:07		 Views:
961		 Rating:
     
Antwort:
  Ja
Thema:
Ausblenden von Zeilen anhand von ausgewähltem Kriterium

Nein, das war in meinem Beispiel nicht vorgesehen. Mit ein bisschen Copy and Paste sollte es aber so funktionieren wie du willst.

Hier mal als Beispiel mit 3 Checkboxen...

Option Explicit

Dim LR&, R&, AV, rng As Range

Private Sub UserForm_Initialize()

    Rows.Hidden = False
    LR = Range("E" & Rows.Count).End(xlUp).Row
    Set rng = Range("A1:E" & LR)
    AV = rng.Value
    Rows.Hidden = True

End Sub

Private Sub CheckBox1_Click()
    
    Application.ScreenUpdating = False
    For R = 1 To LR
        If AV(R, 5) = "A" Then
            If CheckBox1 Then
                Rows(R).Hidden = False
            Else
                Rows(R).Hidden = True
            End If
        End If
    Next
    Application.ScreenUpdating = True
    Cells(1, 1).Select
       
End Sub

Private Sub CheckBox2_Click()
        
    Application.ScreenUpdating = False
    For R = 1 To LR
        If AV(R, 5) = "B" Then
            If CheckBox2 Then
                Rows(R).Hidden = False
            Else
                Rows(R).Hidden = True
            End If
        End If
    Next
    Application.ScreenUpdating = True
    Cells(1, 1).Select
       
End Sub

Private Sub CheckBox3_Click()
    
    Application.ScreenUpdating = False
    For R = 1 To LR
        If AV(R, 5) = "C" Then
            If CheckBox3 Then
                Rows(R).Hidden = False
            Else
                Rows(R).Hidden = True
            End If
        End If
    Next
    Application.ScreenUpdating = True
    Cells(1, 1).Select
       
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.06.2011 10:33:53 ...
NotSolved
10.06.2011 12:13:33 Till
NotSolved
14.06.2011 06:32:08 Gast7391
NotSolved
14.06.2011 13:19:12 Till
NotSolved
24.06.2011 07:59:28 Gast7177
NotSolved
Blau Ausblenden von Zeilen anhand von ausgewähltem Kriterium
 24.06.2011 16:08:07 Till
NotSolved