Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Inhalte nicht gesperrter Zellen löschen
#11
Hallo Uwe,

am Ende ist das wohl das einfachste. Hatte nach eine One-Klick Lösung gesucht, aber das geht hier wohl nicht.

Trotzdem vielen, vielen Dank für Deine Hilfe.

Gruß Thorsten
Antworten Top
#12
Hallöchen,

schlimmstenfalls in einer Schleife über alle Zellen im benutzten Bereich Sad

Code:
Sub ResetOne()
Dim zellen
  On Error Resume Next
  For Each zellen In ActiveSheet.UsedRange
    If Not zellen.loocked And Not zellen.hasformulas Then zellen.ClearContents
  Next
End Sub
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#13
Hi Andre,

1. ClearContents funktioniert nicht mit verbundenen Zellen.
2. Was ist mit den überschriebenen Formeln?

Gruß Uwe

Hallo Thorsten,

das eine schließt doch das andere nicht aus.

Gruß Uwe
Antworten Top
#14
Hi Uwe,

ja, klar, aber ich schrieb ja schlimmstenfalls Smile

Zitat:1. ClearContents funktioniert nicht mit verbundenen Zellen.
die korrekte Variante für diesen Fall hattest Du ja schon Smile =""

Zitat:2. Was ist mit den überschriebenen Formeln?
nichts anderes als schon geschrieben wurde Sad Noch schlimmer könnte man das Wiedereinsetzen ja auch programmieren  :17:  wobei das zuweilen in anderen Fällen auch eine praktikable Lösung sein könnte

Hallöchen,

hat mir doch keine Ruhe gelassen ... MergeArea wirkt in verbundenen und nicht verbundenen Zellen und dann klappt's auch mit dem ClearContents

Code:
Sub ResetOne()
Dim zellen
  On Error Resume Next
  For Each zellen In ActiveSheet.UsedRange
    If Not zellen.loocked And Not zellen.hasformulas Then zellen.MergeArea.ClearContents
  Next
End Sub
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#15
(13.11.2020, 17:45)schauan schrieb: MergeArea wirkt in verbundenen und nicht verbundenen Zellen und dann klappt's auch mit dem ClearContents

Warum einfach, wenn es doch auch umständlich geht.  :17:
Antworten Top
#16
(13.11.2020, 17:45)schauan schrieb: Hi Uwe,

ja, klar, aber ich schrieb ja schlimmstenfalls Smile

die korrekte Variante für diesen Fall hattest Du ja schon Smile =""

nichts anderes als schon geschrieben wurde Sad Noch schlimmer könnte man das Wiedereinsetzen ja auch programmieren  :17:  wobei das zuweilen in anderen Fällen auch eine praktikable Lösung sein könnte

Hallöchen,

hat mir doch keine Ruhe gelassen ... MergeArea wirkt in verbundenen und nicht verbundenen Zellen und dann klappt's auch mit dem ClearContents

Code:
Sub ResetOne()
Dim zellen
  On Error Resume Next
  For Each zellen In ActiveSheet.UsedRange
    If Not zellen.loocked And Not zellen.hasformulas Then zellen.MergeArea.ClearContents
  Next
End Sub

Das funktioniert soweit schon mal sehr gut  :28:
Gibt es hierbei noch eine Möglichkeit bestimmte nicht gesperrte Zellen auszuschließen?
Antworten Top
#17
Hallöchen,

einen Hinweis hattest Du schon - benenne ggf. die Zellen, die Du löschen kannst und willst. Ansonsten muss man jede Zelle einzeln prüfen, was sich bei vielen Zellen in der Laufzeit niederschlägt. ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#18
Hallo,
die Zellen, deren Inhalte gelöscht werden sollen, sind alle benannt. Aber es werden auch die unbenannten Zellen gelöscht.
Viele Grüße
Antworten Top
#19
Hallöchen,

Du musst dann natürlich auch die benannten Zellen ansprechen und nicht alle ohne Formeln ...
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#20
Hallo,

und wenn du dich parout nicht mit einer Vorlagen anfreunden willst, musst du dann wohl oder über per VBA die Formeln in den ungesperrten Zellen wieder eintragen - im Löschmakro nach dem Löschen!
[Bild: attachment-190.gif]
Gruß Günter
aus der Helden-, Messe-, Musik-, Buch-, Universitäts- und Autostadt Leipzig
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste