Code für Formelkopieren allgemein schreiben
18.11.2012 14:22:52
Franz
ich möchte per Makro eine Formel in die direkt rechts daneben liegende Zelle kopieren. Das hab ich aufgezeichnet:
Sub Formel_in_Nachbarzelle()
Range("D17").Select
Application.CutCopyMode = False
Selection.Copy
Range("E17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Nun soll der Code aber nicht nur für D17 gelten, sondern bei jeder ausgewählten Zelle funktionieren. Dazu muss also "Range("D17").Select" raus:
Sub Formel_in_Nachbarzelle()
Application.CutCopyMode = False
Selection.Copy
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Nur wie muss ich jetzt die Nachbarzelle ansprechen? Ich bitte um Eure Hilfe.
Danke schonmal und Grüße
Franz
Anzeige