Haben Sie ein Arbeitsblatt mit einer Reihe von E-Mail-Adressen als eine Reihe von Hyperlinks? In diesem Fall sind Sie möglicherweise an einer Möglichkeit interessiert, diese Adressen herauszuholen und als einfachen Text in Zellen einzufügen. Es gibt verschiedene Möglichkeiten, wie Sie diese Aufgabe ausführen können.

Die erste Methode besteht darin, sich daran zu erinnern, dass die Hyperlinks für E-Mail-Adressen alle mit dem Text „mailto“ gefolgt von einem Doppelpunkt beginnen. Daher können Sie eine Formel verwenden, die den ersten Teil des Hyperlinks entfernt. Wenn sich der E-Mail-Hyperlink beispielsweise in Zelle A1 befindet, können Sie die folgende Formel verwenden:

=RIGHT(A1,LEN(A1)-7)

Dies überprüft die Länge des Zelleninhalts und extrahiert dann alles mit Ausnahme der ersten sieben Zeichen, bei denen es sich um den Teil „mailto:“ handelt. Sie können auch eine Formel verwenden, die auf der Funktion SUBSTITUTE basiert:

=SUBSTITUTE(A1,"mailto:","")

Wenn Sie möchten, können Sie ein Makro verwenden, um die Konvertierung von einem Hyperlink in eine reine Text-E-Mail-Adresse durchzuführen. Das folgende einzeilige Makro ist eine benutzerdefinierte Funktion, die den konvertierten Hyperlink zurückgibt:

Function ExtractEmailAddress(rCell As Range)

ExtractEmailAddress = _       Mid(rCell.Hyperlinks(1).Address, 8)

End Function

Um das Makro zu verwenden, müssen Sie lediglich die Funktion in einer Zelle Ihres Arbeitsblatts folgendermaßen verwenden:

=ExtractEmailAddress(A1)

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2897) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier: