Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink aus Excel übernehmen

Forumthread: Hyperlink aus Excel übernehmen

Hyperlink aus Excel übernehmen
24.03.2014 09:01:24
Larissa
Hallo Excelfreunde,
ich habe eine Art Email-Newsletter aus Excel erstellt.
Den Text kopiere ich aus einer Zelle in Excel:
Sheets("NL_Text").Range("B2").Value
Wie muss der Code lauten, wenn ich einen Hyperlink aus einer Zelle B3 in die Email übernehmen möchte?
Vielen Dank für Eure Hilfe
Larissa

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 09:26:59
Oberschlumpf
Hi Larissa
wir kennen deine Datei nicht.
versuch mal (ungetestet)
.Body = .Body & Sheets("NL_Text").Range("B3").Hyperlinks(1).Address
diese Zeile schreibst du unter alle anderen Body-Zeilen.
Hilfts?
Wenn nicht, zeig uns bitte deine Bsp-Datei mit Bsp-Daten + dem Code.
Ciao
Thorsten

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 10:26:32
Larissa
Hallo Thorsten,
das klappt gut :-)
Ich nehme an, es ist normal, dass sich der Hyperlink erst nach dem Absenden aktiviert.
Noch eine Frage dazu:
In der Excelzelle mit dem Link habe ich die Anzeige angepasst, so dass nicht der lange Pfad dort steht.
In der Email wird aber der ganze Pfad übernommen.
Kann die Anzeigeinformation auch noch in das Makro mit eingebaut werden?
Lieben Gruß,
Larissa

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 10:54:47
Rudi
Hallo,
ich glaube dann musst du das als HTMLBody schreiben.
.htmlbody = Range("B2") & "<br>" & "<a href=""" & Range("B3").Hyperlinks(1).Address & """>" _
& Range("B3").Hyperlinks(1).TextToDisplay & "</a>"
Gruß
Rudi

so gehts auch...owT
24.03.2014 10:56:42
Oberschlumpf

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 10:55:06
Oberschlumpf
Hi Larissa
lösch meinen letzten Code + schreib diesen (in deiner Datei ungetestet, weil...ich kenn sie ja nich)
Schreib direkt unterhalb der Sub-Zeile erst mal diesen Code
Userbild
(hier musst du alles abtippen, da der Codetext in der Vorschau automatisch in einen Link umgewandelt wird, und ich weiß nicht, wie man das hier verhindern kann)
anstelle von Dein Text schreibst du den Text, der in der Mail angezeigt werden soll.
Und alles, was in deinem Code mit Body beginnt, musst du ändern in
HTMLbody
und dann schreibst du unter die letzte Zeile mit HTMLbody diesen Code
HTMLbody = HTMLbody & strLink
Hilfts?
Ciao
Thorsten

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 11:39:36
Larissa
Hallo Thorsten,
ginge es auch die Ansicht aus der Excelzelle zu übernehmen?
Ich werde mit jedem Newsletter den Link wieder ändern und da wäre es mir lieb, wenn ich ihn nicht immer im Code anpassen muss.
Rudi hat es schon so angedacht mit "Display...", glaube ich. Aber wenn ich seinen Code einsetze, funktioniert es noch nicht.
Lieben Gruß,
Larissa

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 11:57:29
Rudi
Hallo,
With Sheets("NL_Text")
Set objHL = .Range("B3").Hyperlinks(1)
strBody = .Range("B2") & "<br>" & "<a href=" & objHL.Address & ">" _
& objHL.TextToDisplay & "</a>"
End With
funktioniert bei mir.
Gruß
Rudi

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 13:04:13
Larissa
Hallo Rudi,
das funktioniert ganz bestimmt, nur leider weiss ich nicht genau wie ich den Code in mein Makro intigriere.
Hier ist mein Makro, wobei ich die HTML-Zeichen durch /br/ etc. ersetzt habe:

Sub SendAllx()
Dim sSheet As String
Dim sText As String
Dim sTo As String
Dim sSubject As String
Dim lRow As Long
Dim myRng As Range
With ActiveSheet
lRow = .Cells(.Rows.Count, 7).End(xlUp).Row
sSubject = Sheets("NL_Text").Range("A2").Value
For Each myRng In .Range(.Cells(2, 7), .Cells(lRow, 7))
If myRng.Value = "x" Then
sTo = .Cells(myRng.Row, 8).Value
sText = .Cells(myRng.Row, 5) & "/br/ /br/" & _
Sheets("NL_Text").Range("B2").Value & "/br/ 1. " & _
Sheets("NL_Text").Range("B3").Hyperlinks(1).Address
sText = "/font face=""Calibri""/" & sText & "//font/"
Call SendMailOutlook(sSubject, sTo, sText)
End If
Next myRng
End With
End Sub
So ist es wahrscheinlich einfacher die Displaygeschichte einzubauen.
Vielen Dank für Deine Hilfe
Larissa

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 13:31:55
Rudi
Hallo,
If myRng.Value = "x" Then
sTo = .Cells(myRng.Row, 8).Value
sText = "<font face=""Calibri"">"
sText = sText & .Cells(myRng.Row, 5) & "<br><br>"
sText = sText & Sheets("NL_Text").Range("B2").Value
sText = sText & "<br>" & "<a href="
sText = sText & Sheets("NL_Text").Range("B3").Hyperlinks(1).Address
sText = sText & "1. " & Sheets("NL_Text").Range("B3").Hyperlinks(1).TextToDisplay
sText = sText & "</a>"
sText = sText & "</font>"
Call SendMailOutlook(sSubject, sTo, sText)
End If
Gruß
Rudi

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 14:01:12
Larissa
Hi Rudi,
Dankeschön, dass Du Dir die Mühe machst das Makro anzupassen.
Die neu erstellte Email hat nur den Text aus B2 eingefügt, aber leider nicht den Hyperlink aus B3.
Kannst Du Dir erklären woran das liegt?
Lieben Gruß
Larissa

AW: Hyperlink aus Excel übernehmen
24.03.2014 14:07:32
Rudi
Hallo,
hab was vergessen.
sText = sText & Sheets("NL_Text").Range("B3").Hyperlinks(1).Address &">"
Gruß
Rudi

Anzeige
AW: Hyperlink aus Excel übernehmen
24.03.2014 14:16:45
Larissa
Hallo Rudi,
ja supitoll!!! Das klappt wunderbar!!!
Vielen dank für Deine Hilfe
Lieben Gruß
Larissa
;

Forumthreads zu verwandten Themen

Funktion Säubern ins Makro einbinden
Steven

Hallo Leute,
wie kann ich per Makro meine Artikelnummern in Spalte A (mit Überschrift) von ungewollten Importüberbleibseln (Oracle) säubern, so dass am Ende reine Nummern in Spalte A über bleiben.
(Ich weiss nicht ob es dabei wichtig ist, dass die Spalte vorher sortiert wurde. Damit hab...
22.02.2009 12:07:47
Thread-ID: 1052801
5 Beiträge
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Per VBA : Erreichbarkeit von Hyperlinks überprüfen
Hyperlinks

Hallo Leute,
ich habe eine Excel-Tabelle mit zahlreichen Hyperlinks ins WWW (diverse unterschiedliche URLs), z.B. :
http://www.irgend-eine-seite.com/forum/Beitrag4711.php
http://was-soll.das/?
http://www.meinebank.ru/konto/nepper/schlepper/Bauernfaenger.asp
http://www.abc...
25.06.2009 12:50:10
Thread-ID: 1084301
8 Beiträge
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Anzeige
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Eingebettetes Word Objekt über Excel ansprechen
Tobias

Hallo zusammen,
ich habe eine Frage. Ich habe in einem Excel Sheet ein Word Objekt eingebettet (also über Insert -> Object -> Word 2003 Dokument)
Nun habe ich da einen Text eingefügt. Jetzt möchste ich allerdings eine bestimmte Stelle mit der Replace Funktion überschreiben.
Ö...
07.07.2009 17:22:31
Thread-ID: 1086986
2 Beiträge
Termine per Makro an Outlook übertragen
Alex

Hallo,
könnt ihr mir bitte helfen, wie ein Makro aussehen muss, das per Knopfdruck Termine aus einer Excel-Tabelle nach Outlook überträgt?
Vielen Dank für Eure Hilfe
Alex
08.07.2009 23:33:21
Thread-ID: 1087285
2 Beiträge
Rücksprung über Button
HansP

Hallo!
Wie kann ich in VBA ein Fenster mit 2 Button erzeugen, bei dem der Button einen Rücksprung auf eine bestimmte Funktion / Marke auslöst bzw. der andere Button das Makro normal weiter laufen lässt?
Also sowas wie: Druck OK? Ja / Nein
JA = Goto Ende
Nein = Goto Druck
16.07.2009 14:10:29
Thread-ID: 1089063
2 Beiträge
Eingabe Maske + Überprüfung
Miller

Hallo,
ich erstelle gerade eine UserForm, zum Eingeben, von Leuten die zu einem Gespräch gebitten werden, bzw wurden.
Ich hab dazu 4 Text Boxen wobei Text Box1 und 2 den Vor/Nachnamen aufnehmen.
Das Problem ist, das ich überprfüen muss ob der Name schon Vorhanden ist, wenn nicht, d...
16.07.2009 15:46:56
Thread-ID: 1089079
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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