Microsoft Excel

Herbers Excel/VBA-Archiv

Code für Formelkopieren allgemein schreiben

Betrifft: Code für Formelkopieren allgemein schreiben von: Franz W.
Geschrieben am: 18.11.2012 14:22:52

Hallo Fachleute,

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

  

Betrifft: AW: Code für Formelkopieren allgemein schreiben von: Hajo_Zi
Geschrieben am: 18.11.2012 14:35:50

Hallo Franz,

Option Explicit

Sub Formel_in_Nachbarzelle()
    ActiveCell.Copy ActiveCell.Offset(0, 1)
End Sub
GrußformelHomepage


  

Betrifft: Danke und Folgefrage von: Franz W.
Geschrieben am: 18.11.2012 14:46:42

Hallo Hajo,

super, diese 1 Zeile ersetzt ja alles.

Danke und Grüße
Franz


  

Betrifft: Wo ist die Folgefrage? Gruß owT von: Luc:-?
Geschrieben am: 18.11.2012 16:50:22

:-?


  

Betrifft: AW: Wo ist die Folgefrage? Gruß owT von: Franz W.
Geschrieben am: 18.11.2012 16:53:37

Hallo Luc,

upps, hab vergessen, den Betreff wieder zurück zu ändern. Während ich hier geschrieben hab, bin ich selber draufgekommen, hat sich also erledigt. Danke fürs Nachfragen

Grüße
Franz


 

Beiträge aus den Excel-Beispielen zum Thema "Code für Formelkopieren allgemein schreiben"