Guten Tag zusammen.
Ich möchte aus der Tabelle1, Spalte "D2" die Formel nach Tabelle2 Spalte D2 beginnend bis zur letzten Spalte kopieren. Ich finde nirgends den richtigen Codetext hierfür.
Freue mich über eure Unterstützung und bedanke mich für eure Unterstützung. Gruß Josef
Ich möchte aus der Tabelle1, Spalte "D2" die Formel nach Tabelle2 Spalte D2 beginnend bis zur letzten Spalte kopieren. Ich finde nirgends den richtigen Codetext hierfür.
Freue mich über eure Unterstützung und bedanke mich für eure Unterstützung. Gruß Josef
Code:
Option Explicit
Private Sub kopiere_Formel_Wert()
Dim letzte As Long
With Worksheets("Tabelle1")
.Range("D2").Copy
Worksheets("Tabelle2").Range("D2:D100").PasteSpecial xlPasteValues
.Range("C2").Copy
Dim quelle_letzte As Long
Worksheets("Tabelle2").Range("C2:C100").PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
End With
letzte = 0
quelle_letzte = 0
End Sub