Array Variant, Hyperlinks kopieren?
Andi
gibt es eine Methode Excel Zellen incl. angezeigter Werte & Hyperlinkaddresse in ein Array Typ Variant zu kopieren und in eine andere Tabelle zu schreiben? Stehe momentan absolut auf dem Schlauch!
Oder ist es nur machbar über das Objekt Range?
Der Dirty Code unten soll meine bisherige Methode darstellen.
THX
Andi
Beispiel:
Function SetzeHyperlinkUeberArray()
Dim arrGet() as variant
Dim Tab2 as object
Set Tab2 = Thisworkbook.sheets("Tabelle2")
arrGet = arrCube
Tab2.cells(1,1) = arrGet(1) 'Hier wird nur der Wert übertragen, aber kein Hyperlink, keine _
Formate Warum?
Set Tab2 = Nothing
End
Function
Function arrCube() as variant
Dim arrCells(1) as variant
Dim Tab1 as object
Set Tab = Thisworkbook.sheets("Tabelle1")
arrCells(1) = Tab1.cells(1,1) ' Zelle mit Hyperlink, Text:= "00001" und Formatiert
arrCube= arrCells
Set Tab1 = Nothing
End
Function
Anzeige