Thema Datum  Von Nutzer Rating
Antwort
Rot Range ClearContents in CommandButton
26.06.2024 01:58:20 Gast6744
NotSolved
26.06.2024 06:57:36 ralf_b
NotSolved
26.06.2024 08:48:30 Gast87515
NotSolved
26.06.2024 16:38:06 ralf_b
NotSolved
26.06.2024 17:39:33 Gast53900
NotSolved
28.06.2024 19:09:24 Gast84785
Solved
29.06.2024 12:46:22 ralf_b
NotSolved
30.06.2024 12:00:37 Gast24402
Solved

Ansicht des Beitrags:
Von:
Gast6744
Datum:
26.06.2024 01:58:20
Views:
339
Rating: Antwort:
  Ja
Thema:
Range ClearContents in CommandButton

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Range ClearContents in CommandButton
26.06.2024 01:58:20 Gast6744
NotSolved
26.06.2024 06:57:36 ralf_b
NotSolved
26.06.2024 08:48:30 Gast87515
NotSolved
26.06.2024 16:38:06 ralf_b
NotSolved
26.06.2024 17:39:33 Gast53900
NotSolved
28.06.2024 19:09:24 Gast84785
Solved
29.06.2024 12:46:22 ralf_b
NotSolved
30.06.2024 12:00:37 Gast24402
Solved