ich möchte aus dem Text beginnend in der Zelle B21 zeilenweise die einzelnen E-Mailadressen aus dem Zelleninhalt auslesen und in die gleiche Zeile eine Spalte daneben schreiben. Leider funktioniert es nicht. Kann mir jemand helfen?
Sub email_finden()
Dim i As Integer, j As Integer, vor As Integer, nach As Integer
Dim zellentext As String, email As String
For j = 1 To 3
zellentext = Cells(20 + j, 2).Value
For i = 1 To Len(zellentext)
If Mid(zellentext, i, 1) = "@" Then
For vor = i To 1 Step -1
If Mid(zellentext, vor, 1) = " " Then
For nach = i To Len(zellentext)
If Mid(zellentext, nach, 1) = " " Then
vori = vor + 1
email = Mid(zellentext, vor, nach - vor)
MsgBox email
Exit Sub
End If
Next nach
End If
Next vor
End If
Next i
Next j
End Sub
Danke!