Worksheet_Change Zellbereiche neu berechnen
floh
folgendes Makro soll die Formeln eines definierten Zellbereich (AR2:AV2) in die Zeile kopieren deren Zelle das Worksheet_Change Ereignis ausgelöst hat.
dort sollen die neuen Werte ohne Formeln hinterlegt werden.
Habe mal versucht ein Makro mit absoluten Werten aufzuzeichen.
Das Ergebnis soll sich aber auf die variable Zelle beziehen die das Ereignis auslöst.
Wer kann beim Ergänzen und abändern helfen?
Private Sub Worksheet_Change(ByVal Target As Range)
1.wenn sich Werte in diesen definierten Bereichen ändern
--> ? und wenn der Zellhintergund der veränderten Zelle farblich nicht
hinterlegt oder grau ist
Dim B01 As Range
Dim B02 As Range
Set B01 = Range("A3:B10000")
Set B02 = Range("D3:E10000")
Set GB = Union(B01, B02)
If Intersect(Target, GB) Is Nothing Then Exit Sub
--> ? Bedingung Zellhintergrund farblos oder grau
2.dann führe folgenden Befehl aus:
2.1. Kopiere die Formeln aus dem Zellbereich AR2 bis AV2
in die Zeile x in den Spaltenbereich AR bis AV (wo sich der Wert geändert
hat) ein.
Range("AR26:AV26").Select
Selection.Copy
'--> ? Range("AR50").Select (Zeile deren Zelle Ereignis auslöst
variabel anstatt Zeile50)
'--> ? ActiveSheet.Paste
2.2 lasse den Bereich berechnen und danach in Werte umwandeln (=Formeln löschen)
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
'--> ? Range("AR50:AV50").Select (Zeile die Ereignis auslöst
variabel anstatt Zeile 50)
'--> ? ActiveSheet.Paste
'--> ? Application.CutCopyMode = False
2.3 kehre zurück zu der geänderten Zelle der Zeile x die das Ereignis
Worksheetchange ausgelöst hat.
'--> ?
End Sub
Gruß Floh