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
1508to1512
1508to1512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Verschieben Dateien von C: nach V:

Forumthread: VBA - Verschieben Dateien von C: nach V:

VBA - Verschieben Dateien von C: nach V:
22.08.2016 11:55:38
C:
Hallo beisammen,
ich möchte gerne Dateien aus dem Pfad
C:\Users\12345\LN intern
nach
V:\Ordner1\LN intern
verschieben. Könnt Ihr mir mit einem VBA-Ansatz behilflich sein?
Super wäre eine Meldung ("keine Dateien gefunden"), falls der Suchordner leer ist bzw. eine Meldung, wieviele Dateien verschoben wurde, falls der Ordner Dateien enthält.
Vielen Dank für Eure Hilfe.
Gruß
Torsten
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Verschieben Dateien von C: nach V:
22.08.2016 12:54:00
C:
Hi
probiers mal so:
Sub test()
Dim Pfad1 As String
Dim Pfad2 As String
Dim Zähler As Long
Dim Datei As String
Pfad1 = "C:\Users\12345\LN intern"
Pfad2 = "V:\Ordner1\LN intern"
If Dir(Pfad1, vbDirectory) = "" Then
MsgBox "Quellverzeichnis nicht vorhanden"
Exit Sub
End If
If Dir(Pfad2, vbDirectory) = "" Then
MsgBox "Zielverzeichnis nicht vorhanden"
Exit Sub
End If
Datei = Dir(Pfad1 & "\*")
Do While Datei  ""
Zähler = Zähler + 1
Name Pfad1 & "\" & Datei As Pfad2 & "\" & Datei
Datei = Dir
Loop
Select Case Zähler
Case 0: MsgBox "keine Dateien zum verschieben gefunden"
Case Else: MsgBox Zähler & " Dateien verschoben" & vbLf & "von: " & Pfad1 & vbLf & "nach: "  _
& Pfad2
End Select
End Sub
Gruß Daniel
Anzeige
AW: VBA - Verschieben Dateien von C: nach V:
22.08.2016 13:05:32
C:
Hallo, 
Sub aaaa()
Dim fso As Object, n As Integer
Set fso = CreateObject("scripting.filesystemobject")
n = fso.getfolder("C:\Users\12345\LN intern\").Files.Count
If n > 0 Then
fso.movefile "C:\Users\12345\LN intern\*.*", "V:\Ordner1\LN intern\"
MsgBox n & " Dateien verschoben"
Else
MsgBox "keine Dateien"
End If
End Sub
Gruß
Rudi
Anzeige
closed -VBA-Verschieben Dateien von C: nach V:
22.08.2016 14:30:19
C:
Hallo Daniel und Rudi,
vielen Dank für Eure Ansätze.
Ich habe von Euch beiden einige Elemente übernommen und neu zusammengesetzt.
Habt vielen Dank für Eure Unterstützung.
Gruß
Torsten
;

Forumthreads zu verwandten Themen

vba-Datenexport nach Excel2007 -Array mit 70000 DS
Tim

Hallo,
ich habe einen Datenexport aus einem Programm nach Excel in vba. Das ganze funktioniert soweit ganz gut.
Nun möchte ich jedoch nicht, das sjede Zeile aus meinem Programm exportiert wird, daher gibt es ein Array mit entsprechenden Datensätzen: Entweder eine 1 (steht für Export der...
20.08.2008 08:57:00
Thread-ID: 1003084
2 Beiträge
Anzeige
VBA-Code - Datei speichern unter; Schleife
Schulze

Halli Hallo,
ich habe eine kurze frage. und war geht es darum, dass die spalte a untersucht werden sollen. es sollen alle werte der tabelle (zeilen) kopiert werden, bis in der spalte a der wert 0 ist.
Im Folgenden habe ich eine Beispieldatei drangehangen. https://www.herber.de/bbs/user/...
21.08.2008 10:57:00
Thread-ID: 1003407
2 Beiträge
Excel: per VBA Kopieren, Quelldatenlöschen
Bolle

Hallo, Ich bin zwar ein alter Sack, aber neu hier.
Meine Frage:
In Spalte C2 bis H100 habe ich Datensätze weche Ich durch Doppelklick auf Zelle
(z.B. C33) die Zeile C bis H nach K5:P5 kopieren möchte. Danach sollten die kopierten
Zellen gelöscht werden. Durch nachrücken der u...
23.08.2008 14:14:40
Thread-ID: 1004109
3 Beiträge
Anzeige
Abgleichen von Daten per VBA
Daten

Hallo Forum,
ich möchte gerne Daten von einem Tabellenblatt (Hilfstabelle) in eine anderes Tabellenblatt (Terminierung) überrtagen. Hierbei soll das Makro schauen, ob der Datensatz schon vorhanden ist.
Wenn ja, dann sollen die Spalten aktualisiert werden.
Wenn nicht, dann sollen...
09.09.2008 10:34:00
Thread-ID: 1008354
5 Beiträge
Anzeige
Vergleich von Daten per VBA
Daten

Hallo Forum,
ich habe gestern nette Hilfe bezüglich eines VBA Problems erhalten.
Bei der Testdatei funktionierte das Makro dann auch prima, in der Originaldatei nicht. Ich habe es angepaßt, weiß aber nun nicht, wo der Fehler in der Syntax liegt.
Problem:
Das Makro verschrei...
10.09.2008 08:48:00
Thread-ID: 1008629
3 Beiträge
Leseschutz für Datei, mit VBA aufheben
Iro

Hallo,
folgendes Problem: ich will zwischen zwei Dateien Daten austauschen. Die A-datei soll grundsätzlich PW-geschützt werden, und zwar so, dass der User weder etwas verändern kann noch sie überhaupt öffnen. Nur wenn der User aus der B-datei mit der vorgesehenen Form Daten überträgt, soll...
21.10.2008 14:18:57
Thread-ID: 1017997
4 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Anzeige
VBA: Erste Seite einer Datei nicht mitdrucken
Jonathan

Hallo zusammen,
ich habe folgendes Problem, welches mittels eines Makros gelöst werden muss:
Ich möchte in eine Datei ein Makro einbauen, welches verhindert, dass die erste Seite mitgedruckt wird.
Das Makro sollte nach dem klick auf die Druckfunktion starten.
Da die Datei späte...
17.04.2009 11:15:57
Thread-ID: 1069277
5 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
VBA-Datenmaske Änderungen speichern
Kay

Hi, habe folgendes Problem und komme einfach nicht weiter und versteh es nicht.
Habe eine Userform, in der einige Daten zu einem Kunden erfasst werden und in einer Tabelle hinterlegt werden. Das läuft super ! Aber nun möchte ich mit einer 2'ten Userform die Daten auch bearbeiten lassen.
...
03.07.2009 09:58:18
Thread-ID: 1086101
3 Beiträge
VBA-Exceldatei unter Excel 2003 und 2007 nutzen
Martin

Hallo,
ich mache mir den Umstieg von Excel 2003 auf 2007 ziemlich schwer, will aber den Anschluss nicht verpassen und daher auf einem PC gerne unter Excel 2007 arbeiten.
Meine Frage: Ich arbeite sehr intensiv mit einer Exceldatei, in der es zahlreiche benutzerdefinierte über VBA erzeugt...
14.07.2009 12:29:24
Thread-ID: 1088399
5 Beiträge
VBA-Datenübernahme schlägt fehl
Sascha

Hallo liebe Excel-Profis,
in einer Datenbank nutze ich zum Auflisten aller gespeicherten Datensätze folgenden VBA-COde:
Private Sub Worksheet_Activate() 'Zielblatt muss immer die höchste Nr. haben! Dim i As Long Dim j As Long On Error GoTo Fehler Application.EnableEvents = False Applica...
12.09.2009 20:02:16
Thread-ID: 1102222
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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