nicht angemeldet
hallo,
leider passt mein post nicht ganz in das forum, aber dieses script stammt auch hierher.
ich habe eine excel und in der 1. spalte stehen die kundennummern und in der 2. die kundenberater.
habe nun ein makro:
Sub Makro1()
'
' Makro1 Makro
' Makro am 11.01.06 von **** aufgezeichnet
'
Dim lngZ As Long
Dim strQuellpfad As String, strZielpfad As String
Dim datname As String
'Schleife über die Zellen:
For lngZ = 1 To Cells(Rows.Count, 1).End(xlUp).Row
'Quellpfad zusammenbasteln:
strQuellpfad = "C:\test" & Cells(lngZ, 1) & ".pdf"
'Zielpfad zusammenbasteln:
strZielpfad = "C:\test" & Cells(lngZ, 2) & "" & Cells(lngZ, 1) & ".pdf"
'Kopieren:
FileCopy strQuellpfad, strZielpfad
End If
Next
End Sub
das makro kopiert die pdfs ("kundenummer".pdf) in den ordner der kundenberater ...
bricht dies aber ab, weil in der excel auch kundennummern vorhanden sind, wo es keine pdfs gibt.
wie könnte man dies prüfen?
habe auch schon etwas rumprobiert:
datname = Cells(lngZ, 1) & ".pdf"
If Dir(datname) <> "" Then
es gab aber keinen erfolg, da ich in diesem gebiet nicht ernsthaft ahnung habe.
günstig wäre vielleicht, auch wie eine messagebox, die sagt, welche kundennummer nicht vorhanden ist ...
ich danke schonmal für die kompetenten antworten ...
have a nice day!
lg felix