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