Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Inhalte von Zellen vergleichen

Inhalte von Zellen vergleichen
18.11.2015 20:49:41
Zellen
Hallo,
ist es möglich von verschiedene Zellen den Inhalt zu vergleichen ?
zb. a1 mit Inhalt: 12345 Hallo
111111 Tage
b2 inhalt: 6527 nix
12345 Hallo
Jetzt möchte ich das in A1 die Hallo Zeile Rot wird, aber nicht die 2te Zeile mit 11111. Die Werte wurden mit Zeilenumbrüche eingetragen.
Danke im voraus

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hier Bsp mit VBA
21.11.2015 11:26:23
Tino
Hallo,
hier mal ein Bsp.
Sub Beispiel()
With Tabelle1
    Call VergleichInhalt(.Range("A1"), .Range("B2"), RGB(255, 0, 0))
End With
End Sub

Sub VergleichInhalt(rng1 As Range, rng2 As Range, lngColor&)
Dim Ar1, nPos1&, nPos2&, n&, sText1$, sText2$, booFund As Boolean

sText1 = rng1.Value
sText2 = rng2.Value

Ar1 = Split(rng1.Value, vbLf)

Union(rng1, rng2).Font.ColorIndex = xlAutomatic

For n = Lbound(Ar1) To Ubound(Ar1)
    nPos1 = 1: nPos2 = 1
    Do
        If nPos2 > 0 Then
            nPos2 = InStr(nPos2, sText2, Ar1(n))
            If nPos2 > 0 Then
                rng2.Characters(Start:=nPos2, Length:=Len(Ar1(n))).Font.Color = lngColor
                booFund = True
                nPos2 = nPos2 + 1
            End If
        End If

        If nPos1 > 0 And booFund Then
            nPos1 = InStr(nPos1, sText1, Ar1(n))
            If nPos1 > 0 Then
                rng1.Characters(Start:=nPos1, Length:=Len(Ar1(n))).Font.Color = lngColor
                nPos1 = nPos1 + 1
            End If
        End If
    Loop While (nPos1 > 0 Or nPos2 > 0) And booFund
    booFund = False
Next n

End Sub
Gruß Tino
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige