Bestimmte Zeilen löschen und umwandeln?

• Bestimmte Zeilen löschen und umwandeln? von Dominik vom 01.03.2005 11:34:25
• AW: Bestimmte Zeilen löschen und umwandeln? - von Mac4 am 01.03.2005 11:41:38
  • AW: Bestimmte Zeilen löschen und umwandeln? - von Dominik am 01.03.2005 12:10:58
• AW: Bestimmte Zeilen löschen und umwandeln? - von Tobi am 01.03.2005 11:49:16

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

Beiträge aus den Excel-Beispielen zum Thema "Bestimmte Zeilen löschen und umwandeln?"