Hi,
es handelt sich doch um Mailadressen - oder? Diese werden von Excel als Hyperlink erkannt und damit als Spezialzellen. Deshalb kann man alle Spezialzellen in Spalte D durchlaufen (ohne dass Zellen ohne Hyperlink berücksichtigt werden) und dann die Linkadresse kopieren, wobei nach dem Kopieren die Zielzeile um 1 erhöht werden muss. Hier nochmal der Code mit ein paar Kommentaren damit du nachvollziehen kannst, was abläuft.
Sub Kopieren()
Dim hyZelle As Hyperlink ' Variable für Hyperlinkzellen
Dim lngZiel As Long ' Variable für Zielzeile
' Startzeile im Zieltabellenblatt ist 1
lngZiel = 1
' laufe über alle Zellen mit Hyperlinks in Spalte D
For Each hyZelle In Worksheets("Tabelle1").Columns(4).Hyperlinks
' Zieladresse des Hyperlinks enthält das Zeichen @
If InStr(hyZelle.Address, "@") > 0 Then
' kopiere die Hyperlinkadresse nach Tabelle2 Spalte A in Zielzeile
hyZelle.Parent.Copy Worksheets("Tabelle2").Cells(lngZiel, 1)
' Zielzeile um 1 erhöhen
lngZiel = lngZiel + 1
End If
Next hyZelle
End Sub
Erstelle im VBA-Editor ein Standardmodul und kopiere den Code dort hinein. Anschließend kannst du im Register: Ansicht -> Befehlsgruppe: Makros -> Schalter: Makros das Makro "Kopieren" aufrufen und ausführen.
Bis später, Karin