Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
07.06.2011 10:33:53 |
... |
|
|
|
10.06.2011 12:13:33 |
Till |
|
|
|
14.06.2011 06:32:08 |
Gast7391 |
|
|
|
14.06.2011 13:19:12 |
Till |
|
|
|
24.06.2011 07:59:28 |
Gast7177 |
|
|
Ausblenden von Zeilen anhand von ausgewähltem Kriterium |
24.06.2011 16:08:07 |
Till |
|
|
Von:
Till |
Datum:
24.06.2011 16:08:07 |
Views:
968 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
... |
|
|
|
10.06.2011 12:13:33 |
Till |
|
|
|
14.06.2011 06:32:08 |
Gast7391 |
|
|
|
14.06.2011 13:19:12 |
Till |
|
|
|
24.06.2011 07:59:28 |
Gast7177 |
|
|
Ausblenden von Zeilen anhand von ausgewähltem Kriterium |
24.06.2011 16:08:07 |
Till |
|
|