zwei Zeilenpaare vergleichen per Makro

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HI
ok, wenn du schon schwierigkeiten hast, ein Häkchen zu setzen, dann könnte es schwierig werden.
da du nicht nur Werte, sondern auch Formatierungen vergleichen willst, wird das ganze etwas aufwendiger.
hier mal die Beispieldatei.
ich habe per VBA eine zusätzliche Funktion erstellt (VGL_Spezial), welche zwei Zellinhalte nicht nur bezgl. ihrer Werte, sondern auch bezgl der Formatierung vergleicht (Unterstreichung, Fett, Italic, Farbe) und auch hier bei einem Unterschied den Wert FALSCH ausgibt.

Function VGL_Spezial(Zelle1 As Range, Zelle2 As Range) As Boolean
Dim i As Long
VGL_Spezial = False
If Zelle1.Value  Zelle2.Value Then Exit Function
For i = 1 To Len(Zelle1.Value)
If Zelle1.Characters(i, 1).Font.Underline  Zelle2.Characters(i, 1).Font.Underline Then _
Exit Function
If Zelle1.Characters(i, 1).Font.Bold  Zelle2.Characters(i, 1).Font.Bold Then _
Exit Function
If Zelle1.Characters(i, 1).Font.Color  Zelle2.Characters(i, 1).Font.Color Then _
Exit Function
If Zelle1.Characters(i, 1).Font.Italic  Zelle2.Characters(i, 1).Font.Italic Then _
Exit Function
Next
VGL_Spezial = True
End Function

diese Funktion kannst du dann in der Bedingten Formatierung für den Bereich A2:F7 mit folgender Regel verwenden:

=NICHT(WENN(ISTGERADE(ZEILE());VGL_Spezial(A2;A3);VGL_Spezial(A2;A1)))

dabei ist es notwendig, dass die Daten erst ab Zeile 2 beginnen (weil du ja auch mit der Zelle "obendrüber" vergleichst)
hier mal die ganze Datei:
Gruß Daniel

Sub Test() dim Zelle as range dim z as long, s as long with Range("A1:A6") .Interior.colorindex = xlnone for z = 1 to .rows.count Step 2 for s = 1 to .columns.count If Not Vgl_Spezial(.cells(z, s), .cells(z, s).offset(1, 0)) then _ .Cells(z, s).Resize(2).Interior.colorindex = 3 Next next end with End sub

Hallo Daniel,
vielen Dank für Deine ausführliche, noob-gerechte Antwort!
In der angehängten Datei, so wie sie in meinem Excel 2010 erscheint, ist sowohl C4 als auch C5 als "Text" formatiert. Das entnehme ich zumindest zum einen aus der Leiste: Start-Zahl-Text, zum anderen aus rechtsklick: Zellen formatieren...-Zahlen-Text
Kannst Du das bestätigen?
Wenn ich Folgendes mache: Zellen formatieren...-Ausrichtung-Horizontal-Standard, ändert sich nichts.
Kannst Du das bestätigen?
Tatsächlich habe ich die Fehlerüberprüfung nicht eingeschaltet. Wenn ich das mache (Optionen-Fehlerüberprüfung im Hintergrund aktivieren), dann erscheint tatsächlich bei C4 ein Dreieck, bei C5 nicht. Das Dreieck behauptet, C4 sei eine als Text gespeicherte Zahl.
Ich finde schon, dass das seltsam ist: Excel sagt mir, C4 sei ein "Text" (gemäß den ersten beiden Methoden), aber auch C4 sei in Wahrheit eine Zahl, die aber fälschlich als Text gespeichert sei (gemäß Fehlerüberprüfung). UND: Excel nimmt C4 intern offenbar als "Zahl", nicht als "Text" wie angezeigt. Oder aber "Text" und "Text" unterscheiden sich.
Na ja, das mit dem Ersetzen klappt jedenfalls hervorragend!
Viele Grüße!

Beliebteste Forumthreads (12 Monate)

zwei Zeilenpaare vergleichen per Makro

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread