Excel: Domain-Filterung

[Jörg Lorenz]

Hi H2O,

Klappt alles prima, aber mir stellt sich gerade noch ein Problem.
Lässt sich vielleicht noch einbauen, dass nur etwas in das dritte Feld geschrieben wird, wenn es leer ist?

Kein Problem, da gibt es viele Möglichkeiten. Eine ist:

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

Viele Grüße

Jörg