|
Hallo an alle Mitglieder vom VBA Forum,
ich habe eine Gutscheinabrechnung für die Kassenkräfte bei uns im Kino erstellt. Hat jahrelang wunderbar funktioniert bis Sonntag vor einer Woche. Da wollte dieser unten mit Code dargestellte Button 2 nicht mehr. Es sind insgesamt 4 Command Buttons und es funktionieren aktuell immer noch alle bis auf Button 2. Der will einfach nicht mehr und löscht die Inhalte der Zellen (in nicht verbundenen und verbundenen Zellen) nicht. Interessant dabei ist: Wenn ich "ClearContents" durch "Clear" oder "ClearFormats" ersetze dann tut er was er soll, nur bei CearContents passiert nichts. Info: Die Zellen sind nicht gesperrt, Kassenrechner mit Excel 2016, Windows 11, Reparatur von Excel mit der Installationsdatei durchgeführt, MSForms.exd gelöscht.
Auf meinem Laptop, Windows 10, Excel 2007 funktioniert nach wie vor alles reibungslos.
Ich suche jetzt schon tagelang nach dem Fehler und bin für Euere Hilfe im voraus sehr dankbar
Dankeschön und liebe Grüße
Michael
Hier der Code:
Private Sub CommandButton2_Click()
If MsgBox("Sind Sie sicher?", vbYesNoCancel, "Einträge löschen") = vbYes Then
Sheets("Tabelle1").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 = Worksheets("Tabelle1").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
|