bin kein großer VBA-user, deshalb bitte nicht lästern:
In einer aus Outlook ins XL exportierten Adress-Datenbank werden die eMail-Adressen nicht als Hyperlink erkannt, sondern im Textformat dargestellt. Damit ich jetzt nicht mit rechts in jede der vielen hundert Zellen klicken und über den Dialog "Hyperlink..." den Text aus dem oberen Feld "Text anzeigen als" kopieren und im unteren Feld "e-Mail-Adresse" wieder einfügen muß, habe ich versucht, dies über die Funktion MAKRO AUFZEICHNEN zu automatisieren.
Nun wird aber folgendes Makro erstellt:
Range("BD116").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"mailto:wx@yz.de", TextToDisplay:="wx@yz.de"
Ich möchte aber eigentlich, dass beim Starten des Makros der Text der GERADE AKTIVEN ZELLE (und nicht einer fixen) übernommen wird (der beim manuellen öffnen des oben beschriebenen Dialogs ja auch automatisch angezeigt wird) und dieser Text entsprechend auch im Feld "E-Mail-Adresse" eingefügt wird.
Da kann mir "Unwissendem" doch bestimmt jemand helfen, oder...:-)
Schon mal vielen Dank!!!
UlfK