Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1456to1460
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

305 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Textdatei einlesen und Dateinamen in Zellen
Pascal

Hallo zusammen,
ich hätte mal eine Frage an euch.
Ich bekomme monatlich ca 20 Textfiles zu einem Thema per Mail geschickt und möchte alle in einer Excel Datei zusammenfassen (DIe Inhalte der Textfiles in einem Excelsheet untereinander schreiben lassen)
Allerdings gibt es eine Besond...
08.10.2009 10:04:40
Thread-ID: 1108100
4 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 12:01:55
Thread-ID: 1115729
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
5
3
1
1
6
1
3
4
1
2
1
11
2
5
4
2
7
3
3
2
2
2
9