Einen hab ich noch für heute. In meinem Tabellenblatt habe ich den Autofilter aktiviert. Leider funktioniert der nicht, wenn das Blatt geschützt ist. Muss es aber sein, damit andere User mit das Ding nicht durcheinanderhauen. Habe fleissig im Archiv gesucht und folgendes Makro zu meinem Problem gefunden:
Nu ja, der Laie meint ja, das muss dann auch so funktionieren, tuts aber nicht. Habe im gleichen Tabellenblatt noch dieses Makro
~begin~
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ActiveSheet.Unprotect Password:="MeinPasswort" 'Deaktiviert den Blattschutz
If Target.Column = 2 Then '= Spalte B
i = Target.Row
Select Case IsEmpty(Target.Value)
Case False
Cells(i, 3).FormulaR1C1 = "=IF(RC[-1]=0,"""",INT((RC[-1]-DATE(YEAR(RC[-1]),1,1)+WEEKDAY(DATE(YEAR(RC[-1]),1,1),3))/7)+IF(WEEKDAY(DATE(YEAR(RC[-1]),1,1),3)<4,1,0))" '= Spalte C
Cells(i, 4).FormulaR1C1 = "=IF(ISNUMBER(RC[-2]),DAY(RC[-2]),"""")" '= Spalte D
Cells(i, 5).FormulaR1C1 = "=IF(ISNUMBER(RC[-3]),MONTH(RC[-3]),"""")" '= Spalte E
Cells(i, 6).FormulaR1C1 = "=IF(ISNUMBER(RC[-4]),YEAR(RC[-4]),"""")" '= Spalte F
Case True
Range("C" & i & ":F" & i).ClearContents
End Select
ActiveSheet.Protect Password:="MeinPasswort"End If
End Sub
~end~
Ich gehe mal davon aus, dass sich die beiden ins Gehege kommen?
Kann ich die beiden Makros nicht miteinander verbinden?
Helft mir bitte noch einmal.
Gruss
Kirsten