Abfrage übergeben !
23.09.2003 22:00:40
thomas scher
ich habe ein Problem. Reinhard hat mir mit einem Macro sehr geholfen, doch überschreibt es mir nicht die Vorhandenen Dateien und ich komme so nicht weiter!
Wenn also die Datei nicht vorhanden ist soll er im Macro weitermachen! Wenn überschrieben werden soll soll er Überschreiben. Ich habe es mit displayalerts false versucht doch er macht er macht es nicht ! Hier mal der Code!
Sub DateiUmbenennen()
Application.DisplayAlerts = False
Const csMsg As String = "Datei existiert, überschreiben?"
On Error Resume Next
Workbooks.Open Filename:="c:\Datei Umbenennen.xls"
Workbooks("Datei Umbenennen.xls").Activate
Dim i As Integer
For i = 1 To 100 Step 1
'verzeichnis = InputBox(("Bitte Pfad eingeben!"), "Verzeichnisse in Tabelle1", "C:\AVAYA-REPORTS\")
verzeichnis = "J:\AVAYA-REPORTS\"
'x = verzeichnis & Cells(i, 1)
'y = verzeichnis & Cells(i, 2)
Name verzeichnis & Cells(i, 1).Value As verzeichnis & Cells(i, 2).Value
Next i
Workbooks("Datei Umbenennen.xls").Close False
Application.DisplayAlerts = True
End Sub
vielen dank für die Hilfe im Vorraus !!
danke der Thomas