Office: (Office 2016 Mac) Formelwert per copy & paste ändern

Hallo Allerseits.

Ich hab da wieder mal ein Problem:

In Tabelle2 in Zelle A5 steht die Formel

Code:

=Liste1!$A2

Diese bildet mir den Wert der Zelle A1 aus Tabelle1 ab.
Nun möchte ich das in weiteren Feldern fortführen. Das sollte so aussehen:

In Feld
D5 sollte der wert aus A3 stehen
G5 = A4
J5 = A5

dann in
A13 = A6
D13 = A7
G13 = A8
J13 = A9

dann wieder in
A21 = A10
D21 = A11
G21 = A12
J21 = A13

und so fort.

Geht das, und wenn ja, wie? Ich verzweifle, wenn ich jede Formel manuell eingeben muss.

Viele Grüße,
Daniel

 

Hallo Daniel,

nachfolgendes VBA-Makro in ein allgemeines Codemodul kopieren

Code:

Option Explicit

Public Sub FormelnErzeugen()
  Dim BisZeile$, ZeileN As Long
  Dim Zeile As Long, ZeileVon As Long
  Dim Spalte As Long
  Dim rgZelle As Range
  
  BisZeile$ = InputBox(Prompt:="Format: BisZeile", _
                       Title:="Eingabe der Bis-Zeilennummer", _
                       Default:="99")
  If Len(BisZeile$) = 0 Then Exit Sub
  ZeileN = BisZeile$
  If ZeileN < 1 Then Exit Sub
  
  ZeileVon = 2 'beginnend bei dieser Zeile
  
  For Zeile = 5 To ZeileN Step 8
    Set rgZelle = Range("A" & Zeile)
    For Spalte = 1 To 10 Step 3 'Spalten A,D,G,J
       rgZelle.FormulaR1C1 = Replace("=RzC1", "z", ZeileVon)
       Set rgZelle = rgZelle.Offset(0, 3)
       ZeileVon = ZeileVon + 1
    Next Spalte
  Next Zeile
  
  Range("A5").Formula = "=Liste1!$A2"
  
End Sub

Vorgangsweise:
1) Das Arbeitsblatt auswählen, in dem die Formeln mittels obigen Makros erzeugt werden sollen.
2) Die Tastenkombination Alt+F8 drücken und den Button "Ausführen" drücken, um das Makro "FormelnErzeugen" auszuführen.
3) Das Makro verlangt daraufhin die Eingabe der letzten Zeilennummer für die Formeln (99 wird vorgeschlagen - kann übertippt werden).

 

Hallo Anton.

Oh Mann. Makros ...

Ich versuchs mal und gebe Bescheid. Auf jeden Fall mal vielen, vielen Dank für die Hilfe und die Beschreibung.