Hallo zusammen,
ich war lange nicht mehr hier, benötige aber jetzt doch mal wieder Eure Hilfe.
Inzwischen habe ich Office 2013.
Folgendes Anliegen vorab zur Erklärung.
Ich habe Eine Datei mit 6 Tabellenblättern. Die erste Tabelle ist das "Urdokument" indem händisch Änderungen vorgenommen werden. So wird in
Zelle C1 eine lfd.-Nr. festgelegt und in
Zelle G1 das betreffende Datum
Diese Zellen sind in den anderen Blättern (2-5) Schreibgeschützt - weshalb ich einen Blattschutz aktiviert habe. Diese generieren sich nämlich automatisch.
Ich benötige nun (glaube ich) drei verschiedene Makros. Zwei habe ich und die funktionieren auch, aber das dritte fehlt und bekomme ich ohne Eure Hilfe nicht hin.
Teil 1 soll das Verwenden der Gruppierungen trotz Blattschutz zulassen:
Teil 2 soll bewirken, dass sich der Name der Tabellenblätter aus den jeweiligen Zellen G1 generieren. Das funktioniert zwar, dafür muss ich aber den Blattschutz aufheben, in die Zelle G1 gehen, F2 + Enter drücken.
Und dafür benötige ich Teil 3 - und damit Eure Hilfe!
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:= True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("G1")) Is Nothing Then _
Sh.Name = Target.Value
End Sub
Könnt Ihr mir helfen?
Lieben Dank!
Sandra