unmerge auf ganzes Blatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Warum so umständlich, Yummi?
Normalerweise sind doch alle Zellen (vor-)gesperrt, das gehört zu ihrem Format. Wird das Blatt geschützt, kannst du keine mehr ändern!
Wurde der Schutz für einige aufgehoben, kann man die Totalsperre für alle ganz einfach manuell wiederherstellen, indem man durch Klick auf die leere RahmenZelle links oben alle auswählt, Format wählt und das Sperrhäkchen unter Schutz setzt. Schon sind alle wieder gesperrt. Anschließend nur noch Blatt schützen.
Wenn du das unbedingt automatisieren willst, reicht ggf schon die Aufzeichnung dieses Vorgangs mit dem Makro-Recorder.
Merke: Die Zellen eines ZellVerbunds können zwar verschiedene Werte enthalten (der Klassiker nur 1.Zelle gefüllt, alle anderen leer bedeutet auch verschiedene Werte!), aber (in Xl!) stets nur ein Format, was man auch bemerkt, wenn man eine VerbundZelle zB rot färbt und dann den Verbund wieder aufhebt → alle Zellen sind (in Xl, nicht in LO/OO!) jetzt rot, auch, wenn sie vor dem Verbinden verschiedene Farben hatten und nicht nur farblos waren!
Morrn, Luc :-?

Hallo Luc,
ich muss das automatisieren, weil es ein Review ist. Es gibt Unterschriftenfelder, wo die Leute eine elektronische Unterschrift hinterlegen, dass sie das 2. Sheet geprüft haben.
Das 2. Sheet soll dann, nach unterzeichnen, nicht mehr änderbar sein.
Das kann ich wie gesagt mit der locked Eigenschaft setzen. Wenn jetzt allerdings verbundene Zellen irgendwo auf dem Sheet sind, dann gibt es den Fehler, dass die locked Eigenschaft nicht gesetzt werden kann (ist auch beim händischen sperren so).
Deshalb will ich alle verbunden Zellen aufbrechen und zwar automatisch um sie alle sperren zu können. Es kann nämlich sein, dass nicht alle Zellen gesperrt sind. Darauf habe ich keinen Einfluss, weil das 2. Sheet in die Arbeitsmappe händisch reinkopiert wird vom 1. Reviewer.
Das Problem ist halt nur, dass das ziemlich lange dauern kann. Wie kann ich das beschleunigen?


Function SperreAlleZellen(ByVal wks As Worksheet)
Dim letztezeile As Long
Dim letztespalte As Long
letztezeile = wks.UsedRange.SpecialCells(xlCellTypeLastCell).Row
letztespalte = wks.UsedRange.SpecialCells(xlCellTypeLastCell).Column
wks.Range(wks.Cells(1, 1), wks.Cells(letztezeile, letztespalte)).UnMerge
wks.Cells.Locked = True
End Function

Habe das jetzt so zeitoptimiert, geht schneller als das mit dem gesamten Blatt zu machen. Geht es noch schneller?
Gruß
yummi

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread