wie kann ich den selektierten Bereich nach dem Löschvorgang wieder aufheben.
Gruß
Frank
https://www.herber.de/bbs/user/10329.xls
Sub SheetsValue_delete()
Const RN1 = "F14:O44"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets(Array("Ma F 1", "Ma F 2", "Ma F 3", "Ma F 4", "Ma F 5", "Ma F 6", "Ma B 1", "Ma B 2", "Ma B 3", "Ma B 4", "Ma B 5", "Ma B 6", "Ma G 1", "Ma G 2", "Ma G 3", "Ma G 4", "Ma G 5", "Ma G 6", "Ma R 1", "Ma R 2", "Ma R 3", "Ma R 4", "Ma R 5", "Ma R 6", "Ma D 1", "Ma D 2", "Ma D 3", "Ma D 4", "Ma D 5", "Ma D 6")).Select
Range(RN1).ClearContents
Range(RN1).Value = 0
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub SheetsValue_delete()
Dim blatt
Const RN1 = "F14:O44"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each blatt In Sheets(Array("tabelle1", "tabelle2", "tabelle3"))
' Sheets(Array("Ma F 1", "Ma F 2", "Ma F 3", "Ma F 4", "Ma F 5", "Ma F 6", "Ma B 1", "Ma B 2", "Ma B 3", "Ma B 4", "Ma B 5", "Ma B 6", "Ma G 1", "Ma G 2", "Ma G 3", "Ma G 4", "Ma G 5", "Ma G 6", "Ma R 1", "Ma R 2", "Ma R 3", "Ma R 4", "Ma R 5", "Ma R 6", "Ma D 1", "Ma D 2", "Ma D 3", "Ma D 4", "Ma D 5", "Ma D 6")).Select
blatt.Activate
Range(RN1).ClearContents
' Sheets("Einzelsummen").Select
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub SheetsValue_delete()
Const RN1 = "F14:O44"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Ma F 1").Range(RN1) = 0
Sheets(Array("Ma F 1", "Ma F 2", "Ma F 3", "Ma F 4", "Ma F 5", "Ma F 6", "Ma B 1", "Ma B 2", "Ma B 3", "Ma B 4", "Ma B 5", "Ma B 6", "Ma G 1", "Ma G 2", "Ma G 3", "Ma G 4", "Ma G 5", "Ma G 6", "Ma R 1", "Ma R 2", "Ma R 3", "Ma R 4", "Ma R 5", "Ma R 6", "Ma D 1", "Ma D 2", "Ma D 3", "Ma D 4", "Ma D 5", "Ma D 6")).FillAcrossSheets Sheets("Ma F 1").Range(RN1)
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub