Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Array Variant, Hyperlinks kopieren?

Array Variant, Hyperlinks kopieren?
Andi
Hallo Zusammen,
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


		

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Ja, Letzteres als Direktübernahme! Gruß owT
26.01.2011 19:42:34
Luc:-?
:-?
Wie sieht die Methode aus?
27.01.2011 08:04:19
Andi
Letzteres? Diese Methode? THX Andi
Function SetzeHyperlinkUeberArray()
Dim arrGet() as variant
Dim Tab2 as object
Set Tab2 = Thisworkbook.sheets("Tabelle2")
arrGet = arrCube
Tab2.Range(Tab2.cells(1,1),Tab2.cells(1,1)) = arrGet(1) ' Range Objekt
Set Tab2 = Nothing
End 

Function

Function arrCube() as variant
Dim arrCells(1) as variant
Dim Tab1 as object
Set Tab1 = Thisworkbook.sheets("Tabelle1")
arrCells(1) = Tab1.Range(Tab1.cells(1,1),Tab1.cells(1,1)) ' Range Objekt
arrCube= arrCells
Set Tab1 = Nothing
End Function

Anzeige
Wenn's fktt!? Range war schon gemeint... orT
27.01.2011 15:51:09
Luc:-?
Gruß Luc :-?

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige