Hallo liebe Forumsmitglieder,
habe einen Code mir zusammengebastelt, welcher mir vor dem Speichern der Exceldatei
alle vorhandenen Exceldateien die mit dem selben Namen beginnen in einen Archivordner
ablegen soll. Funktioniert soweit super. Das Problem ist, wenn das Makro keine Datei findet, die er
ins Archiv ablegen kann bleibt mein Makro hängen.
Wie bekomme ich es gebacken, dass er wenn er keine entsprechenden Dateien findet einfach weiter macht ?
hier mein code:
Private Sub Speichern_Click()
'
Dim objFSO As Object
Dim ALTXLS As String
Dim ARCHIVXLS As String
Rem Archivieren
ARCHIVXLS = Range("M1").Text
ALTXLS = Range("L9").Text
If Range("A16") "" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.MoveFile ALTXLS, ARCHIVXLS (hier bleibt das Makro dann stehen)
Else
End If
(wenn nichts vorhanden dann sollte er hier her springen)
Rem speichern
Pfadname = Range("L7").Text
Dateiname = Range("B3") & Range("L2") & Range("L5") & Range("L6") & Range("L3").Text
Ordner = Range("L4").Text
ActiveWorkbook.SaveAs Pfadname & "\" & Ordner & "\" & Dateiname & ".xlt"
Vielen Dank schon mal vorab
Stefan