Würde eure Hilfe Benötigen.
und zwar gehts um folgendes.
1)mein Makro archiviert und löscht alle Einträge in den gewünschten Rangebereichen.
Es gibt aber gewisse Zellen die mit Textkürzeln befüllt sind (coc,zw,fav,hls,otg,gtl,michl)
Diese Einträge sollten nicht gelöscht werden.
2) die Datei sollte nicht unter dem Blattnamen abspeichert werden sondern der Text aus Zelle a1
sollte als Bezug genommen werden.
wie lässt sich das bewerkstelligen ?
wäre für Lösungsvorschläge dankbar.
lg.Ernst
Private Sub CommandButton2_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("Sandfüllen")
wks.Range("B3:B100").ClearContents
wks.Range("F3:G100").ClearContents
wks.Range("J3:K100").ClearContents
Set wks = Nothing
End If
End Sub
Private Sub CommandButton4_Click()
Dim JaNein As Variant, wks As Worksheet
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Sheets("")
With ThisWorkbook
.SaveCopyAs "X:\Archiv\" & Left(.Name, Len(.Name) - 4) & Format(Now, "DDMMYYYY.xls") & " _
.xls"
End With
wks.Range("B3:C100,F3:G100,J3:K100").ClearContents
End If
End Sub