nicht angemeldet
Hallo Jörg.
Wer es umständlich mag ... ;-)
Naja, ich habe noch _nie_ mit Makros gearbeitet und habe überhaupt keine Ahnung davon :(
Und ich denke mal es lohnt sich für mich nicht, wenn ich mich jetzt mit VB und Makros beschäftige, da ich es warscheinlich so schnell nicht mehr brauchen werde (das letzte Mal, dass ich Excel benutzt habe ist schon ein paar Monate her).
Ich würde es so machen, wenn die Daten in Spalte A beginnen:
Die Daten sollen aus Spalte A in Spalte C kommen.
Sie beginnen in Zeile 2.
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
Habe ich ausprobiert, nachdem ich halbwegs raushabe, wie das mit den Makros und VB läuft ;)
"Fehler beim Kompilieren:
Außerhalb einer Prozedur ungültig"
? Ich habe keine Ahnung was gemeint ist :-/
Danke,
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
seth
Gunnar Bittersmann