|
Hallo Ernst,
du beschreibst es eingangs so
< brachten mir nur den Wert der entsprechenden Zelle aus Tabelle 2 in Tabelle 1, ich jedoch möchte die Formel [z.B. =aufrunden(Tabelle1!H16;1)] in der Zelle stehen haben.
dann verstehe ich die Aufgabe so
Sub Main()
'kopiere nur Formeln (mit relativ oder absoluten Bezügen)
'von Qellblatt, QuellSpalte, QuellZeile(Wert)
'nach ZielBlatt, ZielSpalte ZielZeile(Wert)
'
Call DoIt("Tabelle2", "A:A", "xx", "Tabelle1", "A:A", "pp")
'
End Sub
'
Sub DoIt(Qellblatt, QuellSpalte, QuellZeile, ZielBlatt, ZielSpalte, ZielZeile)
'
Sheets(ZielBlatt).Range(ZielSpalte).Find(ZielZeile).Offset(0, 7).Formula = _
Sheets(Qellblatt).Range(QuellSpalte).Find(QuellZeile).Offset(0, 6).Formula
'
End Sub
Gruss H27
|