|
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
|