Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

doppelte marmieren

doppelte marmieren
15.12.2005 16:54:45
huelgueuer
hallo
bezogen auf den beitrag
https://www.herber.de/forum/archiv/460to464/t460872.htm
etwas abgeändert passt die formel genau zu meinem problem. 

Sub Doppelete_farbig()
x = 6
For aRow = 7 To Range("E66").End(xlUp).Row
auf_dopplung_zu_überprüfende_nummer = Cells(aRow, 1).Value
For bRow = 7 To Range("E66").End(xlUp).Row 'hier die Aenderung
nummer = Cells(bRow, 1).Value
If aRow <> bRow Then
If auf_dopplung_zu_überprüfende_nummer = nummer Then
Cells(aRow, 1).Interior.ColorIndex = x
Cells(bRow, 1).Interior.ColorIndex = x
End If
End If
Next
x = x + 1
Next
End Sub

das einzige ist, die leeren zellen sollen nicht farbig geändert werden. es sollen nur die zellen mit werten einbezogen werden.
zusätzlich sollen dann noch die spalten F G H I J K genau so durchsucht werden.
vielleicht weiss ja einer was.
vielen dank
holger

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

Betreff
Datum
Anwender
Anzeige
AW: doppelte marmieren
15.12.2005 19:25:51
Erich
Hallo Holger,
in deinem Code wird nur Spalte A auf doppelte überprüft und eingefärbt. Wenn du die Überprüfung in den Spalten E bis K haben möchtest, sollte das so funzen (ungetestet): 

Option Explicit
Sub Doppelete_farbig()
Dim intCol As Integer, intFarbe As Integer
Dim aRow As Long, bRow As Long, lngLast As Long
For intCol = 5 To 11
intFarbe = 6
lngLast = Cells(Rows.Count, intCol).End(xlUp).Row
For aRow = 7 To lngLast - 1
If Cells(aRow, intCol) > "" Then
For bRow = aRow + 1 To lngLast 'hier die Aenderung
If Cells(aRow, intCol) = Cells(bRow, intCol) Then
Cells(aRow, intCol).Interior.ColorIndex = intFarbe
Cells(bRow, intCol).Interior.ColorIndex = intFarbe
End If
Next
intFarbe = intFarbe + 1
End If
Next
Next
End Sub

"Option Explicit" ist immer zu empfehlen!
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Doppelte markieren
15.12.2005 19:35:40
Erich
Hallo Holger,
Zellen, die bereits als Dubletten erkannt und damit farbig sind, müssen nicht noch mal bearbeitet werden. Deshalb hier eine neue Version: 

Option Explicit
Sub Doppelte_farbig()
Dim intCol As Integer, intFarbe As Integer
Dim aRow As Long, bRow As Long, lngLast As Long
For intCol = 5 To 11
intFarbe = 6
lngLast = Cells(Rows.Count, intCol).End(xlUp).Row
For aRow = 7 To lngLast - 1
With Cells(aRow, intCol)
If .Value > "" And .Interior.ColorIndex = xlColorIndexNone Then
For bRow = aRow + 1 To lngLast
If .Value = Cells(bRow, intCol) Then
.Interior.ColorIndex = intFarbe
Cells(bRow, intCol).Interior.ColorIndex = intFarbe
End If
Next
intFarbe = intFarbe + 1
End If
End With
Next
Next
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige