Bedingte Formatierung oder Formel

Hallo Allerseits
Leider gelingt es mir nicht selber, kenne mich auch nicht genug aus, um nach den richtigen Schlagworten zu recherchieren.

Es geht um das Markieren von doppelten Einträgen:
In Spalte A gibt es Einträge, die meisten ohne Zellfüllung, etliche aber auch farbig hinterlegt. In einer anderen Spalte, in der neue Einträge gesammelt werden, soll, falls ein entsprechender Eintrag in der Spalte A schon vorhanden ist, der Eintrag in der Spalte, die Formatierung aus Spalte A übernehmen.

Da es bei der Übereinstimmung nur auf die letzten 7 Zeichen (Zahlen) ankommt, gibt es zwei Hilfsspalten, in denen diese Zahlen ausgefiltert sind. Ebenfalls gibt es eine Spalte, die zwar die Einträge vergleicht, und bei einer Übereinstimmung, die entsprechende Zeilennummer angibt, aber leider nichts über die Farbe der Zelle in Spalte A aussagt.

Eine Beispieldatei ist hochgeladen: https://www.herber.de/bbs/user/177820.xlsm)

Vielen Dank für eure Hilfe in voraus.
Michael

Hallo

Ändere den Code so ab

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Nummer As String, Sp1 As Integer, Sp2 As Integer

    Dim Z1 As Integer, LR As Long, Z As Variant, RNG As Range, Zeile As Long

    Sp1 = 1 'Spalte A überwachen

    Sp2 = 6 'Spalte F überwachen

    Z1 = 2 'erste DatenZeile

       

    If Target.Column = Sp1 Or Target.Column = Sp2 Then 'Nur Änderungen in Spalte F prüfen

        LR = Cells(Rows.Count, Sp2).End(xlUp).Row 'letzte Zeile der Spalte

        

        Set RNG = Cells(Z1, Sp2).Resize(LR - Z1 + 1)

        

        'Reset

        RNG.Interior.Pattern = xlNone

        

        For Each Z In RNG

            If Z > "" Then

                Nummer = Right(Z, 7)

                

                'Ist Nummer in A bereits vorhanden?

                If WorksheetFunction.CountIf(Columns(Sp1), "*" & Nummer) Then

                    Zeile = WorksheetFunction.Match("*" & Nummer, Columns(Sp1), 0) 'Ja in dieser Zeile

                    If Cells(Zeile, Sp1).Interior.Pattern > xlNone Then 'Gefunden in A, aber hat keine Farbe

                        Z.Interior.Color = Cells(Zeile, Sp1).Interior.Color

                    End If

                End If

            End If

        Next

    End If

End Sub

Bei Änderungen in Zellen von A und F läuft der Code und prüft alle Zellen in F

Was so nicht abgedeckt ist, du änderst die Farbe in Spalte A. Da bleibt die Alte in F bestehen

LG UweD

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G	H	I
1	Bezeichnung/Nummern	Spalte nicht relevant		Spalte nicht relevant	Spalte nicht relevant	Bezeichnung/Nummern	Spalte nicht relevant
2	kibcsadhbacsefj-1000791					viludy-1111791
3	oohiucqdw-1277543					ksigljdz-1288543
4	ppouohiuzuf-1433227					apiosx-4673527
5	dsy-1754389					kkkffwe-3965222
6	cccuuuff-1881289					trdfgxysdasd-1877744
7	polkjhsgjjj-1987600					lizwsdrcsa-4188554
8	oohiucqdw-1277543					ksdjdz-1277543
9						kjiviuuz-1234567
10						jhzitop-3145873
11						polkjhsgjjj-1987600

Zelle	bedingte Formatierung...	Format
F2	1: ZÄHLENWENN(A:A;"*"&TEIL(F2;FINDEN("-";F2)+1;99))	abc

Bedingte Formatierung oder Formel

Forumthread: Bedingte Formatierung oder Formel

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Bedingte Formatierung oder Formel

Forumthread: Bedingte Formatierung oder Formel

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread