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:
Gruß
Günter
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
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:
Gruß
Günter
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
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
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