Herbers Excel-Forum - das Archiv
Zwei Spalten - zwei Werte - beide sollen weg
- Zwei Spalten - zwei Werte - beide sollen weg von Silvio vom 27.11.2003 16:14:40
- AW: Zwei Spalten - zwei Werte - beide sollen weg - von Holger am 27.11.2003 16:22:22
- AW: Zwei Spalten - zwei Werte - beide sollen weg - von cabbydit am 27.11.2003 16:32:39
- AW: Zwei Spalten - zwei Werte - beide sollen weg - von Holger am 27.11.2003 16:22:22
 |
Betrifft: Zwei Spalten - zwei Werte - beide sollen weg
von: Silvio
Geschrieben am: 27.11.2003 16:14:40
Hi,
habe mal eine Frage ich möchte bei mir eine Liste von Daten säubern die nicht mehr aktuell sind.
Habe also die vollständige Liste in Spalte A und die Daten die aus dieser Liste gelöscht werden in der Spalte B. Nun sollen alle Daten die in der Liste A mit denen von der Liste B übereinstimmen gelöscht werden.
Alle werden nicht übereinstimmen, da die Daten aus vier verschiedenen Listen stammen. Deshalb müssen die Daten die nicht übereinstimmen in Spalte B bleiben um das Prozedere dann mit der anderen Liste durchzuführen.
Über Funktionen funktionierte das nicht daher wende ich mich jetzt an euch. Jemand einen Tip?
 |
Betrifft: AW: Zwei Spalten - zwei Werte - beide sollen weg
von: Holger
Geschrieben am: 27.11.2003 16:22:22
Hilfsspalte einfügen und vergeleichen.
Spalte c mit Formel wenn(a1=b1;"!!!!!";"") und kopieren.
Allle Zeilen mit !!!! können dann gelöscht werden. Vorher die Spalte c durch kopieren und inhalte einfügen ersetzen dann kannst du auch nch !!! sortieren lassen
|
Betrifft: AW: Zwei Spalten - zwei Werte - beide sollen weg
von: cabbydit
Geschrieben am: 27.11.2003 16:32:39
Hi, folgendes habe ich nur mal eben so runtergeschrieben, funzt noch nicht komplett, muss leider los.
Ist aber auf jeden Fall der richtige Ansatz.
Gruß, Andre
Sub LoeschDoppelt()
For Each cr In Workbooks("Mappe1.xls").Worksheets("Tabelle1").Range("A1:A10")
If cr.Value = ActiveCell.Offset(0, 1).Value Then
a = cr.Cells.AddressLocal
MsgBox "Treffer in Zelle " & a
Worksheets("Tabelle1").Range(cr).ClearContents
End If
Next
End Sub
| |