Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1324to1328
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
Inhaltsverzeichnis

Zellen vergleichen und farblich hervorheben

Zellen vergleichen und farblich hervorheben
07.08.2013 21:33:23
Andreas
suche ein benutzerdefinierte Funktion die folgendes kann:
Stringvergleich von Zelle 1 mit Zelle 2
Der Inhalt ist immer ein Text nach folgendem Schema:
Zelle1: A2C18520025
Zelle2: A2C18530025
Möchte jetzt gerne jede Übereinstimmung farblich markieren wie bei Beyond Compare.
Im speziellen Fall A2C185 (grüne Schrift) 3 (in roter Schrift) 0025 (wider in grün)
Die Strings in den Zellen können unterschiedlich lang sein, haben aber immer die gleiche Struktur und Länge:
Beispiele:
Zelle 1............Zelle2.................(alles fette, sollte dann rot erscheinen)
------------------------------------------------------------------------------------
A2C5000............A2C4038.................A2C4038
A2C-DRW-000........A2C-DRW-001.............A2C-DRW-001
10567800-FIL-000...10567800-DRW-000........10567800-DRW-000
Ich hoffe, dies war jetzt soweit verständlich

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen vergleichen und farblich hervorheben
08.08.2013 08:49:29
Erich
Hi Andreas,
jetzt kommt keine benutzerdefinierte Funktion (UDF), sondern eine normale VBA-Prozedur.
Mit einer UDF kann man den Wert einer Zelle berechnen, nicht aber Formate ändern.
Probier mal:

Option Explicit
Sub VglBunt()
Dim lngQ As Long, zz As Long, strA As String, strB As String
Dim pp As Integer, bb As Integer
lngQ = Cells(Rows.Count, 2).End(xlUp).Row
With Cells(2, 3).Resize(lngQ - 1)
.Value = Cells(2, 2).Resize(lngQ - 1).Value
.Font.Color = -11489280
End With
For zz = 2 To lngQ
strA = Cells(zz, 1)
strB = Cells(zz, 2)
pp = 1
Do While pp  Len(strB) Then Exit Do
Loop
If pp  Mid(strB, bb, 1)
bb = bb + 1
Loop
If bb > pp Then _
Cells(zz, 3).Characters(pp, bb - pp).Font.Color = -16776961
pp = bb
End If
Loop
Next zz
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: Zellen vergleichen und farblich hervorheben
08.08.2013 09:15:30
Andreas
Guten Morgen und vielen Dank für die Antwort.
Beschriebene VBA-Prozedur macht genau das, was ich gesucht habe.
Vielen Dank.

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige