Löschmakro
08.04.2015 08:03:45
Weingartner
Ich benutze im Moment für meine Datei folgendes Löschmakro !
Private Sub CommandButton1_Click()
Dim JaNein As Variant, wks As Worksheet
JaNein = MsgBox("Sind Sie wirklich sicher ?", vbYesNo, "Sicherheitsabfrage")
If JaNein = 6 Then ' Ja
Set wks = Sheets("Tabelle1")
With ThisWorkbook
.SaveCopyAs "d:" & Left(.Name, Len(.Name) - 4) & Format(Now, "DDMMYY.xls") & ".xlsm"
End With
wks.Range("b8:o8,b10:o10,b13:o13,b15:o15,b18:o18,b20:o20,b23:o23,b25:o25,b28:o28,b30:o30, _
b33:o33,b35:o35,").ClearContents
End If
End Sub
Bis Zeile 5000 sollte die Lösch-Rangereihenfolge beibehalten werden...geht das einfacher als die die Bereiche jetzt zb.b38:o38,b40:o40,b43:043 usw manuell einzutragen ?
wäre für Lösungsansatz Dankbar !
lg.