Code vereinfachen?

Sub CheckBox7_Click() For Each zelle In Range("AA1:AA5000").Cells If ActiveSheet.CheckBox7 = True Then If zelle.Value = "Sprachreserve 7" Then zelle.EntireRow.Hidden = False Else End If Else End If If ActiveSheet.CheckBox7 = False Then If zelle.Value = "Sprachreserve 7" Then zelle.EntireRow.Hidden = True Else End If Else End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CheckBox7_Click() Dim rHide As Range, Zelle As Range For Each Zelle In Range("AA1:AA5000").Cells If CheckBox7 = False And Zelle.Value = "Sprachreserve 7" Then If rHide Is Nothing Then Set rHide = Zelle Else Set rHide = Union(rHide, Zelle) End If End If Next Rows.Hidden = False If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True End Sub

Option Explicit Sub CheckBox7_Click() Dim rHide As Range, Zelle As Range For Each Zelle In Range("AA1:AA5000").Cells If CheckBox7 = False And Zelle.Value = CheckBox7.Caption Then If rHide Is Nothing Then Set rHide = Zelle Else Set rHide = Union(rHide, Zelle) End If End If If Zelle.EntireRow.Hidden = True And Zelle.Value CheckBox7.Caption Then If rHide Is Nothing Then Set rHide = Zelle Else Set rHide = Union(rHide, Zelle) End If End If Next Rows.Hidden = False If Not rHide Is Nothing Then rHide.EntireRow.Hidden = True End Sub

wohl wesentlich einfacher Tom,
Und wenn schon, sind das keine 'kleine Verfeinerungen', sondern grundsätzlich andere Anforderungen!
Wenn mit Checkboxen, dann in Kombi mit Autofilter, denn dass ist 100x schneller als alle Ansätze via jede einzelne Zeile, bzw. Arrays.
Also Vorschlag:

Private Sub CheckBox1_Click()
MakeFilter
End Sub
'...für jede Checkbox bis Ende wiederhole¨n!
Private Sub CheckBox7_Click()
MakeFilter
End Sub
Sub MakeFilter()
Dim strAuswahl As String, arrFilter
If CheckBox1 Then strAuswahl = "Sprachreserve 1,"
If CheckBox2 Then strAuswahl = strAuswahl & "Sprachreserve 2,"
If CheckBox3 Then strAuswahl = strAuswahl & "Sprachreserve 3,"
If CheckBox4 Then strAuswahl = strAuswahl & "Sprachreserve 4,"
If CheckBox5 Then strAuswahl = strAuswahl & "Sprachreserve 5,"
If CheckBox6 Then strAuswahl = strAuswahl & "Sprachreserve 6,"
If CheckBox7 Then strAuswahl = strAuswahl & "Sprachreserve 7,"
With ActiveSheet
If Len(strAuswahl) > 0 Then
strAuswahl = Left(strAuswahl, Len(strAuswahl) - 1)
arrFilter = Split(strAuswahl, ",")
If Not .FilterMode Then .Range("AA1").AutoFilter
.Range("$AA$1:$AA$5000").AutoFilter Field:=1, Criteria1:= _
arrFilter, Operator:=xlFilterValues
Else
If .FilterMode Then .Range("AA1").AutoFilter
End If
End With
End Sub

Gruess Hansueli

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code vereinfachen?

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread