Herbers Excel-Forum - das Archiv
Bestimmte Zeilen löschen und umwandeln?
Betrifft: Bestimmte Zeilen löschen und umwandeln?
von: Dominik
Geschrieben am: 01.03.2005 11:34:25
Hallo zusammen,
habe hier eine Datei
https://www.herber.de/bbs/user/18973.xls bei der alle Zeilen ausser der Zeile mit der Mailadresse gelöscht werden und die eMail-Zeile ohne das voranstehende "EMail: " umgewandelt werden sollen so daß nur noch die reinen Mailadressen übrig bleiben die ich dann ins Outlook importieren kann. Hat jemand ein Makro wie sowas zu bewerkstelligen ist? Wäre echt super!
Betrifft: AW: Bestimmte Zeilen löschen und umwandeln?
von: Mac4
Geschrieben am: 01.03.2005 11:41:38
Hi Dominik,
so sollte es gehen:
Sub test()
Dim i
For i = [A65536].End(xlUp).Row To 1 Step -1
If Left(Cells(i, 1), 5) <> "Email" Then
Rows(i).Delete
Else
Cells(i, 1) = WorksheetFunction.Substitute(Cells(i, 1), "Email: ", "", 1)
End If
Next
End Sub
Marc
Betrifft: AW: Bestimmte Zeilen löschen und umwandeln?
von: Dominik
Geschrieben am: 01.03.2005 12:10:58
Super, hat geklappt - tausend Dank!
Betrifft: AW: Bestimmte Zeilen löschen und umwandeln?
von: Tobi
Geschrieben am: 01.03.2005 11:49:16
Hi Dominik,
der Befehl REPLACE sollte helfen.
Z.B. =REPLACE(A4;1;7;) In diesem Fall würde im neuen Feld "Email:" nicht mehr
erscheinen.
Gruss
Tobi