Microsoft Excel

Herbers Excel/VBA-Archiv

Farbausgabe

Betrifft: Farbausgabe von: Werner
Geschrieben am: 15.09.2004 12:50:14

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

  


Betrifft: AW: Farbausgabe von: Basti
Geschrieben am: 15.09.2004 13:00:32

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


  


Betrifft: AW: Farbausgabe von: Basti
Geschrieben am: 15.09.2004 13:01:05

Is schon Fehler drin...
Bin aber erst essen

Bis dann


  


Betrifft: AW: Farbausgabe von: Werner
Geschrieben am: 15.09.2004 13:38:09

Hallo Basti,


habe die Datei mal hochgeladen.
https://www.herber.de/bbs/user/10902.xls


Werner


  


Betrifft: AW: Farbausgabe von: Basti
Geschrieben am: 15.09.2004 13:52:50

https://www.herber.de/bbs/user/10904.xls

probier mal sollte gehen

Gruss Basti


  


Betrifft: AW: Farbausgabe von: Werner
Geschrieben am: 15.09.2004 16:12:29

Hallo Basti,

das ist noch nicht so richtig

https://www.herber.de/bbs/user/10912.xls

Werner