Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Datei überschreiben und sheet löschen ohne Nachfrage





Frage

Hallo! Wie muss der Makrobefehl aussehen, wenn ich a,) ein Arbeitsblatt löschen möchte Sheets("GE").Select ActiveWindow.SelectedSheets.Delete und b,) eine existierende Datei überschreiben möchte. ActiveWorkbook.Save ActiveWorkbook.SaveAs FileName:= _ "L:\Projekte\...\Pivot09.xls", FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False Und das ganze ohne Nachfrage seitens Excel. Besten Dank schon im Voraus Viele Grüße Thomas

Antwort 1 von Guenter

Hallo,

versuchs mal mit:

Application.DisplayAlerts = False


Gruß
Günter

Antwort 2 von JonesM

Hallo!
Funktioniert leider nicht.

Vielleicht gibts noch ne andere Möglichkeit?

Viele Grüße


Antwort 3 von Guenter

Hallo,

zum Teil a)

Excel 2000: Folgendes Makro funktioniert beim mir einwandfrei:


Option Explicit

Sub Test()
Sheets("GE").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub


Gruß
Günter

Antwort 4 von JonesM

Hallo Günter,
vielen Dank, funktioniert.
Gruß
Thomas

Antwort 5 von want2cu

hallo Thomas,

zu Teil deiner Frage:
Sub ArbeitsmappeSchließen()
With ActiveWorkbook
.Sheets(1).Range("A1").Value = _
"letzte Änderung " & Now & " vom Anwender " & _
Application.UserName
.Close SaveChanges:=True
End With
Application.DisplayAlerts = False
End Sub


Wenn du die Arbeitsmappe vorher löschen willst, geht das so:

Sub ArbeitsmappeLöschen()
Const Lw = "c:\"
Const Pfad = "c:\eigene Dateien"
Const Datei = "Mappe2.xls"
On Error GoTo fehler:
Kill Datei
MsgBox "Arbeitsmappe " & Datei & " wurde gelöscht!"
Exit Sub
fehler:
MsgBox "Es konnte keine Datei mit dem Namen " & _
Datei & " gefunden werden!"
End Sub

Das ist natürlich nicht auf meinem Mist gewachsen, sondern aus dem Buch "EXCEL-VBA-Programmierung" von Markt&Technik, ISBN3-8272-6185-6, Preis49,95 Euro, Autor: Bernd Held .
Darin finden sich über 850 Makros für jede Gelegenheit.

HTH+CU
KLaus