Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1292to1296

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Doppelte Zeilen löschen, die keine Füllfarbe haben

Forumthread: Doppelte Zeilen löschen, die keine Füllfarbe haben
6 Beiträge zu diesem Forumthread
Anzeige
305 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

21.01.2013 15:37:57

Selma

Hallo Leute,
ich möchte ab Zeile 2 bis letzte benutzte Zelle der Spalte D folgendes per VBA erreichen:
- Die doppelte Zeilen sollen entfernt werden. Diese sollen nur in Spalte A gesucht werden.
Wenn eine doppelte Zeile gefunden wird, dann soll die gelöscht werden, die keine Füllfarbe (InteriorColor) hat.
Besten Dank im Voraus!
Gruß,
Selma

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Doppelte Zeilen löschen, die keine Füllfarbe haben

21.01.2013 15:46:58

Klaus
In A sollte noch auf doppelte Zeilen/Werte ...

21.01.2013 16:03:43

Luc:-?
AW: In A sollte noch auf doppelte Zeilen/Werte ...

21.01.2013 16:25:25

Selma
AW: Doppelte Zeilen löschen, die keine Füllfarbe haben

21.01.2013 15:54:14

ChrisL
interior.color von nichts

21.01.2013 15:56:38

nichts
aso Missverständnis, thx o.T.

21.01.2013 16:02:49

ChrisL

AW: Doppelte Zeilen löschen, die keine Füllfarbe haben

21.01.2013 15:46:58

Klaus

Hallo Selma,
jede Zelle hat ein interior.color. Jede. Ich nehme an, du meinst die Zellen die weiß sind.
Du schreibst einmal "Spalte D" und einmal "Spalte A". Ich habe mich für Spalte D entschieden.

Option Explicit
Sub DoppelteOhneInterior()
Dim rXXX As Range
Dim lRow As Long
With Sheets("Sheet1")
lRow = .Cells(Rows.Count, 4).End(xlUp).Row
For Each rXXX In .Range("D2:D" & lRow)
If rXXX.Interior.Color = 16777215 Then
If Application.WorksheetFunction.CountIf(.Range("D2").EntireColumn, rXXX.Value) > 1  _
Then
rXXX.EntireRow.ClearContents
End If
End If
Next rXXX
End With
End Sub

Grüße,
Klaus M.vdT.

In A sollte noch auf doppelte Zeilen/Werte ...

21.01.2013 16:03:43

Luc:-?

…geprüft wdn, Klaus;
außerdem ist Weiß (vbWhite) auch eine Farbe, die übrigens auch (als Wert von .Interior.Color) angezeigt wird, wenn eigentlich .Interior.ColorIndex = xlNone eingestellt ist, was Selma wohl meint (bei Bildern des Bereichs kann man dann den Unterschied bemerken).
Wahrscheinlich will Selma durch die Färbung erreichen, dass eine der doppelten Zeilen erhalten bleibt. Es kann daraus aber nicht unbedingt geschlossen wdn, dass alle zu erhaltenden Zeilen auch gefärbt sind.
Irgendwie erscheint mir Selmas Vorgehensweise, falls ich sie richtig interpretiere, nicht recht schlüssig.
Gruß Luc :-?

AW: In A sollte noch auf doppelte Zeilen/Werte ...

21.01.2013 16:25:25

Selma

Hallo zusammen,
es funktioniert prima :-)
Beide Lösungen funktionieren!
Es stimmt, ich habe mich nicht richtig ausgedruckt.
Die Zeilen, die weiss sind sollen gelöscht werden.
Gruß,
Selma

AW: Doppelte Zeilen löschen, die keine Füllfarbe haben

21.01.2013 15:54:14

ChrisL

Hi Selma
Hier noch eine Variante... (habe es etwas anders interpretiert, weiss = nichts)

Sub t()
Dim iZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(iZeile, 1).Interior.ColorIndex = xlColorIndexNone And _
WorksheetFunction.CountIf(Columns(1), Cells(iZeile, 1)) > 1 Then
Rows(iZeile).EntireRow.Delete
End If
Next iZeile
End Sub

cu
Chris

interior.color von nichts

21.01.2013 15:56:38

nichts

Hallo Chris,
wenn ich in einer jungfräulichen Tabelle
debug.Print range("A1").interior.Color
eingebe, erhalte ich
16777215
und nicht nichts. Daraus schließe ich, dass 16777215 das interior.color für nichts ist.
Grüße.
Klaus MvdT

aso Missverständnis, thx o.T.

21.01.2013 16:02:49

ChrisL