Thema Datum  Von Nutzer Rating
Antwort
06.05.2021 09:27:02 Markus
NotSolved
Blau Dateien von einer Liste von Order zu Ordner verschieben
 06.05.2021 10:52:07 Gast78184
NotSolved
06.05.2021 11:34:29 Markus
Solved
06.05.2021 11:35:41 Gast94350
NotSolved

Ansicht des Beitrags:
Von:
Gast78184		 Datum:
06.05.2021 10:52:07		 Views:
433		 Rating:
     
Antwort:
  Ja
Thema:
Dateien von einer Liste von Order zu Ordner verschieben

Ich habe noch diesen Code gefunden. Den Ziel Pfand setzt man in Zelle A2 die Quelle in A1 und die Datei Namen in Spalte B.

Leider funktioniert das auch nicht, der Code wird direkt in rot angezeigt.  

 

Sub MoveFiles()
   Dim strQuelle As String, strZiel As String, strFileName As String
   Dim i As Long
   
   strQuelle = Range("A1").Value
   strZiel = Range("A2").Value
   
   If Right(strQuelle, 1) <> "\" Then strQuelle = strQuelle & "\"
   If Right(strZiel, 1) <> "\" Then strZiel = strZiel & "\"
   
   If Len(Dir(strQuelle & "*.*", vbDirectory)) = 0 Then
      MsgBox strQuelle & " : Quelle existiert nicht!", vbCritical
      Exit Sub
   End If
   
   If Len(Dir(strZiel & "*.*", vbDirectory)) = 0 Then
      MsgBox strZiel & " : Ziel existiert nicht!", vbCritical
      Exit Sub
   End If
   
   For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
      strFileName = Cells(i, 2).Value
      If Len(Dir(strQuelle & strFileName)) > 0 Then
         Name strQuelle & strFileName As strZiel & strFileName
      Else
         Debug.Print strQuelle & strFileName & " existiert nicht"
      End If
   Next
End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.05.2021 09:27:02 Markus
NotSolved
Blau Dateien von einer Liste von Order zu Ordner verschieben
 06.05.2021 10:52:07 Gast78184
NotSolved
06.05.2021 11:34:29 Markus
Solved
06.05.2021 11:35:41 Gast94350
NotSolved