Zellen ein/ausblenden

[DaGiggi]

Hallo,
ich bräuchte eure Hilfe, da ich mich leider mit vba net wirklich auskenn. Ich hab mir ne große excel Liste erstellt, die stetig wächst und deren Daten sich ändern. Zu meinem Problem, ich hab in einer Spalte( z.B Spalte C) ein Auswahlfeld erstellt, mit mehr Auswahlmöglichkeiten (z.B Nr1, Nr2, Nr3). So nun bräucht ich einen Button, der beim 1. Click alle Zellen ausblendet, wenn in Spalte C, Nr1 ausgewählt wurde und beim 2 Click alle wieder einbelndet.
Ich hätt da ja schon was, kann man die beiden Codes kombinieren?

Außer es gibt eine Möglichkeit alle Datensätze, nach Auswahl von Nr.1, in ein anderes Tabellenblatt zu verschieben, z.B Archiv. Und evtl. bestimmte wieder zurück.



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Cells(Target.Row, 2) = "verschrottet" Then
Rows(Target.Row).EntireRow.Hidden = True
End If
End If
End Sub
_________________________________________

Private Sub CommandButton1_Click()
Dim blend As Boolean
Const zellein As String = "Archiv einblenden"
Const zellaus As String = "Archiv ausblenden"

With CommandButton1
If .Caption = zellein Then
.Caption = zellaus
blend = False
Else
.Caption = zellein
blend = True
End If
End With

Dim n As Integer
For n = 1 To 10
Rows.Hidden = blend
Next
End Sub