Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Abfrage übergeben !

Abfrage übergeben !
23.09.2003 22:00:40
thomas scher
Hallo Excelperten;
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Sorry sollte Abfrage übegehen heissen !
23.09.2003 22:02:34
thomas scher
Sorry sollte Abfrage übergehen und Bestätigen sein !!

Bin schon sehr Müde

Gruß
Der Thomas
Ich habs mit Kill gelöst ! Danke !
23.09.2003 22:35:07
thomas scher
Vielen dank ich hab es mit dem Kill Befehl gelöst !!

Gruß
Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige