Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige