Email aus Hyperlink extrahieren

Forumthread: Email aus Hyperlink extrahieren

27.07.2004 22:35:12

Dierk

Hallo,
ich habe folgendes Problem, ich habe eine Excel Tabelle mit hunderten Emails allerdings sind diese alle als Hyperlink in der Tabelle hinterlegt. Ich bräuchte diese nun allerdings im Klartextformat sprich aaa@bbb.com. Wie kann ich diese Emails umwandeln ohne jede einzeln anklicken un kopierne zu müssen.
Vielen Dank
Dierk

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Email aus Hyperlink extrahieren

Michi
AW: Email aus Hyperlink extrahieren

27.07.2004 23:11:07

Dierk

AW: Email aus Hyperlink extrahieren

Michi

Sub test()

    Dim h As Hyperlink

    For Each h In ActiveSheet.Hyperlinks
        If Left(h.Address, 7) = "mailto:" Then
            h.TextToDisplay = Right(h.Address, Len(h.Address) - 7)
            h.Delete
        End If
    Next h

End Sub

mfg
mk

AW: Email aus Hyperlink extrahieren

27.07.2004 23:11:07

Dierk

Hallo Michi,
super hat geklappt. Vielen Dank auch noch
Gruß Dierk

Forumthread: Email aus Hyperlink extrahieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread