Supportnet / Forum / Tabellenkalkulation

Hi Leuts Verzweiflung pur. Ich hab hier eine Excel Datei mit 2 Spalten. In beiden stehen Mail Adressen. links ca 6000 und rechts ca 750. die linke Spalte soll genau um die Adressen aus der rechten Spalte reduziert werden. Also die Mail Adressen aus der rechten Spalte sollen in der linken gelöscht werden. Ich hab aber leider nicht die Zeit das händisch zu machen und suche nach einem Weg der Automatisierung Wer kann mir helfen? Danke im Voraus Gruß Marcel

Hallo,

mit "Bedingter Formatierung" "Formel ist" für 2 Spalte

=NICHT(ISTFEHLER(VERGLEICH(B1;A:A;)))

und "Muster" dort eine Farbe wählen.

Alle Werte in Spalte 2 die in Spalte 1 vorhanden werden dann farbig hinterlegt

Gruß

Helmut

Hi Marcel,

versuche es mit diesem Code

Sub zellinhalt_loeschen()
    Dim raZelle As Range
    Dim loLetzte As Long, loZeile As Long
    With ActiveSheet
        loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
        For loZeile = 1 To loLetzte
            Set raZelle = .Columns("A").Find(.Cells(loZeile, 2), lookat:=xlWhole, LookIn:=xlValues)
            If Not raZelle Is Nothing Then raZelle.Delete
        Next loZeile
    End With
End Sub

Angenommen wurde, dass die Adresse in Spalte A nur einmal vorkommt.

Zuvor aber eine Sicherheitskope anlegen.

Bis später,
Karin

• Difinierte Zeilen mit leerem Inhalt oder "0" in einem geschützen Arbeitsblatt löschen
• lösch und anfügeabfrage mit vba ausführen
• hallo bitte um eure Mithilfen
• Inhalt von Ordner Temp löschen?
• Access per Makro den Inhalt einer Tabelle löschen