Herbers Excel/VBA-Archiv

Code für Formelkopieren allgemein schreiben

• Code für Formelkopieren allgemein schreiben von Franz W. vom 18.11.2012 14:22:52
• AW: Code für Formelkopieren allgemein schreiben - von Hajo_Zi am 18.11.2012 14:35:50
  • Danke und Folgefrage - von Franz W. am 18.11.2012 14:46:42
    • Wo ist die Folgefrage? Gruß owT - von Luc:-? am 18.11.2012 16:50:22
      • AW: Wo ist die Folgefrage? Gruß owT - von Franz W. am 18.11.2012 16:53:37

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

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"