Bedingte Formatierung Vergleich Inhalt zweier Spalten

[Katyprice]

Hallo,

ich habe zwei Excel-Register, die ich vergleichen muss.

In Register "Daten" stehen die Zahlen jeweils in einer Spalte bzw. Zelle, die Zellen sollen markiert werden, wenn diese Zahlen im Register "Zusammenfassung" enthalten sind.

Ich habe nun das Problem, dass teilweise z.B. 10200-10210 in einer Zelle steht und 22021, 22022.
In allen anderen Zellen steht nur die gesuchte Zahl.

Allerdings sind die Zahlen/Zellen NICHT in der gleichen Reihenfolgen wie in der Zusammenfassung. Dies geht aus der beigefügten Tabelle nicht hervor.

Kann mir jemand die korrekte schreibweise für die bedingte Formatierung nennen, damit die doppelten Zahlen im Register Daten eingefärbt werden?

VG
Katy

[UweD]

Hallo

2 Schritte

1) 
Die Bedingte Formatierung:
- Bereich A1: A ?? markieren
- Bedingte Formatierung
- Neu
- Formel zur....

- Als Formel verwenden:  =ZÄHLENWENN(Zusammenfassung!$A:$A;A1)
- Format wählen
- Ok, Ok


2) 
Dann diese Makro in ein normales Modul kopieren.
 Jedesmal, wenn du neue Daten in "Zusammenfassung" abgelegt hast; laufen lassen

Code:

Sub Trenne()
    Dim LR As Integer, i As Integer, TB As Worksheet, Arr, Anz As Integer, A As Integer
    Set TB = Sheets("Zusammenfassung")
   
    LR = TB.Cells(TB.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte


    For i = LR To 1 Step -1
        If InStr(TB.Cells(i, 1), "-") Then
            Arr = Split(TB.Cells(i, 1), "-")
            Anz = Arr(UBound(Arr)) - Arr(LBound(Arr))
            For A = 1 To Anz
                Rows(i + 1).Insert
                Cells(i + 1, 1) = Arr(1) - A + 1
               
            Next A
            Cells(i, 1) = Arr(0)

           
        ElseIf InStr(TB.Cells(i, 1), ",") Then
            Arr = Split(TB.Cells(i, 1), ", ")
            Rows(i).Insert
            Cells(i + 1, 1) = Arr(1)
            Cells(i, 1) = Arr(0)
        End If
       
    Next i
End Sub

LG UweD

[Katyprice]

Klasse, Vielen Dank für deine Hilfe.  

Ich benötige noch eine Lösung für zwei Probleme:

- Wenn in einer Zelle Z.B. 10200-10210
- und wenn in einer Zelle z.B. 22021, 22022

steht. Hat jemand hierfür eine Lösung?

VG Katy

[UweD]

 


Durch das makro werden diese Einträge doch in Einzelnennungen aufgespaltet und die Zwischenzahlen ergänzt.