Roni möchte alles in einem Arbeitsblatt löschen, außer Zellen, die Formeln enthalten können. Diese Aufgabe kann entweder manuell oder mithilfe eines Makros ausgeführt werden.

Wenn Sie das Löschen manuell durchführen möchten, können Sie die folgenden Schritte ausführen:

  1. Drücken Sie F5. Excel zeigt das Dialogfeld Gehe zu an. (Siehe Abbildung 1.)

  2. Klicken Sie auf die Schaltfläche Spezial. Excel zeigt das Dialogfeld Gehe zu Spezial an.

(Siehe Abbildung 2.)

  1. Aktivieren Sie das Optionsfeld Konstanten. Die vier Kontrollkästchen unter der Option Formeln werden dann verfügbar. (Dies kann etwas verwirrend sein. Warum Microsoft das Optionsfeld Konstanten einige Kontrollkästchen unter einem anderen Optionsfeld steuern ließ, ist nicht sofort klar.)

  2. Stellen Sie sicher, dass alle Kontrollkästchen unter dem Optionsfeld Formeln aktiviert sind. (Sie sollten standardmäßig ausgewählt sein.)

  3. OK klicken. Excel wählt alle Konstanten (Zellen, die keine Formeln enthalten) im Arbeitsblatt aus.

  4. Drücken Sie die Entf-Taste.

Dies funktioniert hervorragend, wenn Sie nur gelegentlich den Nicht-Formel-Inhalt eines Arbeitsblatts löschen müssen. Wenn Sie dies öfter tun müssen, können Sie einfach die oben genannten Schritte mit dem Makrorecorder aufzeichnen. Wenn Sie möchten, können Sie auch Ihr eigenes Makro von Grund auf neu erstellen, z. B. das folgende:

Sub ClearAllButFormulas()

Dim wks As Worksheet

'ignore errors in case there is only formulas     On Error Resume Next     For Each wks In Worksheets         wks.Cells.SpecialCells(xlCellTypeConstants).ClearContents     Next     On Error GoTo 0     Set wks = Nothing End Sub

Dieses Makro ist besonders nützlich, wenn Sie alle Nichtformelzellen in einer gesamten Arbeitsmappe löschen müssen. Der Grund dafür ist, dass das Löschen für jedes Arbeitsblatt in der gesamten Arbeitsmappe durchgeführt wird, ohne dass Sie das Löschen manuell durchführen müssen.

Bei der Verwendung dieses Makros ist Vorsicht geboten. Stellen Sie sicher, dass Sie wirklich alles löschen möchten, außer Zellen, die Formeln im Arbeitsblatt oder in der Arbeitsmappe enthalten, bevor Sie dieses Makro ausführen. Es wäre eine Schande, versehentlich den Inhalt von Zellen loszuwerden, die Sie wirklich behalten mussten. Wenn Sie über eine solche Möglichkeit etwas zimperlich sind, möchten Sie möglicherweise die folgende Version des Makros verwenden:

Sub ClearAllButFormulas2()

Dim wks As Worksheet     Dim sTemp As String     Dim iCheck As Integer

sTemp = "This macro deletes everything in the current "

sTemp = sTemp & "workbook except formulas. Once done, "

sTemp = sTemp & "it cannot be undone." & vbCrLf & vbCrLf     sTemp = sTemp & "Are you sure you want to continue?"



iCheck = MsgBox(sTemp, vbYesNo + vbExclamation, "Warning!")



If iCheck = vbYes Then         'ignore errors in case there is only formulas         On Error Resume Next         For Each wks In Worksheets             wks.Cells.SpecialCells(xlCellTypeConstants).ClearContents         Next         On Error GoTo 0     Else         MsgBox "Operation cancelled."

End If End Sub

In dieser Version wird ein Meldungsfeld angezeigt, in dem Sie gefragt werden, ob Sie das Löschen wirklich durchführen möchten. Das Ergebnis ist, dass Sie weniger Chancen haben, Ihre Arbeitsmappe versehentlich durcheinander zu bringen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (9097) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Alles außer Formeln löschen.