Anzeige
Archiv - Navigation
1736to1740
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

Zellen als Hyperlink formatieren

Zellen als Hyperlink formatieren
06.02.2020 15:41:02
Jürgen
Hallo, ich habe eine Adresstabelle, die eine Spalte für die EMail-Adresse enthält. Wenn ich diese manuell mit einer formal gültigen EMail-Adresse beschreibe, wird sie automatisch als Link dargestellt (bei mir blau mit Unterstrich). Nun kopiere ich mir bestimmte Adressen per VBA in eine neue Tabelle (z.B. Sheets("Tabelle2").Cells(1,5)=Sheets("Tabelle1").Cells(1,7) ). In der Tabelle 2 sind die Adressen aber nicht als Hyperlink formatiert. Ich könnte sicherlich die Kopie zunächst in eine Hilfsspalte schreiben und per Formel Zielzelle =HYPERLINK(Quellzelle) arbeiten. Das erscheint mir allerdings zu kompliziert. Wie kann ich das per Makro beim Kopieren erreichen?
Vielen Dank und Gruß Jürgen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen als Hyperlink formatieren
06.02.2020 16:21:04
Hajo_Zi
warum nicht
=HYPERLINK(Sheets("Tabelle1").Cells(1,7))

AW: Zellen als Hyperlink formatieren
06.02.2020 16:32:18
Jürgen
Hallo Hajo, das hat zwei Gründe: Wie geschrieben möchte ich ja nur bestimmte Adressen rüberkopieren nämlich alle die, die als Kontaktart "Mail" hat. Außerdem wird mit der von dir beschriebenen Funktion HYPERLINK zwar (optisch) ein Hyperlink erzeugt, der aber nicht mit "mailto" verknüpft ist, so wie dies bei der manuellen Eingabe der Fall ist.
Gruß Jürgen
AW: Zellen als Hyperlink formatieren
06.02.2020 20:05:25
Hajo_Zi
Hallo Jürgen,
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Das ist nur meine Meinung zu dem Thema.
In diesem Forum bekomme ich kein Mailbenachrichtigung, weitere Antworten sind zufällig.
Gruß Hajo
Anzeige
AW: Zellen als Hyperlink formatieren
06.02.2020 23:08:26
Beverly
Hi Jürgen,
versuche es mal nach diesem Prinzip:
With Sheets("Tabelle2")
.Cells(1, 5).Hyperlinks.Add Anchor:=.Cells(1, 5), Address:=Sheets("Tabelle1").Cells(1, 7)
End With


AW: Zellen als Hyperlink formatieren
07.02.2020 14:00:35
Jürgen
Hallo Beverly, ausgehend von deinem Hinweis habe ich das jetzt so gelöst:
In einer Schleife von i=1 bis letzte Zeile
Sheets("Tabelle2").Cells(i, 5).Hyperlinks.Add Sheets("Tabelle2").Cells(i, 11), "mailto:" _
& Sheets("Tabelle2").Cells(i, 11).Value
Damit wird bei Klick auf den Link Outlook mit dem richtigen Adressaten geöffnet.
Vielen Dank!
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige