Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellen vergleichen (unabhängig vom Inhalt)

Zellen vergleichen (unabhängig vom Inhalt)
06.10.2007 14:20:01
Silk
Hallo zusammen!
Ich will Spalten miteinander vergleichen und den Unterschied farblich markieren. Hier mal ein Codeausschnitt.

If Cells(i + 3, 6)  Cells(i + 3, refCol) Then
Cells(i + 3, 6).Interior.ColorIndex = 44
Else
Cells(i + 3, 6).Interior.ColorIndex = 0
End If


Funktioniert soweit ganz gut, allerdings gibt es einen Fehler, sobald in einer Zelle ein Fehler (z.B. #NV) vorliegt. Dann liefert Cells(..) den Fehler 2042 zurück. Wie kann ich das vermeiden oder besser lösen?
Danke
Karsten

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen vergleichen (unabhängig vom Inhalt)
06.10.2007 14:26:00
Nepumuk
Hallo Karsten,
versuch es mal mit der Text - Eigenschaft. Also Cells(i + 3, 6).Text
Gruß
Nepumuk

AW: Zellen vergleichen (unabhängig vom Inhalt)
06.10.2007 14:52:17
Silk
Hallo Nepumuk,
vielen Dank, jetzt funktioniert es!
Gruß
Karsten

AW: Zellen vergleichen (unabhängig vom Inhalt)
06.10.2007 15:00:00
Daniel
Hi
falls beim #NV-Fehlerwert gezielt reagiert werden soll (Nepumuks Code läuft beim Fehlerwert einfach weiter, und interpretiert #NV als Text)
müsstest du das zusätzlich prüfen:

if IsError(Cells(i + 3, 6)) or IsError(Cells(i + 3, refCol)) then
msgbox "Fehler in Zeile " & i+3
else
If Cells(i + 3, 6)  Cells(i + 3, refCol) Then
Cells(i + 3, 6).Interior.ColorIndex = 44
Else
Cells(i + 3, 6).Interior.ColorIndex = 0
End If
end if


Deine Zellfärbung kannst du aber auch ohne IF...THEN durchführen, weil in Berechungen FALSE den Wert 0 und TRUE den Wert -1 hat:


cells(i+3,6).interior.colorindex= 0 - 44 * (Cells(i + 3, 6)  Cells(i + 3, refCol))


Gruß, Daniel

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige