Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Hyperlinks inc. Adresse kopieren

VBA Hyperlinks inc. Adresse kopieren
28.08.2015 10:07:35
Benny
Hallo, ich habe nach langer suche auch in diesem Forum keine Lösung für mein Problem gefunden und hoffe das Ihr mir hier weiterhelfen könnt.
Ich möchte einen Hyperlink via VBA von einem Blatt auf ein anderes kopieren.
Mein bisheriger Code kopiert den Hyperlink nur als Text, also nur den der in der Zelle angezeigt wird.
Anbei hier ein Auszug aus meinem Makro:
Sub kopieren()
Worksheets("POT_GES").Activate
Letzte_POT_GES = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Startfeld_POT_GES = 5
Worksheets("Z1").Activate
Letzte_Z1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For A = 4 To Letzte_Z1 Step 4
Worksheets("Z1").Activate
Artikel = Cells(A + 3, 10).Value
Worksheets("POT_GES").Activate
Cells(Startfeld_POT_GES, 11) = Artikel
...
...
...
Der Inhalt aus "Artikel wird wie gesagt nur als Text kopiert, nicht als Hyperlink.
Mit Copy und paste Spezial kann ich leider nicht arbeiten da ich insgesamt ca. 420 Zeilen durchsuche und ich keine Lösung kenne die einen schlanken Code erlaubt.
Ich hoffe Ihr habt eine Lösung die einfach ist :)

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeite mit Range.Copy Destination:= ...
28.08.2015 11:30:48
Michael
Hallo Benny!
Du schreibst aktuell den Zellwert Deiner Hyperlink-Zellen in eine Variable und füllst dann die Zielzelle mit dem Wert der Variablen. Wenn Du gleich von Anfang an kopierst, wird auch der Hyperlink übernommen (egal ob Formel-Hyperlink oder echter Hyperlink), siehe Bsp:
In Tabelle1 steht in B9 ein Hyperlink, dieser soll in Tabelle2 in A1 übernommen werden... 
Tabelle1.Range("B9").Copy Destination:=Tabelle2.Range("A1")
LG
Michael

AW: Arbeite mit Range.Copy Destination:= ...
31.08.2015 10:57:05
Benny
Servus, leider funktioniert das bei meinem Makro so nicht (oder ich sehe die Lösung noch nicht).
Das Makro durchläuft bei mir eine Arbeitsmappe mit ca. 450 Zeilen, wobei immer 4 Zeilen zu einem "Datenblock" gehören.
Mit: Tabelle1.Range("B9").Copy Destination:=Tabelle2.Range("A1") komme ich damit glaube ich nicht klar. Weiß nicht wie ich das einbauen sollte. Habe mit einer Copy Paste Lösung bereits Experementiert, jedoch läuft das Makro dann eeeewig lange oder stürzt sogar ab. Gibt es noch eine andere Lösung? Kann man einer Variablen nicht sagen das sie nicht nur Werte sondern auch die Formatierung mitnehmen soll?

Anzeige
AW: Nimm die Zeilennummer in Deine Schleife auf...
31.08.2015 11:07:34
Michael
Hallo Benny!
durchläuft bei mir eine Arbeitsmappe mit ca. 450 Zeilen
Du meinst sicherlich Tabellenblatt mit 450 Zeilen. Du kannst ja die Zeilennummer der Quell- sowie Zielzelle jeweils in eine Schleife aufnehmen, zB um von Tabelle1 B9:B459 nach Tabelle 2 B1:B450 die Hyperlinks zu übertragen:
    For i = 1 To 450
Tabelle1.Range("B" & i + 8).Copy Destination:= _
Tabelle2.Range("B" & i)
Next
Kann man einer Variablen nicht sagen das sie nicht nur Werte sondern auch die Formatierung mitnehmen soll?
Prinzipiell stellt Excel die Möglichkeit zur Verfügung nur bestimmt Eigenschaften einer kopierten Zelle zu übernehmen (nur Werte, nur Formate,... ). Das bringt Dir aber in dem Fall auch nichts - weil beim Übertragen des Hyperlink-Formats dennoch nicht der eigentlich Hyperlink kopiert wird. Das Einfachste ist hier wirklich einfach die Zelle direkt zu kopieren, w. o. beschrieben.
LG
Michael
Anzeige

308 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Anzeige
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
1
2
3
10
2
8
2
2
5
7
6
1
4
7
3
1
5
5
6
8
2
2
8
1