Datei in Unterordner schieben geht in Hauptordner nicht

Moderator: ModerationP

Re: Datei in Unterordner schieben geht in Hauptordner nicht

Beitragvon wut » 19. Sep 2021, 15:12

@all

ich habs bin ganz alleine drauf gekommen (nagut stimmt nicht IHR habt mir alle geholfen) habe den absoluten Bezug w2 durch ("a" & ActiveCell.Row) ersetzt. JEtzt funktioniert es wenn ich die Makros einzen ablaufen lassen, wenn ich sie zusammen ablaufen lassen dann noch nicht - aber das ist egal. DANKE DANKE

Code: Alles auswählen
Sub Datei_verschieben5()
'Dieser Code kopiert eine Datei in die Ordnerstruktur der Tabelle nur wenn ich spalte d der gleiche ordnername drinsteht IN DEN UNTERORDNER
   Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long
   Dim Vorlage As String
   
'   Vorlage = "C:\Users\marcu\Desktop\3 Fertig - Kopie\1.txt"
Vorlage = ActiveWorkbook.Path & "\readme2.txt"
   
'   hier die zele eingeben mit einem buchstaben wo gesucht werden soll
   Zeilen = Cells(Rows.Count, "a").End(xlUp).Row
     
   Pfad = ActiveWorkbook.Path & "\"
'   Range("B1")
   
   For i = 1 To Zeilen
'   hier die zele eingeben mit einem zahl wo gesucht werden soll

     FullPfad = Pfad & Cells(i, 1) & "\" & Range("a" & ActiveCell.Row) & "\"
     
     If Dir(FullPfad, vbDirectory) <> "" Then
         FileCopy Vorlage, FullPfad & Dir(Vorlage)
'            Name Vorlage As FullPfad & Dir(Vorlage)
     Else
'         MsgBox FullPfad & "   nicht vorhanden"
     
     End If
   Next i
 End Sub
'  Sub Datei_verschieben5()
''Dieser Code kopiert eine Datei in die Ordnerstruktur der Tabelle nur wenn ich spalte d der gleiche ordnername drinsteht IN DEN UNTERORDNER
'   Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long
'   Dim Vorlage As String
'
''   Vorlage = "C:\Users\marcu\Desktop\3 Fertig - Kopie\1.txt"
'Vorlage = ActiveWorkbook.Path & "\readme2.txt"
'
''   hier die zele eingeben mit einem buchstaben wo gesucht werden soll
'   Zeilen = Cells(Rows.Count, "a").End(xlUp).Row
'
'   Pfad = ActiveWorkbook.Path & "\"
''   Range("B1")
'
'   For i = 1 To Zeilen
''   hier die zele eingeben mit einem zahl wo gesucht werden soll
'
'     FullPfad = Pfad & Cells(i, 1) & "\"
'
'     If Dir(FullPfad, vbDirectory) <> "" Then
'         Name Vorlage As FullPfad & Dir(Vorlage)
'     Else
''         MsgBox FullPfad & "   nicht vorhanden"
'
'     End If
'   Next i
' End Sub

wut
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 395
Registriert: 21. Sep 2005, 11:32

Vorherige

Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 18 Gäste

cron