Clever-Excel-Forum

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

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

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

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

Katyprice

UweD

Katyprice

UweD