VBA Zeilen ein-/ausblenden
Daniel
Ich habe eine Frage, ob der nachfolgende VBA-Code vereinfacht werden kann.
Ausgangslage: in der Spalte B sind die Auswahlkriterien (3 stellige Nummern: 101, 102, 103, etc.). Nun soll via Makro alle Zeilen einer bestimmte Nummer (z.B. 101) angezeigt werden.
Ist es möglich, den Code so zu erstellen, dass nicht jedes vorhandene Kriterium einzeln aufgelistet werden muss, also anstelle des "=" ein "ungleich"?
Sorry, bin leider ein totaler Anfänger auf dem Gebiet.
Danke schon mal für Eure Hilfe.
hier also der aktuelle Code:
Sub Liste101()
Dim i As Long
For i = 6 To UsedRange.Rows.Count
If Range("B" & i) = "100" Or Range("B" & i) = "103" Then
Range("B" & i).Rows.Hidden = True
ElseIf Range("B" & i) = "101" Then
Range("B" & i).Rows.Hidden = False
End If
Next
End Sub
Sub Liste102()
Dim i As Long
For i = 6 To UsedRange.Rows.Count
If Range("B" & i) = "101" Or Range("B" & i) = "103" Then
Range("B" & i).Rows.Hidden = True
ElseIf Range("B" & i) = "102" Then
Range("B" & i).Rows.Hidden = False
End If
Next
End Sub
.
.
.
Sub AlleAnzeigen()
Dim i As Long
For i = 6 To UsedRange.Rows.Count
If Range("B" & i) = "101" Or Range("B" & i) = "102" Or Range("B" & i) = "103" Then
Range("B" & i).Rows.Hidden = False
End If
Next
End Sub
Anzeige
4:1 gegen 4:0 gegen 
?:? ;-)