Ich habe folgendes Anliegen:
Ich möchte gerne eine Abfrage gestalten, die ich mir per Dropdown zurechtlege. Je nach Auswahl, sollen bestimmte Zeilen des Blattes Sichtbar werden, da dort unterschiedliche Checklisten drin sind.
Zusätzlich blende ich sämtliche Blätter aus, bis eine Auswahl erfolgt ist. Bei "Bitte Auswählen" ist alles ausgeblendet.
Bei "PA-Wechsel" werden alle Blätter angezeigt und ein bestimmter bereich eingeblendet.
Bei "Neuer Artikel", soll ein anderer Bereich eingblendet werden und erst wenn eine bestimmte Zelle beschrieben ist (Name), sollen die anderen Blätter eingeblendet werden.
Das Aus- und Einblenden, klappt bei "Auswahl" & "PA-Wechsel" Super, nur scheitere ich beim "Neuen Artikel". Dort bekomme ich die zweite Abfrage nicht in den Griff.
Hier mal mein Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo fehler
ThisWorkbook.Unprotect Password:="Apollo!"
ActiveSheet.Unprotect Password:="Apollo!"
Dim Bereich1 As Range
Set Bereich1 = Range(Cells(1, 1), Cells(1, 1))
'Bitte Auswählen
If Target = "Bitte Auswählen" Then
ThisWorkbook.Unprotect Password:="Apollo!"
Rows("10:250").Hidden = True
Worksheets("QS Runde").Visible = False
Worksheets("Schichtübergabe").Visible = False
Worksheets("Checkman").Visible = False
Worksheets("Linienkontrollblatt").Visible = False
Worksheets("Reinigung&Müll").Visible = False
Worksheets("Volumen").Visible = False
Worksheets("Volumen A07").Visible = False
Worksheets("Gewicht").Visible = False
Worksheets("Fehlwiegung").Visible = False
ThisWorkbook.Protect Password:="Apollo!"
End If
'PA-WEchsel
If Target = "PA-Wechsel" Then
ThisWorkbook.Unprotect Password:="Apollo!"
Rows("10:250").Hidden = False
Rows("10:188").Hidden = True
Worksheets("QS Runde").Visible = True
Worksheets("Schichtübergabe").Visible = True
Worksheets("Checkman").Visible = True
Worksheets("Linienkontrollblatt").Visible = True
Worksheets("Reinigung&Müll").Visible = True
Worksheets("Volumen").Visible = True
Worksheets("Volumen A07").Visible = True
Worksheets("Gewicht").Visible = True
Worksheets("Fehlwiegung").Visible = True
ThisWorkbook.Protect Password:="Apollo!"
End If
'neuer Artikel
If Target = "Neuer Artikel" Then
ThisWorkbook.Unprotect Password:="Apollo!"
Rows("10:250").Hidden = False
End If
'BEreich 2
Dim Bereich2 As Range
Set Bereich2 = Range(Cells(2, 2), Cells(2, 2))
'Neuer Artikel
If Target = "2" Then
ThisWorkbook.Unprotect Password:="Apollo!"
Rows("10:250").Hidden = False
Worksheets("QS Runde").Visible = True
Worksheets("Schichtübergabe").Visible = True
Worksheets("Checkman").Visible = True
Worksheets("Linienkontrollblatt").Visible = True
Worksheets("Reinigung&Müll").Visible = True
Worksheets("Volumen").Visible = True
Worksheets("Volumen A07").Visible = True
Worksheets("Gewicht").Visible = True
Worksheets("Fehlwiegung").Visible = True
ThisWorkbook.Protect Password:="Apollo!"
End If
fehler:
ActiveSheet.Unprotect Password:="Apollo!"
ThisWorkbook.Protect Password:="Apollo!"
End Sub