Split
31.03.2005 14:17:22
Andreas
hab mal ne Frage bezüglich der Split Funktion.
Ich hab ne Liste mit ca. 300 email Adressen. Diese soll jetzt so durchlaufen werden, dass ich nur den Domainnamen habe. Beispiel:
aus max.mustermann@musterfirma.de soll in einer eigenen Zelle
musterfirma.de reingeschrieben werden. Mit folgender Funktion wird mir aber max.mustermann in D4 reingeschrieben.
Sub Split()
Dim txt As String
Dim x As Variant
Dim I As Long
txt = Sheets("Tabelle2").Range("C3").Value
x = Split(txt, "@")
Range("D4").Value = UBound(x, 1)
End Sub
Kann mir jemand ne Hilfestellung geben. Auch bezüglich der zu verwendenden Schleife.
Vielen Dank schon mal
gruß Andreas