Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Abfrage übergeben !"

Unterdrückung von Sicherheitsabfragen download Arbeitsmappe-Schließen-Abfrage abfangen download
Name der aufrufenden Schaltfläche abfragen download Abfrage der markierten Spalten download
Anzahl der einzufügenden Zeilen abfragen download Programmabbruch bei Überspeichernabfrage verhindern download
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist download Web-Abfrage ohne *.iqy-Datei download
Web-Aktienkursabfrage bei YAHOO download Start- und Enddatum abfragen und markieren download
Abfrage, ob 16- oder 32-Bit-System download Abfrage von Rechenaufgaben zeitgesteuert nach dem Zufallsprizip download
Paßwortabfrage download Passwort vergeben und bei CheckBox-Aktivität abfragen download
Sicherheitsabfrage, bevor Befehl ausgeführt wird download Werte von CheckBoxes in einer UserForm abfragen download
Speichernabfrage beim Schließen der Arbeitsmappe download Mit InputBoxes Zeilennummern abfragen und Summe bilden download
Paßwortabfrage mit UserForm download Suchbegriff über InputBox abfragen und Fundzeile löschen download
Druckstart- und endzeilen über InputBox abfragen download Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download
Beim Öffnen der Arbeitsmappe Passwort abfragen download Passwortabfrage mit ShortCut-Aufruf download
Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes download Suchbegriff abfragen und Fundzeile markieren download
Abfrage der Auswahl aus einem Gültigkeits-Listenfeld download DNS und IP abfragen download
Abfrage vor Start- und Enddatum eines zu druckenden Bereiches download Zeit über InputBox abfragen, dividieren und zurückgeben download
Autofilterkriterium abfragen und filtern download Ergebnis einer WebAbfrage in neue Arbeitsmappe download
Webabfrage periodisch aktualisieren und Ergebnisse speichern download Webabfrage über ein Perl-Script download
Webabfrage in formatierter Tabelle download Masterlistsystem mit Passwortabfrage bei Blattauswahl download
Paßwortabfrage beim Öffnen der Arbeitsmappe download