Excel: Domain-Filterung

[Jörg Lorenz]

Hi H2O,

Ich habe gerade einen Weg gefunden...
Ich exportiere die Datei erst als CSV-Datei und dann kann jetzt muss ich mir in PHP nur noch ein kleines Programm dafür schreiben :)

Wer es umständlich mag ... ;-)

Ich würde es so machen, wenn die Daten in Spalte A beginnen:

Dim lngZ As Long
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Cells(lngZ, 3) = Right(Cells(lngZ, 1), Len(Cells(lngZ, 1)) - InStr(1, Cells(lngZ, 1), "@"))
Next

Viele Grüße

Jörg