Thema Datum  Von Nutzer Rating
Antwort
Rot CheckBoxen können nicht mehr angewählt werden
09.05.2023 10:12:01 Benedikt
Solved
09.05.2023 16:22:49 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Benedikt
Datum:
09.05.2023 10:12:01
Views:
516
Rating: Antwort:
 Nein
Thema:
CheckBoxen können nicht mehr angewählt werden

Hallo zusammen,

 

ich habe folgendes Problem. Ich habe einen Maschinenkonfigurator in Excel gebaut, mit dem sich durch CheckBoxen die Ausstattungsvarianten auswählen lassen. Dies Funktioniert auch alles Reibungslos. Wenn ich die Konfiguration abgeschlossen habe, kann ich aus der Ausstattungsliste ein Angebot drucken. Dafür habe ich ein Schaltfläche eingebaut. Diese blendet über Checkbox.Visible = False alle CheckBoxen aus und Filtert über den Autofilter alle Ausstattungen die ausgewählt worden sind. Außerdem springt die Datei in die Druckansicht. Sollte mir hier auffallen, dass ich noch einen Fehler in der Konfiguration ist kann ich über den Zurück-Pfeil wieder zur Datei springen. Hier lande ich jedoch auf dem Deckblatt (anderes Arbeitsblatt) über eine Schaltfläche kann ich dann zur Konfiguration zurück springen. Um die Checkboxen wieder sichtbar zu machen und den Autofilter zu löschen habe ich eine Schaltfläche programmiert. Dies funktioniert auch noch reibungslos, doch dann kommt der Fehler. Nach diesen Schritten lassen sich viele der CheckBoxen nicht mehr auswählen und fangen an durch angklicken sich automatisch zu verschieben oder die Größe zu verändern. 

 

An dieser Stelle bin ich überfragt warum das nicht mehr funktioniert.

Hier der Code um die Druckansicht aufzurufen:

Private Sub CommandButton1_Click()
 Range("B50:B257").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$50:$B$262").AutoFilter Field:=1, Criteria1:=Array("WAHR", "", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"), Operator:=xlFilterValues, VisibleDropDown:=False
CheckBox1.Visible = False
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = False
CheckBox7.Visible = False
CheckBox8.Visible = False
(es sind noch viel mehr Checkboxen)
Sheets(Array("Angebotsdeckblatt", "Kontaktdaten", "Keiler I", "Inzahlungnahme")).Select
    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"
End Sub

 

Hier der Code um die CheckBoxen wieder einblenden zu lassen und den Autofilter zu entfernen:

Private Sub CommandButton2_Click()
ActiveSheet.ShowAllData
CheckBox1.Visible = True
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = True
CheckBox7.Visible = True
CheckBox8.Visible = True
(auch hier noch viel mehr)
End Sub

 

Freue mich auf Lösungsvorschläge wie ich die CheckBoxen wieder aktivierbar bekomme.

Viele Grüße

Benedikt
 

 


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 CheckBoxen können nicht mehr angewählt werden
09.05.2023 10:12:01 Benedikt
Solved
09.05.2023 16:22:49 ralf_b
NotSolved