Sicherungskopie über Makrocode..
17.09.2008 08:09:00
Ernst
Habe wieder mal wieder ein Problem wo ich eure Hilfe benötigen würde...
Dieses Makro wird über eine Befehlsschaltfläche aufgerufen (Alle Einräge löschen) ich hätte gerne das eine Sicherungskopie erstellt wird bevor alle Einträge gelöscht werden und zwar in einem Ordner der sich Archiv nennt ist das möglich !
Private Sub CommandButton4_Click()
Dim wks As Worksheet
Dim JaNein As Variant
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Worksheets("Untergestell ")
wks.Range("B3:C100").ClearContents
wks.Range("F3:G100").ClearContents
wks.Range("J3:K100").ClearContents
Set wks = Nothing
End If
End Sub
Wäre für Lösungsvorschläge sehr dankbar.
Lg.Ernst
Anzeige