Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1176to1180
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
1176to1180
1176to1180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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!
.
Das glaub' ich auch...! ;-) Gruß owT
11.09.2010 03:21:36
Luc:-?
:-?
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige