Lieber Werner,
ich danke dir vielmals für deine Hilfe! Ohne dich wäre ich da völlig verloren.
Wie deklariere ich denn die Blätter noch richtig? Irgendwo habe ich immer noch einen Fehler...
Ein Tabellenblatt was eingeblendet werden soll heißt zum Beispiel "EXP_Controls". Wenn ich nun im meinem Dropdown IMP auswähle, sollten ja nur noch alle Blätter da bleiben, welche ein IMP im Namen haben und alle EXP Blätter verschwinden.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
If Target.Address(0, 0) = "A1" Then
If Target.Count = 1 Then
If Target <> "" Then
For Each ws In ThisWorkbook.Worksheets
Select Case ws.Name
'hier Blätter aufnehmen, die nicht
'berücksichtigt werden sollen
Case "EXP_Controls", "Tabelle2"
Case Else
ws.Visible = ws.Name Like "*" & Target & "*"
End Select
Next ws
End If
End If
End If
End Sub
Wäre das so korrekt eingetragen ?
Liebe Grüße
Leo
|