ich habe folgendes Problem:
Nach Beenden einer Eingabemaske soll der Blattschutz inkl. Autofilter gesetzt werden. Dafür verwende ich folgenden Code:
Private Sub CommandButton3_Click()
Dim iSheets As Integer 'Zähler Sheets
Dim shKey As String 'Password für Blattschutz (alle Blätter gleich!!)
shKey = "Laborlogistik"
Unload UserForm1
For iSheets = 2 To 2 'alle Sheets durchgehen und Blattschutz setzen
Sheets(iSheets).Protect shKey, True, True, True
Next iSheets
End
End Sub
Damit wird genau meine Anforderung erfüllt, den gleichen Code verwende ich auch bei einer anderen Datei und es funktioniert komplett.Bei dieser Datei wird der Blattschutz gesetzt, den Filter kann ich auch auswählen und meine Kreuze machen. Problem ist nur, dass trotz Auswahl nicht die Liste verändert wird. Der Filter arbeitet nicht.
Ich glaube es liegt nicht an dem Code, da der ja in einer anderen Datei funktioniert, evtl habe ich irgendeine Einstellung in dieser Datei falsch.
Hat jemand eine Idee?
Vielen Dank für die Hilfe im Voraus.
Gruß Markus