nicht angemeldet
Hallo Jörg.
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
Vielen Dank.
Jetzt sind meine schönen PHP-Skripte wirklich überflüssig... ;)
H2O
--
#*~!: Download Opera
Selfcode: [ie:% fl:( br:< va:) ls:[ fo:| rl:( n4:( ss:) de:> js:| ch:? sh:( mo:| zu:}](http://www.peter.in-berlin.de/projekte/selfcode/?code=ie%3A%25%20fl%3A(%20br%3A%3C%20va%3A)%20ls%3A%5B%20fo%3A%7C%20rl%3A(%20n4%3A(%20ss%3A)%20de%3A%3E%20js%3A%7C%20ch%3A%3F%20sh%3A(%20mo%3A%7C%20zu%3A%7D)
Decoder - Infos
#*~!: Download Opera
Selfcode: [ie:% fl:( br:< va:) ls:[ fo:| rl:( n4:( ss:) de:> js:| ch:? sh:( mo:| zu:}](http://www.peter.in-berlin.de/projekte/selfcode/?code=ie%3A%25%20fl%3A(%20br%3A%3C%20va%3A)%20ls%3A%5B%20fo%3A%7C%20rl%3A(%20n4%3A(%20ss%3A)%20de%3A%3E%20js%3A%7C%20ch%3A%3F%20sh%3A(%20mo%3A%7C%20zu%3A%7D)
Decoder - Infos
seth
Gunnar Bittersmann