Application.Calculation = xlManual
'hier dein Code
Application.Calculation = xlAutomatic
Sub WerteLoeschen()
Dim Zellen As Range, StatusCalc As Long
With Application
StatusCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEventse = False
.ScreenUpdating = False
End With
On Error GoTo Fehler 'Wenn Blattname falsch oder keine Zellen mit Werten vorhanden
With ThisWorkbook.Worksheets("Sheet1")
Set Zellen = .Range("A5:DW3000").SpecialCells(xlCellTypeConstants)
If Not Zellen Is Nothing Then Zellen.ClearContents
End With
'usw.
Fehler:
With Application
.Calculation = StatusCalc
.EnableEventse = True
.ScreenUpdating = True
End With
End Sub
Sub WerteLoeschen()
Dim Zellen As Range, StatusCalc As Long
With Application
StatusCalc = .Calculation
.Calculation = xlCalculationManual
.EnableEventse = False
.ScreenUpdating = False
End With
On Error GoTo Fehler 'Wenn Blattname falsch oder keine Zellen mit Werten vorhanden
With ThisWorkbook.Worksheets("Sheet1")
Set Zellen = .Range("A5:DW3000").SpecialCells(xlCellTypeConstants)
If Not Zellen Is Nothing Then Zellen.ClearContents
End With
'usw.
Fehler:
With Application
.Calculation = StatusCalc
.EnableEventse = True
.ScreenUpdating = True
End With
End Sub
Sub WerteLoeschen()
'Inhalte in Zellen ohne Formel löschen
Dim Zellen As Range
On Error GoTo Fehler 'Wenn Blattname falsch oder keine Zellen mit Werten vorhanden
With ThisWorkbook.Worksheets("Sheet1")
Set Zellen = .Range("A5:DW3000").SpecialCells(xlCellTypeConstants)
If Not Zellen Is Nothing Then Zellen.ClearContents
End With
Fehler:
End Sub
ThisWorkbook.Worksheets("Sheet1").Range("A5:DW3000").ClearContents
Private Sub CommandButton1_Click()
'relevante Spalten aus Quelldatei: DacsUser,MaxCount,Type,Global_Name,Description
'1. TABELLE WIRD GELEERT
ThisWorkbook.Worksheets("Sheet1").Range("Q5:DW3000").ClearContents
Um Inhalte in einem Excel-Dokument zu löschen, ohne dabei Formeln zu entfernen, kannst du die Methode ClearContents in VBA verwenden. Hier sind die Schritte:
Öffne den VBA-Editor (ALT + F11).
Erstelle ein neues Modul (Rechtsklick auf "VBAProject" > Einfügen > Modul).
Füge den folgenden Code ein:
Sub ClearContent()
Dim Zellen As Range
With ThisWorkbook.Worksheets("Sheet1")
Set Zellen = .Range("A5:DW3000").SpecialCells(xlCellTypeConstants)
If Not Zellen Is Nothing Then
Zellen.ClearContents
End If
End With
End SubFühre das Makro aus (F5), um die Inhalte zu löschen.
Problem: Alle Formeln werden ebenfalls gelöscht.
SpecialCells(xlCellTypeConstants) verwendest.Problem: Der Makro läuft langsam.
Application.Calculation = xlManual
Application.ScreenUpdating = False
' Dein Code hier
Application.Calculation = xlAutomatic
Application.ScreenUpdating = TrueFalls du keine VBA-Skripte verwenden möchtest, kannst du auch die folgenden Möglichkeiten in Excel nutzen:
Hier sind einige praktische Beispiele, wie du ClearContents in verschiedenen Szenarien verwenden kannst:
Bestimmte Zellen löschen:
ThisWorkbook.Worksheets("Sheet1").Range("B2:B10").ClearContentsAlle Zellen einer bestimmten Zeile löschen:
ThisWorkbook.Worksheets("Sheet1").Rows(5).ClearContentsInhalte in einem spezifischen Bereich löschen, ohne die Formeln zu beeinflussen:
Dim rng As Range
Set rng = ThisWorkbook.Worksheets("Sheet1").Range("D1:D100")
rng.SpecialCells(xlCellTypeConstants).ClearContents.Clear mit Bedacht: .Clear entfernt sowohl den Inhalt als auch die Formatierung. Wenn du nur den Inhalt löschen möchtest, bleibe bei .ClearContents.Nutze Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinen Makros, um sicherzustellen, dass der Code auch bei unerwarteten Eingaben stabil bleibt.
On Error Resume Next
' Code hier
On Error GoTo 01. Was passiert, wenn ich .ClearContents verwende?
Mit .ClearContents werden nur die Werte in den Zellen gelöscht, jedoch bleiben die Formeln und Formatierungen erhalten.
2. Wie kann ich Inhalte in Excel schneller löschen? Deaktiviere die Bildschirmaktualisierung und die automatische Berechnung, um die Ausführungsgeschwindigkeit deines Makros zu erhöhen.
3. Gibt es eine Möglichkeit, alle Inhalte in einem bestimmten Bereich zu löschen?
Ja, du kannst den Befehl ClearContents auf einen Bereich anwenden, um alle Inhalte dort zu löschen:
ThisWorkbook.Worksheets("Sheet1").Range("A1:A100").ClearContentsDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen