Zellinhalt inclusive Hyperlink kopieren

[stepcke]

Hallo Zusammen,

ich verzweifele gerade dabei, per VBA,  Daten inclusive des Hyperlinks von einer Zelle in Tabelle1   in eine Zelle in Tabelle2 zu übertragen.

Mein Ansatz nur für den Wert funktioniert:

TabZiel.Cells(i, 1).Value = Sheets(i_Blatt).Cells(i_Zeile, 1).Value 

Gefunden habe ich folgendes Beispiel

Range("A2").Copy Destination:=Tabelle2.Range("C7")

und dann versucht umzubauen:

Sheets(i_Blatt).Range(Cells(i_Zeile,1).Copy Destination:=TabZiel.Range(Cells(i,1))

Das funktioniert leider nicht.

Kann mir bitte jemand helfen?

Danke und Gruß

Stefan

[stepcke]

DA habe ich aber mal lange auf der Leitung gestanden 

Lösung gefunden:

Sheets(i_Blatt).Cells(i_Zeile, 1).Copy
TabZiel.Select
TabZiel.Cells(i, 1).Select
ActiveSheet.Paste



Makro Aufzeichnung hilft!