Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1792to1796
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

Hyperlinks über VBA kopieren

Hyperlinks über VBA kopieren
19.11.2020 14:24:46
Andreas
https://www.herber.de/bbs/user/141703.xlsm
Hallo zusammen,
ich kenne mich leider nicht in Sachen VBA aus. Ich habe gerade eine Excel Liste, in dem ich neue Kundendaten in ein Formular eingebe. Sind alle Daten eingeben, so drücke ich auf einen Button, sodass die Daten in eine separate Liste eingefügt werden, indem alle anderen Kunden stehen.
Einer dieser Kundendaten ist, dass man die Website über Hyperlinks mit eingibt. Gerade ist bei mir aber das Problem, dass bei Klicken auf den Button nur der Text mit kopiert wird - sprich ich kann in der Übersicht nicht auf den Hyperlink drücken. Was muss ich ändern, damit der Hyperlink mitgenommen wird? Vielen Dank euch schon mal! :)
Hier mein Makros:
Sub Zulieferer()
Dim Kategorie As String
Dim Zulieferername As String
Dim Hyperlink As String
Worksheets("Formular für neue Zulieferer").Select
Kategorie = Range("A10")
Zulieferername = Range("A15")
Hyperlink = Range("A20")
Worksheets("Zulieferunterlagen").Select
Worksheets("Zulieferunterlagen").Range("B14").Select
If Worksheets("Zulieferunterlagen").Range("B14").Offset(1, 0)  "" Then
Worksheets("Zulieferunterlagen").Range("B14").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Kategorie
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Zulieferername
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Hyperlink
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlinks über VBA kopieren
19.11.2020 23:53:55
Yal
Hallo Andreas,
nach der letzten Anweisung
ActiveCell.Value = Hyperlink
noch
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection
hinzufügen.
Viel Erfolg
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige