2 Spalten vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DontMakeitYourselfWhenTheComputerCanMakeItForYou() Dim Z As Range Dim Block As Range Const cRot = 255 Const cGrün = 5287936 Set Block = Range(Range("E2"), Range("F9999").End(xlUp)) Block.Interior.Pattern = xlNone For Each Z In Block.Columns(1).Cells If Application.CountIf(Block.Columns(2), Z.Value) = 0 Then Z.Interior.Color = cRot: Z.Interior.Pattern = xlSolid Next For Each Z In Block.Columns(2).Cells If Application.CountIf(Block.Columns(1), Z.Value) = 0 Then Z.Interior.Color = cGrün: Z.Interior.Pattern = xlSolid Next End Sub

Hallo Wolfgang,
erst das Positing von Uwe inkl. Screenshot (Danke Uwe) hat mich auf dem Bahn gebracht, warum Du mit meiner Lösung nicht zufrieden bist:
es geht um die Schriftfarbe.
Leere deine Gedächnis über alles, was Du über den Fall weisst, und lese diese Satz nochmal:
Wenn eine Nr. in Spalte E nicht in Spalte F vorhanden ist, soll die Nummer in Spalte E Rot gefärbt werden !
Ist es darin klar und deutlich, dass die Schriftfarbe angepasst werden soll?
Ich bin, wie manche es bereit wissen, nicht deutschsprachig geboren. Mit mir muss man wie mit Computer sprechen: unmissverständlich ;-)
Dementsprechend die VBA-Version (man könnte aber auch die Datenüberprüfungsmethode von Uwe über den Markorekorder verwenden.):


Sub DontMakeitYourselfWhenTheComputerCanMakeItForYou()
Dim Z As Range
Dim Block As Range
Const cSchrift_Rot = -16776961  'nicht mehr benötigt, habe ich drin gelassen, falls RGB() nicht gefällt
Const cSchrift_Grün = -11489280 'richtige/passende Farbe kann mit dem Makrorekorder aufgelistet werden
Set Block = Range(Range("E2"), Range("F9999").End(xlUp))
Block.Font.ColorIndex = xlAutomatic
For Each Z In Block.Columns(1).Cells
If Application.CountIf(Block.Columns(2), Z.Value) = 0 Then Z.Font.Color = RGB(255, 0, 0) '100% rot
Next
For Each Z In Block.Columns(2).Cells
If Application.CountIf(Block.Columns(1), Z.Value) = 0 Then Z.Font.Color = RGB(0, 255, 0) '%100% grün
Next
End Sub

VG
Yal

Sub Format_umstellen() Dim Z As Range For Each Z In Range(Range("E3"), Range("F9999").End(xlUp)).Cells Z.Value = Trim(Split(Z.Value, "-")(0)) & " - " & Format(CLng(Trim(Split(Z.Value, "-")(1))), "0000") Next End Sub

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

231 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Spalten vergleichen

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

231 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread