Kopieren von Formel und Wert
24.04.2018 14:11:28
Formel
mein Problem besteht darin, dass ich die Formeln aus Zeile 60 minus den Werten aus Zeile 60 in die Zeile 82 verknüpfen möchte. Bisher ist mir das nur mit einem Zwischenschritt gelungen und da ich dieses eher nicht sonderlich elegant finde nun die Frage, ob ich da etwas übersehe oder noch lernen muss.
Attribute VB_Name = "Planmeldebogen"
Sub ÄnderungPlanMeldebogen()
'Werte kopieren Erlöse
Range("F82:AB82").Formula = "=f60-f85"
Range("F60:AB60").Copy
Range("F85:AB85").PasteSpecial xlPasteValues
'Werte kopieren KSB
Range("F83:AB83").Formula = "=f61-f86"
Range("F61:AB61").Copy
Range("F86:AB86").PasteSpecial xlPasteValues
'Werte kopieren FBT
Range("F84:AB84").Formula = "=f62-f87"
Range("F62:AB62").Copy
Range("F87:AB87").PasteSpecial xlPasteValues
'TNEntfernen
Range("G82,I82,K82,M82,O82,Q82,S82,U82,W82,Y82,AA82").Value = ""
Range("G83,I83,K83,M83,O83,Q83,S83,U83,W83,Y83,AA83").Value = ""
Range("G84,I84,K84,M84,O84,Q84,S84,U84,W84,Y84,AA84").Value = ""
'Farbe in weiß
Range("f85:AB87").Font.Color = RGB(255, 255, 255)
Application.CutCopyMode = False
End Sub