Wenn Email XY

[skzy]

Moin,

Ich habe eine Spalte bestehend aus diversen Mailadressen. In dieser Spalte befinden sich jedoch auch Test Emails. Diese enden auf @test.de oder auf @xy.de

Nun möchte ich eine bereinigte Spalte haben, die diese Mailadressen rausschmeißt. Ich habe es mit einem Platzhalter versucht, jedoch erfolglos. 

Danke für eure Hilfe.

[Werner.M]

Hallo,

das sind doch mit Bordmitteln nur ein paar Mausklicks.

1. Komplette Spalte mit den Mailadressen kopieren und in der Zielspalte einfügen
2. Komplette Zielspalte markieren - Start - Suchen und Auswählen - Ersetzen
    a: Suchen nach: *@test.de
    b: Ersetzen durch: leer lassen
    c: Klick auf Alle ersetzen
3. Schritt 2 mit *@xy.de durchführen
4. Zielspalte sortieren


Gruß Werner

[skzy]

Danke für den Hinweis, die Möglichkeit funktioniert zwar, wäre aber sehr mühselig da sich die Ursprungsdaten täglich ändern. Da ich den Prozess nicht jeden Tag neu durchführen möchte, muss da irgendeine Automatisierung rein...

[Werner.M]

Hallo,

da könnte man jetzt durchaus auf die Idee kommen, den kompletten Vorgang einmal auszuführen und dabei den Makrorekorder mitlaufen zu lassen, dann hätte man das als Makro.

Und was bedeutet: Nun möchte ich eine bereinigte Spalte haben

Soll eine neue Spalte mit den bereinigten Daten erstellt werden, oder kann/soll die Originalspalte mit den Daten bearbeitet werden?

Gruß Werner

[skzy]

Es soll eine neue, bereinigte Spalte entstehen. Ich würde eine Lösung bevorzugen, in der mit einer Formel gearbeitet wird um den Arbeitsaufwand zu minimieren. Der Makro würde außerdem die Ursprungsdaten verfälschen.

[bug99]

warum keine Beispieldatei ??

richtig löschen geht nur mit VBA
mit Excel kannst du nur doppelte löschen, d.h. aber eine bleibt dennoch stehen

du kannst in eine Nachbarspalte eine Formel schreiben, welche die zu löschenden kennzeichnet,
dann diese nach unten sortieren und den Block von Hand löschen, bzw. dir richtigen in deine neue Spalte kopieren

[skzy]

Anbei eine Beispieldatei.

[00202]

Hallo,

eventuell so?
[attachment=38052]

[bug99]

evtl so

[Werner.M]

Hallo,



dazu: Ich würde eine Lösung bevorzugen, in der mit einer Formel gearbeitet wird um den Arbeitsaufwand zu minimieren. Der Makro würde außerdem die Ursprungsdaten verfälschen.



Sage ich nur Häähhh?

Was für einen Arbeitsaufwand?? Was würde verfälscht??

Code:

Sub Schaltfläche1_Klicken()
Dim loLetzte As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle1")
    loLetzte = .Cells(.Rows.Count, "C").End(xlUp).Row
    .Range("C8:C" & loLetzte).Copy .Range("E8")
    .Range("E8:E" & loLetzte).Replace "*@Test*", "", xlPart
    .Range("E8:E" & loLetzte).Replace "*@xy*", "", xlPart
    .Sort.SortFields.Clear
    .Sort.SortFields.Add Key:=Range("E8:E" & loLetzte), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With .Sort
        .SetRange Range("E8:E" & loLetzte)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
End With
End Sub

Gruß Werner