24.10.2015, 11:12
Hallo beisammen.
Bin mal wieder hier. Das Problem "leere Zelle" konnte ich leider nicht lösen, ist nicht weiter tragisch denn ich habe inzwischen einen anderen Weg erarbeitet. Aber, auch da gibt es Probleme, die Datei wird momentan in einem "Ersatzverzeichnis" gespeichert, da es dorthin wo es sein sollte nicht klappt (gebe gelegentlich mal an warum m.E. das nicht geht).
Ersatzweise bin ich dabei zu ve
rsuchen, die erstellte Datei per VBA zu verschieben. Aber alles was ich dazu bilang gefunden habe, geht nicht. Z.B. das, was hier dazwischengerutscht ist.
Fehlermeldung: Fehler beim Kopilieren (Zeile "
). Kann ich da was tun? Und Sorry, den Umgang mit dem Forum scheine ich auch verlernt zu haben. Benutze E2010.
(und nun mal schauen ob meine mal erstellte Signatur noch geht...)
Bin mal wieder hier. Das Problem "leere Zelle" konnte ich leider nicht lösen, ist nicht weiter tragisch denn ich habe inzwischen einen anderen Weg erarbeitet. Aber, auch da gibt es Probleme, die Datei wird momentan in einem "Ersatzverzeichnis" gespeichert, da es dorthin wo es sein sollte nicht klappt (gebe gelegentlich mal an warum m.E. das nicht geht).
Ersatzweise bin ich dabei zu ve
Code:
Sub CopyAusgaben()
Dim Quellpfad As String
Dim Zielpfad As String
Dim Suchmuster As String
Dim FilesC As String
Dim NewPath As String
Quellpfad = "C:\Benutzer\karomue\HausDateien\"
Zielpfad = "C:\Benutzer\karomue\EigeneDokumente\Aktenkoffer\"
Suchmuster = "Ausgaben2015.xlsm" '"*.txt"
FilesC = Dir(Quellpfad & Suchmuster)
'A = CheckDir(NewPath)
For i = 1 To .FoundFiles.Count
NewPath = Left(.FoundFiles(i), Len(.FoundFiles(i)) - Len(Dir(.FoundFiles(i))))
NewPath = ZielPath & Right(NewPath, Len(NewPath) - Len(QuellPath))
If CheckDir(NewPath) = False Then
MsgBox "Kopieren fehlgeschlagen!"
Exit Sub
Else
FileCopy .FoundFiles(i), ZielPath & Right(.FoundFiles(i), Len(.FoundFiles(i)) - Len(QuellPath))
End If
Next
Do While Files <> ""
FileCopy Quellpfad & Files, Zielpfad & Files
Files = Dir()
Loop
End Sub
Fehlermeldung: Fehler beim Kopilieren (Zeile "
Code:
.FoundFiles
). Kann ich da was tun? Und Sorry, den Umgang mit dem Forum scheine ich auch verlernt zu haben. Benutze E2010.
(und nun mal schauen ob meine mal erstellte Signatur noch geht...)