Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner,Unterordner,Datein küpieren Pfad aus Zelle

Ordner,Unterordner,Datein küpieren Pfad aus Zelle
13.08.2018 16:17:26
Hensn
Hy
sobald ich eine Zelle fülle wird ein neuer Ordner Angelegt-
Nun würde ich gerne die Ordner und Daten die ich benötige in diesen Ordner Kopieren.
Da sich aber der Pfad vom zu kopierenden Ordner , als auch der Zielordner ständig ändern ,würde ich gerne den Pfad aus einer Zelle auslesen.
Tabelle1 A1 = zu Kopierender Ordner(mit Unterordner und Dateien)
Tabelle1 A2 = Zielordner (wo das ganze rein soll)
hab leider nach langer suche nichts passendes im netz gefunden .
Hoffe mir kann jemand weiterhelfen .

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner,Unterordner,Datein küpieren Pfad aus Zelle
13.08.2018 17:20:33
Robert
Hallo Hensn,
nachstehendes Makro kopiert alle Dateien einschl. der Unterordner aus dem Ordner aus Zelle A1 in den Ordner aus Zelle A2 (der muss existieren). 
Sub kopieren()
Dim fs
Dim strQ As String, strZ As String
Set fs = CreateObject("Scripting.FileSystemObject")
strQ = Range("A1")
If Right(strQ, 1)  "\" Then strQ = strQ & "\"
strZ = Range("A2")
If Right(strZ, 1)  "\" Then strZ = strZ & "\"
'Unterordner einschl der Dateien kopieren
fs.CopyFolder strQ & "\*", strZ
'Dateien aus dem Quellordner kopieren
fs.Copyfile strQ & "\*", strZ
Set fs = Nothing
End Sub
Gruß
Robert
Anzeige

65 Forumthreads zu ähnlichen Themen

Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:16:55
Thread-ID: 1090881
3 Beiträge
Anzeige
pdf erstellen und Dateibezeichnung aus Zelle
Bastian

Hallo Forum,
ich möchte ein Diagramm in eine pdf-Datei umwandeln. Der Dateiname der pdf soll aus dem Inhalt (Text) einer Zelle entnommen werden. Die Datei soll in einem vorgegebenen Pfad abgespeichert werden.
Dies müsste über ein Makro realisiert werden.
Kann mir einer helfen? Wäre...
29.11.2010 17:30:29
Thread-ID: 1189243
6 Beiträge
Zelle aus allen Dateien eines Ordners "kopieren"
Holger

Hallo,
ich würde gerne folgendes machen:
Ein Ordner mit vielen Excel-Dateien (.xls).
Aus jeder dieser Excel-Dateien möchte ich, dass immer eine Zelle (b5) ausgewählt wird
und anschliessend diese Werte in einer Ausgabedatei ("Planung") untereinander ab Zelle (g4) geschrieben werd...
16.10.2011 12:04:11
Thread-ID: 1234070
3 Beiträge
Anzeige
Ordner aus Zelle ansprechen
Hartmut

hallo zusammen,
wenn ich folgenden code ausführe kommt immer der Ausdruck Fehler beim Kompilieren.
Fehlt nicht hinter 'Is nothing then' noch ein Befehl?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Bereich As Range Set Bereich = Range("A2:A7") If Not Intersect(T...
17.07.2013 12:14:49
Thread-ID: 1322890
16 Beiträge
Zellen auslesen, in Ordnern suchen und kopieren
Thomas

Hallo liebe Community,
folgendes Szenario möchte ich mit Hilfe von VBA Excel verwirklichen:
Ich habe ein Excel File mit einem Formular in das Seriennummern eingetragen werden. Das Formular hat 8 Zeilen und 8 Spalten. In jede Zelle wird eine 4-stellige Seriennummer eingetragen. Die Seri...
01.08.2014 12:53:59
Thread-ID: 1373599
7 Beiträge
Zellenbezug aus aktueller Zeile herstellen
Christoph
Liebe Community,
ich bin ein absoluter Neuling was VBA angeht und arbeite gerade an einer Datei für die Schule. Leider habe nach längerem Suchen nicht das gefunden, was ich brauche bzw. bin mit dem Makro Recorder auch nicht ans Ziel gekommen.
Ich möchte eine dynamische Zelle (im Bild A1), d...
17.10.2014 17:17:16
Thread-ID: 1387215
4 Beiträge
Zellen aus Dateien in Ordner lesen und ....
Bastian

Hallo ich habe dieses Makro gefunden es ist zum Zellen auslesen aus der Dateien .xls & .xlsx die sich in einem Ordner befinden.
1.Es funktioniert ganz gut nur würde ich gerne beim starten des Makros den Ordner der durchsucht werden soll selber auswählen und nicht immer hier in dem Makro...
16.09.2015 08:35:11
Thread-ID: 1447666
5 Beiträge
Zellen aus Dateien in Ordner lesen und ....
Bastian

Hallo ich habe dieses Makro gefunden es ist zum Zellen auslesen aus der Dateien .xls & .xlsx die sich in einem Ordner befinden.
1.Es funktioniert ganz gut nur würde ich gerne beim starten des Makros den Ordner der durchsucht werden soll selber auswählen und nicht immer hier in dem Makro...
16.09.2015 08:52:56
Thread-ID: 1447670
11 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
1
5
2
9
15
6
3
4
10
4
2
1
2
2
9
5
4
4
1
4
12
1
3
7