und gleich noch ne frage
da ich mich nicht auskenne in VBA.
ich habe in diesen forum einen code gefunden (Danke für den ersteller)
über das Drucken eines Tab.-Blattes was gleich eine Sicherungkopie macht.
ist es möglich ein abfragefenster einzubinden unter welchen Namen und auf welches laufwerk ich es speichern möchte?
hier der code:
Option Explicit
Const SicherungsDatei = "Sicherung.xls"
Private Sub CommandButton4_Click()
Dim Anz, Neu As Integer
Dim Dummy As String
Application.ScreenUpdating = False
On Error GoTo ok
Dummy = Workbooks(SicherungsDatei).Name 'Abfrage zum Fehler erzeugen, wenn nicht vorhanden
'kein Fehler = FEHLER: Datei schon vorhanden!
MsgBox "Sicherung kann nicht durchgeführt werden, da eine Datei mit Namen " & SicherungsDatei & _
" schon geöffnet ist." & Chr(10) & _
"Schließen Sie diese Datei und wiederholen sie den Vorgang.", vbCritical, "Fehler bei der Sicherung"
Exit Sub
ok:
On Error GoTo 0
Anz = Workbooks.Count
Sheets("Druckvorschau").Copy
Workbooks(Anz + 1).Activate
Cells.Copy
Cells.PasteSpecial xlPasteValues
Application.CutCopyMode = False
'Prüfe, ob Datei schon existiert:"
'Ja
If Dir(ThisWorkbook.Path & "\" & SicherungsDatei) <> "" Then
If MsgBox("Die Datei " & SicherungsDatei & " existiert schon. Überschreiben?", vbYesNo + vbQuestion) = vbNo Then
MsgBox "Die Sicherungsdatei konnte nicht gespeichert werden!", vbCritical, "Fehler beim Speichern"
ActiveWorkbook.Close SaveChanges:=False 'schließt Kopie ohne Speichern
Exit Sub
Else
Kill ThisWorkbook.Path & "\" & SicherungsDatei
End If
End If
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & SicherungsDatei
'Kopie drucken?
If MsgBox("Soll die Kopie gleich gedruckt werden?", vbYesNo + vbQuestion, SicherungsDatei) = vbYes Then
ActiveSheet.PrintOut
End If
'Kopie schließen
ActiveWorkbook.Close
MsgBox "Kopie erfolgreich unter " & ThisWorkbook.Path & "\" & SicherungsDatei & " gespeichert.", vbInformation, SicherungsDatei
Application.ScreenUpdating = True
End Sub
Gruß jens