Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner,Unterordner,Datein küpieren Pfad aus Zelle

Forumthread: 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 .
Anzeige

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
;

Forumthreads zu verwandten 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
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:06:21
Thread-ID: 1090882
2 Beiträge
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
Speichern mit Unterordner aus Zelle
Oli

Ich versuche über Makro das Abspeichern in einem bestimmten Unterordner, dessen name aus einer Zelle hervorgehen soll.
Leider bekomme ich das so nicht hin, kann mich jemand belehren :-)
Sub SpeichernUnter() ThisWorkbook.Worksheets("Firma").Activate Const stdPath = "h:/bewatec/" Dim myPa...
05.11.2011 10:15:36
Thread-ID: 1236718
10 Beiträge
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
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
Drucken und PDF erstellen mit Namen aus Zelle
Rene

Hallo zusammen,
mein Programmcode läuft leider nicht.
Es wird auch keine Fehlermeldung angezeigt,es passiert garnichts.
Anbei mal der Code
Sub Schaltfläche6_Klick() ' Drucken und erstellen des Dokuments Dim strPath As String Dim strName As String Sheets("Kennzahl").Select Appli...
15.09.2016 10:03:14
Thread-ID: 1514497
3 Beiträge
Anzeige
Unterordner öffnen Name Left, 5 aus Zelle
Tilo

Moin zusammen,
ich brauche mal kurz Eure Hilfe:
In Zell F14 steht eine 6 Stellige Zahl
Die erste stelle ist nicht wichtig also Right(F14, 5)
Die klemme ich hinter den Pfad und möchte nun den Ordner öffnen
der meinetwegen 99999 heißt (F14 = 099999)
Das haut so aber nicht...
12.07.2017 17:02:58
Thread-ID: 1568834
2 Beiträge
VBA: Zellen auslesen in einem Datei-Ordner?
Juergen

Hallo zusammen,
ich hatte bisher ein VBA Makro, welches ein paar Zellinhalte in ein neues Tabellenblatt aus einem Dateien-Ordner ausgelesen hat. Nun wurden die Erfassungs-Blätter geändert und das alte Makro passt leider nicht mehr.
Hier mein altes Makro:
Sub Konsolidierung() 'Variab...
30.01.2018 08:57:37
Thread-ID: 1605744
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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