Selection aufheben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Hallo Frank,
wenn ich das richtig verstanden habe : Du willst nach dem die Werte im Bereich Range(RN1) geloescht wurden, die Werte wieder in dem Bereich "F14:O44" aufheben? Wenn ich mich nicht irre, gibt es dafuer keine einfache moeglichkeit, bzw. ein Befehl. Man koennte aber z.B. vor dem Loeschen die Werte aus dem Bereich in ein 3D-Array einlesen und dann (falls noetig) wieder die Werte aus diesem Array aufheben. Sonnst faehlt mir dazu nichts ein. Object Apllication hat eine Methode Undo, die macht aber nicht das was Du brauchst :-)! Gruss kdosi, CZ.
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" usw.)).Select
Range(RN1).ClearContents

Hallo Frank
dann machs so: Ist getestet!


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

den Rest musst Du anpassen
Gruß Dieter

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

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread