Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmte Texte löschen

Bestimmte Texte löschen
03.09.2013 13:07:55
Christian
Hallo an alle,
ich hoffe es hat jemand eine Idee, wie ich das machen kann, ich möchte alle Texte meiner Tabelle in Spalte A löschen, die in keiner vorherigen Zeile in Spalte F stehen und exakt einmal in einer nachfolgenden Zeile in Spalte F stehen, wobei ganze Zellen verglichen werden sollen, nicht Teile einer Zelle.
Derselbe Vergleich dann umgekehrt, dass die Texte in Spalte F mit Spalte A verglichen werden sollen und entsprechend die Texte gelöscht werden.
Das in derselben Zeile 2x derselbe Text steht ist ausgeschlossen.
Kann mir da jemand helfen?
Gruß und vielen Dank
Christian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Texte löschen
03.09.2013 13:56:13
ChrisL
Hi Christian
Schau mal ob das passt...
Sub t()
Dim iZeile As Long, letzteZeile As Long
letzteZeile = Range("A65536").End(xlUp).Row
For iZeile = 2 To letzteZeile
If WorksheetFunction.CountIf(Range("F1:F" & iZeile - 1), Cells(iZeile, 1)) = 0 And _
WorksheetFunction.CountIf(Range("F" & iZeile + 1 & ":F" & letzteZeile), Cells(iZeile, 1)) _
= 1 Then Cells(iZeile, 1).ClearContents
Next iZeile
For iZeile = 2 To letzteZeile
If WorksheetFunction.CountIf(Range("A1:A" & iZeile - 1), Cells(iZeile, 6)) = 0 And _
WorksheetFunction.CountIf(Range("A" & iZeile + 1 & ":A" & letzteZeile), Cells(iZeile, 6)) _
= 1 Then Cells(iZeile, 6).ClearContents
Next iZeile
End Sub
cu
Chris

Anzeige
AW: Bestimmte Texte löschen
03.09.2013 14:40:18
Christian
Hallo Chris,
das passt, vielen Dank.
Christian

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige