Hallo liebe Community,

ich bin noch ein Frischling in der Programmierung mit VBA für Excel und komme trotz Forum und Bücher mit folgendem Problem nicht klar.

Ich habe 2 Tabellen in einer Mappe wobei ich in Tabelle 1 in Zeile "x" Spalte H eine Verknüpfung mit Tabelle 2 Zeile "y" Spalte G herstellen möchte.

Die Zeilen "x" + "y" sind dabei variabel, was noch nicht das Problem darstellt. Meine bisherigen Lösungen 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.

Hier das Makro was aber nicht ganz zum Ziel führt.

Sub Verknüpfung()

' Positionspreise in Angebot zurückspielen

               Dim Zelle1 As Range

               Dim Zeile1 As String

               Dim Zelle2 As Range

               Dim Zeile2 As String

' finden der richtigen Zeile in Tabelle2

               Sheets("Tabelle2").Select

               Zeile2 = "xx"

               Set Zelle2 = _

               Range("A:A").Find(Zeile2)   

               Zelle2.Activate

               ActiveCell.Offset(0, 6).Select

               Zelle2 = ActiveCell

 ' finden der richtigen Zeile in Tabelle1

               Sheets("Tabelle1").Select 

               Zeile1 = "pp"

               Set Zelle1 = _

               Range("A:A").Find(Zeile1)   

               Zelle1.Activate

               ActiveCell.Offset(0, 7).Select

               ActiveCell.FormulaR1C1 = Zelle2

End Sub

Die letzte Zeile (ActiveCell.FormulaR1C1 = Zelle2) birgt das Problem das ich nicht gelöst bekomme (gibt nur den Wert nicht aber die Formel in die Zelle). Wäre nett wenn mir jemand hier eine Lösung übermitteln könnte.

Vielen Dank im Voraus