|
Liebes VBA Forum
Ich arbeite zurzeit an einem Makro, mit welchem wir eine Preistabelle erweitern.
Nun zu meinem Problem:
Die Formel zum Kopieren der gewünschten Felder steht.
Nun soll die Preisliste mit werten aus einer bestehenden Matrix ("=Kalkulation!A5", A6, A7, etc.) gefüttert werden.
Nur soll er dann auch die Formel am richtigen Ort wieder ansetzen.
Leider rechnet Excel den Wert aus "ActiveCell.Offset(13, 0)"--> 13
auf die Formel dazu ABER das gewünschte Feld in der Matrix steht nur 1 Feld weiter unten.
Es sollte also in der Formel nur +1 machen und nicht + 13.
Der Wert auf der entnahme Matrix steht für den ersten Datensatz bei "=Kalkulation!A5"
Es sollte dann folgendes stehen "=Kalkulation!A6"
Beim nächsten "=Kalkulation!A7"
Er macht jetzt aber "=Kalkulation!A18"
Das Makro sieht wiefolgt aus:
----------------------------------------------------------------------------------
Sub DreiHundert()
Dim x As Long
x = Range("E1").Value
For x = 1 To x
' Duplizieren Makro
'
'
Range("A4:O16").Select
Selection.Copy
ActiveCell.Offset(13, 0).Range("A1").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.Range("A4").FormulaLocal = "=Kalkulation!A5" (Hier habe ich versucht das zu lösen, ohne Erfolg)
Next
End Sub
----------------------------------------------------------------------------------
Vielen Dank für eure Expertise und Zeit.
Liebe Grüsse
Jay
|