Abfrage übergeben !

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Abfrage übergeben !
von: thomas scher
Geschrieben am: 23.09.2003 22:00:40

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
Bild


Betrifft: Sorry sollte Abfrage übegehen heissen !
von: thomas scher
Geschrieben am: 23.09.2003 22:02:34

Sorry sollte Abfrage übergehen und Bestätigen sein !!

Bin schon sehr Müde

Gruß
Der Thomas


Bild


Betrifft: Ich habs mit Kill gelöst ! Danke !
von: thomas scher
Geschrieben am: 23.09.2003 22:35:07

Vielen dank ich hab es mit dem Kill Befehl gelöst !!

Gruß
Thomas


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Abfrage übergeben !"