Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Farbliche Markierung von Unterschiedlichem Text

Farbliche Markierung von Unterschiedlichem Text
18.11.2005 16:51:05
Unterschiedlichem
Wie kann ich 2 Zellen die beide einen Text( mehrere Worte) beinhalten vergleichen und ( nur) die Unterschiede Farblich markieren.
Ich möchte 2 Spalten vergleichen und die Unterschiede visuell darstellen.
Super wäre es wenn dies über eine Formel zu lösen wäre damit nicht immer VBA gestartet werden muss !
Bin für jeden Rat Dankbar
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbliche Markierung von Unterschiedlichem Text
18.11.2005 17:02:57
Unterschiedlichem
Hallo
geht über Format, Bedingte Formatierung.
A1 entsprechend formatieren und nach rechts und nach unten kopieren.
 
 AB
1AS
2AD
3AA
4AF
5BH
6BB
7BN
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A11. / Formel ist =$A1=$B1Abc
B11. / Formel ist =$A1=$B1Abc
 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Farbliche Markierung von Unterschiedlichem Text
18.11.2005 19:32:07
Unterschiedlichem
Hallo
Danke für deine Antwort aber leider ist es nicht so einfach.
Ich möchte nicht die komplette Zelle farblich Markieren sondern nur die Worte der Zelle die unterschiedlich sind.
Die gleichen Worte z.B. grün und die Worte die unterschiedlich sind bzw. in der zu vergleichenden Zelle nicht vorhanden sind rot markieren.
Gruß
Peter
AW: Farbliche Markierung von Unterschiedlichem Text
18.11.2005 19:32:13
Unterschiedlichem
Hallo
Danke für deine Antwort aber leider ist es nicht so einfach.
Ich möchte nicht die komplette Zelle farblich Markieren sondern nur die Worte der Zelle die unterschiedlich sind.
Die gleichen Worte z.B. grün und die Worte die unterschiedlich sind bzw. in der zu vergleichenden Zelle nicht vorhanden sind rot markieren.
Gruß
Peter
Anzeige
AW: Farbliche Markierung von Unterschiedlichem Text
18.11.2005 19:32:34
Unterschiedlichem
Hallo
Danke für deine Antwort aber leider ist es nicht so einfach.
Ich möchte nicht die komplette Zelle farblich Markieren sondern nur die Worte der Zelle die unterschiedlich sind.
Die gleichen Worte z.B. grün und die Worte die unterschiedlich sind bzw. in der zu vergleichenden Zelle nicht vorhanden sind rot markieren.
Gruß
Peter
AW: Farbliche Markierung von Unterschiedlichem Text
18.11.2005 20:39:41
Unterschiedlichem
Hi,
das geht nicht mit Formel.
mfg Kurt
AW: Farbliche Markierung von Unterschiedlichem Text
19.11.2005 12:46:35
Unterschiedlichem
Hallo Peter...
also wie das über eine Formel gehen soll, kann ich mir nicht vorstellen. Du hast zwar nicht nach einer VBA Lösung gefragt, dennoch will ich hier mal eine vorschlagen:
Ich lese den Inhalt von Zwei Zellen jeweils in ein Array ein (Inhalt2Array). Dannach vergleiche ich die Arrays Zeichenweise (ArrayVergleichen), und markiere in einem weiteren Array (vZeichenRot) mit einer 1, wenn es Unterschiede gibt, bzw. mit einer 0, wenn die Zeichen die selben sind.
Anschließend formatiere ich die Zeichen Spaltenweise in Abhängigkeit des Wertes in dem Array vZeichenRot (FormatierenZelle).
Wenn du das ganze in ein Modul in der Datei legst, und dann in der Klassenbibliothek des Tabellenblattes auf ein Worksheet_Change reagierst, dann kannst Du zum einen natürlich nur die Zeile überprüfen, in der es gerade eine Änderung gegeben hat, und zum zweiten wäre es Automatisiert, und Du müsstest (was auch immer damit gemeint ist) nicht immer VBA starten.
Ich hoffe, eine Idee gegeben zu haben und verbleibe freundlichst
Dieter W.
Option Explicit
Dim vArrZelle1() As Variant, vArrZelle2() As Variant
Dim vZeichenRot() As Variant
Dim iZaehlerFarbArray As Integer

Sub mainVergleichZellen()
Dim iZeile As Integer
Dim iZaehlerZeile As Integer
Dim vInhaltSpalte1 As Variant, vInhaltSpalte2 As Variant
iZaehlerZeile = Cells(Rows.Count, 1).End(xlUp).Row
For iZeile = 1 To iZaehlerZeile
vInhaltSpalte1 = Cells(iZeile, 1)
vInhaltSpalte2 = Cells(iZeile, 2)
If Len(vInhaltSpalte1) >= Len(vInhaltSpalte2) Then
iZaehlerFarbArray = Len(vInhaltSpalte1)
Else
iZaehlerFarbArray = Len(vInhaltSpalte2)
End If
Call Inhalt2Array(vInhaltSpalte1, vInhaltSpalte2)
Call ArrayVergleichen
Call FormatierenZelle(Cells(iZeile, 1), Cells(iZeile, 2))
Next iZeile
End Sub


Sub Inhalt2Array(vZelle1 As Variant, vZelle2 As Variant)
Dim iZaehlerArray As Integer
Dim iZaehler As Integer
For iZaehler = 1 To 2
iZaehlerArray = iZaehlerFarbArray
Select Case iZaehler
Case 1
ReDim Preserve vArrZelle1(iZaehlerArray - 1)
For iZaehlerArray = 0 To iZaehlerArray - 1
vArrZelle1(iZaehlerArray) = Mid(vZelle1, iZaehlerArray + 1, 1)
Next iZaehlerArray
Case 2
ReDim Preserve vArrZelle2(iZaehlerArray - 1)
For iZaehlerArray = 0 To iZaehlerArray - 1
vArrZelle2(iZaehlerArray) = Mid(vZelle2, iZaehlerArray + 1, 1)
Next iZaehlerArray
End Select
Next iZaehler
End Sub


Sub ArrayVergleichen()
Dim iZaehler As Integer
ReDim vZeichenGruen(iZaehlerFarbArray - 1)
ReDim vZeichenRot(iZaehlerFarbArray - 1)
For iZaehler = 0 To iZaehlerFarbArray - 1
If vArrZelle1(iZaehler) = vArrZelle2(iZaehler) Then
vZeichenRot(iZaehler) = 0
Else
vZeichenRot(iZaehler) = 1
End If
Next iZaehler
End Sub


Sub FormatierenZelle(rngZelle1 As Range, rngZelle2 As Range)
Dim iZaehlerSpalte As Integer, iZaehlerZeichen As Integer
Dim iFarbe As Integer
For iZaehlerSpalte = 1 To 2
Select Case iZaehlerSpalte
Case 1
rngZelle1.Activate
Case 2
rngZelle2.Activate
End Select
For iZaehlerZeichen = 1 To iZaehlerFarbArray
If vZeichenRot(iZaehlerZeichen - 1) = 0 Then
iFarbe = 4
Else
iFarbe = 3
End If
With ActiveCell.Characters(Start:=iZaehlerZeichen, Length:=1).Font
.ColorIndex = iFarbe
End With
Next iZaehlerZeichen
Next iZaehlerSpalte
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige