Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1884to1888
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
1884to1888
1884to1888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Hyperlink in Zwischenablage

VBA: Hyperlink in Zwischenablage
05.06.2022 18:17:47
Beverly
Hi Helfer,
ich möchte ein Hyperlink (Linkadresse und Anzuzeigender Text sind jeweils als String bekannt) per VBA als Link in die Zwischenablage übergeben, sodass der Link anschließend mittels Strg+V irgendwo (Excelzelle, Word, Outlook) eingefügt werden kann und am Zielort dann der Anzuzeigende Text als ausführbarer Link steht? Ist das möglich und falls Ja - wie?
Bis später
Karin

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 18:34:55
{Boris}
Hi Karin,
probier mal (ungetestet):

Dim objDO As New DataObject
objDO.SetText "Dein Link"
objDO.PutInClipboard
Für den notwendigen Verweis muss ein (leeres) Userform in der Datei enthalten sein.
VG, Boris
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 18:54:50
Beverly
Hi Boris,
danke für deine Antwort, das überträgt zwar den Link in die Zwischenablage, aber eben nur als Text und ohne dazu gehörigen Anzuzeigenden Text. Der Inhalt der Zwischenablage wird dann auch nur als Text mittels Strg+V eingefügt. Mittels objDO.SetText wird m.E. auch festgelegt, dass es eben nur Text ist.
Bis später
Karin
Anzeige
AW: VBA: Hyperlink in Zwischenablage - offen
05.06.2022 19:29:16
Beverly
Sorry, vergessen auf Offen zu setzen.
Bis später
Karin
AW: VBA: Hyperlink in Zwischenablage - offen
05.06.2022 20:15:26
Firmus
Hi Karin,
eventuell hilft dir das weiter: https://docs.microsoft.com/de-de/dotnet/visual-basic/developing-apps/programming/computer-resources/storing-data-to-and-reading-from-the-clipboard
Das Clipboard unterscheidet nach Datentypen. Hilfreich für das Kopieren eines Links könnte der Typ 'benutzerdefiniert' sein.
Ganze Liste: https://docs.microsoft.com/de-de/office/vba/api/excel.xlclipboardformat
Anstelle einer leeren Userform kannst du auch einen Verweis zu Microsoft Forms 2.0 setzen. (Durchsuchen C:\Windows\SysWoW64\FM20.DLL)
Leider sind meine praktischen Erfahrungen mit nicht-Text gegen Null.
Gruß,
Firmus
Anzeige
AW: VBA: Hyperlink in Zwischenablage - offen
06.06.2022 00:24:03
Beverly
Hi Firmus,
danke für die Links - leider ist mir nicht klar, wie ich das im konreten Fall umsetzen könnte.
Bis später
Karin
AW: VBA: Hyperlink in Zwischenablage - offen
06.06.2022 09:50:27
Beverly
Hi Firmus,
wenn ich das richtig sehe, müsste einer dieser 3 Typen zum Einsatz kommen:
xlClipboardFormatLink
xlClipboardFormatLinkSource
xlClipboardFormatLinkSourceDesc
Hast du (oder jemand anderes) eine Idee, wie man der Zwischenablage den Typ zuweist?
Mit den VB-Beispielen kann ich leider nichts anfangen, da ich nicht weiß, wie man sie mit VBA umsetzen kann.
Bis später
Karin
Anzeige
AW: VBA: Hyperlink in Zwischenablage - offen
06.06.2022 11:17:50
ralf_b
laut den Links kann man mittels SetText() auch ein Format mitgeben und mittels GetFormat() prüfen ob dies in der Zwischenablage vorhanden ist.
Die Apifunktionen, die im folgenden Link erwähnt werden, lassen auch ein Format als Parameter zu.
https://docs.microsoft.com/de-de/office/vba/access/concepts/windows-api/retrieve-information-from-the-clipboard
Declare Function GetClipboardData Lib "User32" (ByVal wFormat As Long) As Long
AW: VBA: Hyperlink in Zwischenablage - offen
06.06.2022 14:37:33
Beverly
Das ist m.E. der falsche Link, da es dort darum geht, etwas aus der Zwischenablage zu extrahieren - dies wäre dann wohl sicher der richtige: https://docs.microsoft.com/de-de/office/vba/access/concepts/windows-api/send-information-to-the-clipboard
Danke, aber das nützt mir leider nicht viel, da ich mich mit API nicht auskenne. Deshalb konnte ich dort auch nicht erkennen, auf welche Weise man die Linkadresse und den Anzeigetext übergibt.
Bis später
Karin
Anzeige
AW: VBA: Hyperlink in Zwischenablage - offen
06.06.2022 15:14:58
Firmus
Hi Karin,
habe das Thema noch etwas untersucht.
1. Sobald Dataobject genutzt wird, kann nur Text übertragen werden.
2. folgendes hatte ich bei Excel Online entdeckt, getestet und funktioniert [alles nur Text :-((]

Public Sub TesteEs()
SchreibeTextInDieZwischenablage
MsgBox HoleTextVonZwischenablage
RausMitZwischenAblage
MsgBox HoleTextVonZwischenablage
End Sub
Public Sub SchreibeTextInDieZwischenablage()
Dim oData As New DataObject
Dim sText As String
sText = "Hallo Leute" & vbCrLf & "Neues von Online Excel"
With oData
.SetText sText
.PutInClipboard
End With
End Sub
Public Function HoleTextVonZwischenablage() As String
Dim oData As New DataObject
On Error Resume Next ' Brutal um falsche Formate abzuwürgen, gibt dann einen Leerstring
oData.GetFromClipboard
HoleTextVonZwischenablage = oData.GetText
End Function
Public Sub RausMitZwischenAblage()
Dim oData As New DataObject
oData.SetText ""
oData.PutInClipboard
End Sub
3. Welche Datentyp steht im Clipboard?
Mit diesem Code sind in VBA die Datentypen ermittelbar. (Damit näher an der VBA-Systematik - aber noch nicht auf dem Lösungsweg.)

Sub testit()
aFmts = Application.ClipboardFormats
For Each fmt In aFmts
If fmt = xlClipboardFormatBitmap Then
MsgBox "Clipboard contains a bitmap"
End If
End Sub
Next
4. Bypass via word
Einen Beitrag habe ich gesehen (VBA für Word): der schreibt einen Link in ein Dokument und holt ihn dort per variable wieder ab.
Sorry,
habe leider zu wenig VBA-Kenntnisse, um hier erfolgreich zu sein. Ich vermute XLS-VBA kann das nicht.
Bin damit leider raus.
Gruß,
Firmus
Anzeige
AW: VBA: Hyperlink in Zwischenablage - offen
06.06.2022 16:00:29
Beverly
Hi Firmus,
vielen Dank für deine Bemühungen - nicht immer führt alles zum gewünschten Erfolg.
Das ganze funktioniert sehr unkompliziert, wenn man den Link einfach - sicher ähnlich wie in deinem erwähnten Code für Word - in eine Zelle schreibt und diese dann kopiert. Leider ist das nicht gewünscht.
Man könnte es sicher mittels API-Funktionen lösen, da man dort den Datentyp mit übergeben kann. Ich weiß allerdings auch gar nicht, ob man damit sowohl die Linkadresse als auch den Anzuzeigenden Text übergeben kann, oder ob das dann nur die Linkadresse ist. Aber mit API kenne ich mich halt überhaupt nicht aus, sodass ich nicht einmal das definitiv sagen kann.
Bis später
Karin
Anzeige
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 20:04:13
onur 

Private Sub CommandButton1_Click()
Dim Adresse, LinkText
Adresse = "https://www.herber.de/"
LinkText = "Test"
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:=Adresse, TextToDisplay:=LinkText
Cells(1, 1).Copy
Range("A1").ClearContents
End Sub

AW: VBA: Hyperlink in Zwischenablage
05.06.2022 20:14:07
Beverly
Das ist mir bekannt - der Link soll jedoch nicht aus einer Zelle genommen werden sondern als bekannter String direkt in die Zwischenablage übergeben werden.
Bis später
Karin
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 20:31:04
onur
"Das ist mir bekannt - der Link soll jedoch nicht aus einer Zelle genommen werden sondern als bekannter String direkt in die Zwischenablage übergeben werden" - Sorry, das muss ich irgendwie überlesen haben.....
Dann halt so:

Dim Adresse, LinkText, h
Adresse = "https://www.herber.de/"
LinkText = "Test"
Set h = ActiveSheet.Hyperlinks.Add(Anchor:=Range("A1"), Address:=Adresse, TextToDisplay:=LinkText)
h.Range.Copy

Anzeige
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 21:33:32
Beverly
ich möchte ein Hyperlink (Linkadresse und Anzuzeigender Text sind jeweils als String bekannt) per VBA als Link in die Zwischenablage übergeben
Da steht nichts, dass das über eine Zelle geschehen soll...
Bis später
Karin
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 21:35:12
onur
Und was gefällt dir jetzt am ZWEITEN Code nicht?
AW: VBA: Hyperlink in Zwischenablage
05.06.2022 23:59:33
Beverly
Du weißt schon dass Range("A1") eine Zelle ist...?
AW: VBA: Hyperlink in Zwischenablage
06.06.2022 00:25:26
onur
Sorry, hast Recht. :(

307 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

Links zu Excel-Dialogen

CommandButton UserForm

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