Farbausgabe

Forumthread: Farbausgabe
5 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Farbausgabe

Farbausgabe

15.09.2004 14:50:14

Werner

Hallo Zusammen,
In einer Tabelle habe ich Exceldateien automatisch aus einem Verzeichnis (WZR_Auftrag)einlesen lassen Spalte A.
In Spalte D lasse ich die Dateien aus einem anderen Verzeichnis (WZR_Erledigt)auflisten.
In der Spalte B z.b. B1 möchte ich einen Vergleich machen Zwischen der Spalte A und D.
Also wenn der Dateiname in A1 auch in der Spalte D steht, soll die Zelle B1 grün werden wenn der Dateiname in Spalte D nicht steht, soll die zelle B1 rot werden.
Ist es auch möglich bei übereinstimmung die Dateien aus dem 1. Verzeichnis automatisch zu löschen.
Werner

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Farbausgabe

15.09.2004 15:00:32

Basti
AW: Farbausgabe

15.09.2004 15:01:05

Basti
AW: Farbausgabe

15.09.2004 15:38:09

Werner
AW: Farbausgabe

15.09.2004 15:52:50

Basti
AW: Farbausgabe

15.09.2004 18:12:29

Werner

AW: Farbausgabe

15.09.2004 15:00:32

Basti

dim i as integer
dim a as integer
For i = 1 to 100
a = 1
Do while cells(a,4) = ""
if cells(a,4) = cells(i,1) then
cells(i,2).interior.color=(such dir gruen ausser tabelle)
else
cells(i,2).interior.color=(such dir rot ausser tabelle)
end if
loop
probier mal aus, so koennte es gehen.
sonst lad die datei hoch und ich mach dir das so in 45 min.
next i

AW: Farbausgabe

15.09.2004 15:01:05

Basti

Is schon Fehler drin...
Bin aber erst essen
Bis dann

AW: Farbausgabe

15.09.2004 15:38:09

Werner

Hallo Basti,

habe die Datei mal hochgeladen.

Die Datei https://www.herber.de/bbs/user/10902.xls wurde aus Datenschutzgründen gelöscht

Werner

AW: Farbausgabe

15.09.2004 15:52:50