Inhalte nicht gesperrter Zellen löschen

[vision]

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

[schauan]

Hallöchen,

schlimmstenfalls in einer Schleife über alle Zellen im benutzten Bereich

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

[Kuwer]

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

[schauan]

Hi Uwe,

ja, klar, aber ich schrieb ja schlimmstenfalls

1. ClearContents funktioniert nicht mit verbundenen Zellen.

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

2. Was ist mit den überschriebenen Formeln?

nichts anderes als schon geschrieben wurde 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

[Kuwer]

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:

[vision]

Hi Uwe,

ja, klar, aber ich schrieb ja schlimmstenfalls

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

nichts anderes als schon geschrieben wurde 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?

[schauan]

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. ...

[vision]

Hallo,
die Zellen, deren Inhalte gelöscht werden sollen, sind alle benannt. Aber es werden auch die unbenannten Zellen gelöscht.
Viele Grüße

[schauan]

Hallöchen,

Du musst dann natürlich auch die benannten Zellen ansprechen und nicht alle ohne Formeln ...

[Glausius]

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!