Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1768to1772
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
1768to1772
1768to1772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte vergleichen

Zellinhalte vergleichen
13.07.2020 09:01:24
Excelnoob
Guten morgen zusammen,
ich habe folgendes Problem und hoffe, dass ich hier eine eine Lösung finde. Ich möchte in einem Tabellenblatt die Zellinhalte von Spalte D5:D500 mit den Zellinhalten aus E5:E500 vergleichen. Unterscheidet sich der Wert von D5 zu E5 soll in F5 die Zelle rot eingefärbt werden. Ist der Wert gleich dann soll F5 grün markiert werden. Es sollen immer die nebeneinanderliegenden Zellen nach unten fortlaufend miteinander verglichen werden.
Über eine bedingte Formatierung selbst für mich machbar :) Ich möchte dies jedoch unbedingt über VBA lösen und hier sind meine Fähigkeiten doch arg beschränkt.
Ich hoffe mir kann jemand helfen.
Vielen Dank vorab und schöne Grüße
Excelnoob

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte vergleichen
13.07.2020 09:24:54
Werner
Hallo,
Option Explicit
Sub Schaltfläche1_Klicken()
Dim i As Long, raGleich As Range, raUngleich As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 5 To 500
If .Cells(i, "D") = .Cells(i, "E") Then
If raGleich Is Nothing Then
Set raGleich = .Cells(i, "F")
Else
Set raGleich = Union(raGleich, .Cells(i, "F"))
End If
Else
If raUngleich Is Nothing Then
Set raUngleich = .Cells(i, "F")
Else
Set raUngleich = Union(raUngleich, .Cells(i, "F"))
End If
End If
Next i
If Not raGleich Is Nothing Then
raGleich.Interior.Color = vbGreen
End If
If Not raUngleich Is Nothing Then
raUngleich.Interior.Color = vbRed
End If
End With
Set raGleich = Nothing: Set raUngleich = Nothing
End Sub
Gruß Werner
Anzeige
AW: Zellinhalte vergleichen
13.07.2020 09:45:35
Excelnoob
Hallo Werner,
funktioniert perfekt. Vielen Dank dafür!
Viele Grüße
Excelnoob
Gerne u. Danke für die Rückmeldung. o.w.T.
13.07.2020 09:58:08
Werner

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige