Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
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
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlenvergleich

Zahlenvergleich
01.08.2003 15:16:04
Fred
Zum Problem: Möchte Daten aus dem Worksheet("A.xls") Sheets("a") mit dem Worksheet ("B.xls") Sheets ("b") vergleichen. Bei einer Differenz soll im Worksheet ("B.xls") Sheets ("b") die Zelle farbig (z.B. grau) hinterlegt werden. Welche Lösungswege wären denkbar?
Bin für jeden Tipp dankbar.
Fred

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahlenvergleich
01.08.2003 15:26:09
Sergiesam
Hi,
du kannst die Bedingte Formatierung nicht verwenden, da diese nur Zellvergleiche der eigenen Mappe zulässt. Mit VB wärs folgendes:

Sub Einfärben()
Dim c As Range
For Each c In Workbooks("B.xls").Sheets("B").Range("A1").CurrentRegion.Columns(1).Cells
If c <> Workbooks("A.xls").Sheets("A").Range(c.Address) Then
c.Interior.ColorIndex = 15
Else
c.Interior.ColorIndex = xlNone
End If
Next c
End Sub

Viel Spaß,
Sam

AW: Zahlenvergleich
01.08.2003 16:38:54
Fred
Hallo Sam,
Vielen Dank für die rasche Mitteilung. Es scheint ja wirklich zu klappen! Mein triviales problem: Funktioniert nur für die "Spalte A", nicht jedoch für die anderen Spalten. Wie lautet denn die Syntax, wenn ich den gesamten Tabellenbereich bzw. einen definierten Ausschnitt vergleichen möchte? Vielleicht so:
For Each c In Workbooks("B.xls").Sheets("B").Range("A1:DA20").CurrentRegion.Columns(1).Cells
Nochmals vielen Dank.
Fred


Anzeige
AW: Zahlenvergleich
01.08.2003 16:55:06
Fred
Hallo SAM,
Problem gelöst!
Vielen Dank nochmals.
Fred

AW: Zahlenvergleich
01.08.2003 19:06:25
sergiesam
Hi,
tja, dann hast du also rausgefunden, dass du nur ".Colums(1)" entfernen musst....
Sehr Gut,
Sam

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige