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
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
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
Hi Uwe,
ja, klar, aber ich schrieb ja schlimmstenfalls
Zitat:1. ClearContents funktioniert nicht mit verbundenen Zellen.
die korrekte Variante für diesen Fall hattest Du ja schon
=""
Zitat: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
(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:
(13.11.2020, 17:45)schauan schrieb: [ -> ]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?
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. ...
Hallo,
die Zellen, deren Inhalte gelöscht werden sollen, sind alle benannt. Aber es werden auch die unbenannten Zellen gelöscht.
Viele Grüße
Hallöchen,
Du musst dann natürlich auch die benannten Zellen ansprechen und nicht alle ohne Formeln ...
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!