Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien kopieren, wenn Füllrabe 22 ist?

Forumthread: Dateien kopieren, wenn Füllrabe 22 ist?

Dateien kopieren, wenn Füllrabe 22 ist?
Selma
Hallo Leute,
ich habe in Spalte A in vielen Zellen als Zellinhalt die Dateinamen mit kompletten Pfad drin stehen. Diese Zellen sind mit Farbe 22 eingefärbt.
Wenn in Spalte A die Zelle mit der Farbe 22 (Interior.ColorIndex) eingefärbt ist, dann möchte ich die Dateien nach T:\Daten\ kopieren. Wie mache ich das mit VBA?
Besten Dank im Voraus!
Viele Grüße,
Selma
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Dateien kopieren, wenn Füllrabe 22 ist?
08.09.2010 12:08:14
Rudi
Hallo, 
Sub FilesKopieren()
Dim fs As Object, rngC As Range
Const sZiel = "c:\test\"  'anpassen
Set fs = CreateObject("Scripting.FileSystemObject")
For Each rngC In Range("A:A").SpecialCells(xlCellTypeConstants)
If rngC.Interior.ColorIndex = 22 Then
fs.copyfile rngC.Value, sZiel
End If
Next rngC
Set fs = Nothing
End Sub

Gruß
Rudi
Anzeige
AW: Dateien kopieren, wenn Füllrabe 22 ist?
08.09.2010 13:10:29
Selma
Vielen Dank Rudi!
Gruß,
Selma
Was, bitteschön, ist ein Füllrabe? ;-) orT
09.09.2010 21:14:04
Luc:-?
Gruß Luc :-?
Der Füllrabe ist das Haustier von Marko! owT
10.09.2010 08:36:51
Marko!
.
Anzeige
Das glaub' ich auch...! ;-) Gruß owT
11.09.2010 03:21:36
Luc:-?
:-?

Beliebteste Forumthreads (12 Monate)

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