Re: [de-users] Calc: Zellinhalte löschen bei geschützter Tabelle

Hallo Werner,

am 13.01.2016 um 09:40 Uhr schrieb Werner Tietz <werner-tietz@arcor.de>

> @Franklin
> Wenn du schon VBA Gedichte ablieferst, solltest du auch die initiale 
> Zeile mitliefern:
>
> *x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*
> Option VBAsupport 1
>
> ...
> *x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*

Ach, interessant ... und mit dieser Zeile würde der Excel-VBA-Code
dann unverändert auch unter LibO laufen? Das wäre ja toll ...

Ich nehme an, dass diese Zeile unter Excel nicht notwendig ist,
oder? Daher stand sie natürlich auf der von mir gefundenen Seite für
eine Excel-Lösung auch nicht mit bei und konnte somit von mir auch
nicht mitkopiert werden.

Aber @Norbert, vielleicht geht's ja mit dem nachfolgenden noch
einfacheren Excel-Code - entsprechend auf LibO angepasst - noch
problemloser, wenn Du die Zeile mit der Einfärbung gegen ein
entsprechendes Kommando zum Löschen des Inhalts austauschst.

*x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*

Sub NichtGesperrteZellenEinfärben()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
 If zelle.Locked = False Then
 zelle.Interior.ColorIndex = 4
 Else
 zelle.Interior.ColorIndex = xlColorIndexNone
 End If
Next zelle
End Sub

*x- - - - - - - - - - - - - > Schnapp < - - - - - - - - - - - -x*

> Werner

-- 
 ..... und tschüss

               Franklin

-- 
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert