Supportnet / Forum / Tabellenkalkulation
Zellen Gesperrt, Gruppen lassen sich nicht auklappen
Frage
Hi!
Habe in meiner Tabelle Bestimmte Zellen gesperrt!
ABER
Ich habe der übersicht halber ( Tabelle hat knapp 200 zeilen) die Zeilen Gruppiert. (-> Data -> Group and Outline -> Group ) Wenn ich jetzt das Sheet sichere, kann ich diese Gruppen nicht mehr aufklappen! Das ist nicht ganz sinn der Sache! Gibt es dafür eine Lösung?
Danke schonmal!
!mpact
Antwort 1 von Hajo_Zi
Hallo Namensloser,
falls Du mit Sichern meinst, Tabelle geschützt. Siehe Dir mal das Beispiel an.
Link zur Datei
Gruß Hajo
falls Du mit Sichern meinst, Tabelle geschützt. Siehe Dir mal das Beispiel an.
Link zur Datei
Gruß Hajo
Antwort 2 von _mpact
Hi Hajo!
genauso solls funktioniern! Aber wie hast du das so hinbekommen..... ich kanns nich nachvollziehen!
genauso solls funktioniern! Aber wie hast du das so hinbekommen..... ich kanns nich nachvollziehen!
Antwort 3 von _mpact
a... mit VBA..... Was genau macht die Autofilterfunktion???????
Antwort 4 von Hajo_Zi
Hallo Namensloser,
der Code ist in VBA unter DieseArbeitsmappe. Den Teil Autofilter kannst Du löschen den brauchst Du ja nicht. Stand jedenfalls nicht in Deinem Beitrag.
Autofilter filtert die Liste Spaltenweise nach bestimmten Kriterien.
Gruß Hajo
der Code ist in VBA unter DieseArbeitsmappe. Den Teil Autofilter kannst Du löschen den brauchst Du ja nicht. Stand jedenfalls nicht in Deinem Beitrag.
Autofilter filtert die Liste Spaltenweise nach bestimmten Kriterien.
Gruß Hajo
Antwort 5 von _mpact
hi!
Wozu ist di zeile
With Worksheets ("Adresse")
Da bringt er mir nämlich ne fehlermeldung und der debugger markiert mir diese zeiel. Ich hab alles in allem das hier drinstehen:
Sub Workbook_Open()
With Worksheets("Adresse")
.Protect UserInterfaceOnly:=True, Password:="free4all"
.EnableOutlining = True ´ Für Gliederung
End With
End Sub
Wozu ist di zeile
With Worksheets ("Adresse")
Da bringt er mir nämlich ne fehlermeldung und der debugger markiert mir diese zeiel. Ich hab alles in allem das hier drinstehen:
Sub Workbook_Open()
With Worksheets("Adresse")
.Protect UserInterfaceOnly:=True, Password:="free4all"
.EnableOutlining = True ´ Für Gliederung
End With
End Sub
Antwort 6 von _mpact
OK... hat sich geklärt... das is der Name vom sheet... muss ich natürlich anpassen... Wie blöd von mir!
Funktioniert jetzt! Danke!
Funktioniert jetzt! Danke!

