|
Hallo Ralf,
habe es geschafft.Die Datei, die ich benutzt habe hatte *.xls. Sie hat aber auf meinem Laptop anstandlos funktioniert (bis heute) und auf dem Kassenrechner bis Sonntag vor einer Woche auch. Da ging dann das "ClearContents" plötzlich nicht mehr. "Clear" und "ClearFormats" ging aber trotzdem noch. Das ist alles mysteriös, oder?
Jetzt habe ich die Datei in *.xlsm umbenannt und im Code eine Änderung vorgenommen. Jetzt funzt alles so wie es soll.
Eine Frage hätte ich noch an Dich
Die letzten beiden Befehle lauten:
ActiveWorkbook.Save
Application.Quit
Trotzdem aber fragt das Programm nochmal nach, ob die Änderungen gespeichert werden sollen. So als wenn man das Programm ganz normal mit dem "X" oben rechts beendet aber die Datei vorher noch nicht gespeichert hatte. Kann man das vermeiden? Nach "ActiveWorkbook.Save" muss er doch nicht nochmal fragen, oder?
An Dich nochmal einen recht herzlichen Dank für Deine Hilfsbereitschaft und Grüße aus der Pfalz
Michael
Und falls Dich der alte und neue Code interessiert:
Alter Code
Private Sub CommandButton2_Click()
If MsgBox("Sind Sie sicher?", vbYesNoCancel, "Einträge löschen") = vbYes Then
Range("C11,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H18,H19,L4,L5,L6,L7,L8,L18").ClearContents
End If
Dim rngZelle As Range, rngSrc As Range
Set rngSrc = Range("A25:E25,A26:E26,A27:E27,A28:E28,F25:G25,F26:G26,F27:G27,F28:G28,H25:L25,H26:L26,H27:L27,H28:L28,G1:H1")
If Not rngSrc.MergeCells Then
rngSrc.ClearContents
Else
For Each rngZelle In rngSrc
rngZelle.MergeArea.ClearContents
Next
End If
End Sub
Neuer Code
Private Sub CommandButton2_Click()
If MsgBox("Sind Sie sicher?", vbYesNoCancel, "Einträge löschen") = vbYes Then
Dim rngZelle As Range, rngSrc As Range
Set rngSrc = Range("C11,H4,H5,H6,H7,H8,H9,H10,H11,H12,H13,H14,H18,H19,L4,L5,L6,L7,L8,L18,A25:E25,A26:E26,A27:E27,A28:E28,F25:G25,F26:G26,F27:G27,F28:G28,H25:L25,H26:L26,H27:L27,H28:L28,G1:H1")
If Not rngSrc.MergeCells Then
rngSrc.ClearContents
Else
For Each rngZelle In rngSrc
rngZelle.MergeArea.ClearContents
Next
End If
End If
End Sub
|