ComboBoxen und mehr

Nabend,
ich bin ein totaler VBA Neuling und leider gehöre ich zu den Ungeduldigen
User ;-) Daher Arbeite ich mehr nach "Learning by doing"
In meiner Excel Mappe befinden sich drei Arbeitsblätter (Daten*ausgeblendet*, CMR Frachtbrief, CMR Frachtbrief mit Stempel) Die beiden CMR Arbeitsblätter sind so gut wie Identisch, haben jeweils 3 ActiveX ComboBoxen welche als "Pflichtfeld" Abfrage dienen sollen. Wenn alle 3 ComboBoxen "ausgefüllt" wurden, soll der Druck über einen Button möglich sein, wenn nicht, wird eine Meldung ausgegeben und der Druck verhindert. Vor dem schließen der Datei sollen die ComboBoxen zurück gesetzt werden.
Nach langem Suchen, Testen und einem freundlichen User ist folgender Code zusammen gekommen.

' Event vor dem Drucken

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Überprüfe die Felder und nutze den Rückgabewert der Function als Wert der Cancel- _
Property
Cancel = Not ValidateFormFields
End Sub

'Button-Prozedur für den Druck-Button
Sub btnPrintClick()
Application.Dialogs(xlDialogPrint).Show
End Sub
' Function zum Validieren der Comboboxen
Function ValidateFormFields() As Boolean
Dim arrControls As Variant
' Standard Rückgabewert festlegen
ValidateFormFields = True
' wir arbeiten auf dem ersten Sheet
With Sheets(1)
' Comboboxen die überprüft werden sollen
arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3)
For Each ctrl In arrControls
If ctrl.ListIndex = -1 Then
MsgBox "Mindestens ein Pflichtfeld wurde nicht ausgefült!", vbExclamation
' Ergebnis der Function ist False weil ein Feld nicht die Anforderungen erfüllt
ValidateFormFields = False
Exit Function
End If
Next
End With
End Function

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.EnableEvents = False
resetFormFields
ThisWorkbook.Save
Application.EnableEvents = True
End Sub

' Sub die entsprechend angegebene Comboboxen zurücksetzt
Sub resetFormFields()
Dim arrControls As Variant
' wir arbeiten auf dem ersten Sheet
With Sheets(1)
' Comboboxen die zurückgesetzt werden sollen
arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3)
For Each ctrl In arrControls
' Combobox zurücksetzen
ctrl.ListIndex = -1
Next
End With
End Sub
End Function

Leider bekomme ich beim klicken auf den "Druck Button" einen Laufzeitfehler "438" mit der Meldung: Objekt unterstützt diese Eigenschaft oder Methode nicht. Beim Debuggen wird "arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3)" gelb Markiert.
Kein mir jemand Sagen wieso nicht? Bzw. wo der Fehler liegt und wie ich diesen Korrigieren kann?
Ich denke das es am "With Sheets(1)" liegt und/oder weil die Arbeitsblätter eigene Namen haben, denn die drei ComboBoxen existieren als Activex Kontrollbox und wurden nicht umbenannt.
Spaßeshalber habe ich mal alle "With Sheets(1)" durch "With ActiveSheet" ersetzt. Dann funktioniert der Code zwar nur schmiert Excel dann nach 2 oder 3 mal "schließen/öffnen" der Datei ab.
VG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function ValidateFormFields() As Boolean ValidateFormFields=true With Sheets(1) If .ComboBox1.ListIndex = -1 or .ComboBox2.ListIndex = -1 or .ComboBox2.ListIndex = -1 _ Then MsgBox "Mindestens ein Pflichtfeld wurde nicht ausgefült!", vbExclamation ' Ergebnis der Function ist False weil ein Feld nicht die Anforderungen erfüllt ValidateFormFields = False Exit Function End If End With End Function

' Event vor dem Drucken Private Sub Workbook_BeforePrint(Cancel As Boolean) Überprüfe die Felder und nutze den Rückgabewert der Function als Wert der Cancel- _ Property Cancel = Not ValidateFormFields End Sub 'Button-Prozedur für den Druck-Button Sub btnPrintClick() Application.Dialogs(xlDialogPrint).Show End Sub Function ValidateFormFields() As Boolean ValidateFormFields=true With Sheets(1) If .ComboBox1.ListIndex = -1 or .ComboBox2.ListIndex = -1 or .ComboBox2.ListIndex = -1 _ _ Then MsgBox "Mindestens ein Pflichtfeld wurde nicht ausgefült!", vbExclamation ' Ergebnis der Function ist False weil ein Feld nicht die Anforderungen erfüllt ValidateFormFields = False Exit Function End If End With End Function Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.EnableEvents = False resetFormFields ThisWorkbook.Save Application.EnableEvents = True End Sub ' Sub die entsprechend angegebene Comboboxen zurücksetzt Sub resetFormFields() Dim arrControls As Variant ' wir arbeiten auf dem ersten Sheet With Sheets(1) ' Comboboxen die zurückgesetzt werden sollen arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3) For Each ctrl In arrControls ' Combobox zurücksetzen ctrl.ListIndex = -1 Next End With End Sub End Function

Function ValidateFormFields() As Boolean Dim arrControls As Variant ' Standard Rückgabewert festlegen ValidateFormFields = True ' wir arbeiten auf dem ersten Sheet With Sheets(1) ' Comboboxen die überprüft werden sollen arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3) For Each ctrl In arrControls If ctrl.ListIndex = -1 Then MsgBox "Mindestens ein Pflichtfeld wurde nicht ausgefült!", _ vbExclamation ' Ergebnis der Function ist False weil ein Feld nicht die Anforderungen _ erfüllt ValidateFormFields = False Exit Function End If Next End With End Function

' Function zum Validieren der Comboboxen Function ValidateFormFields() As Boolean Dim arrControls As Variant ' Standard Rückgabewert festlegen ValidateFormFields = True ' wir arbeiten auf dem ersten Sheet If ActiveSheet.Name = "Infoblatt" Or ActiveSheet.Name = "nochwas" Then Exit Function Else With Workbooks(1).Sheets(1) ' Comboboxen die überprüft werden sollen arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3) For Each ctrl In arrControls If ctrl.ListIndex = -1 Then MsgBox "Mindestens ein Pflichtfeld wurde nicht ausgefült!", _ vbExclamation ' Ergebnis der Function ist False weil ein Feld nicht die Anforderungen _ erfüllt ValidateFormFields = False Exit Function End If Next End With End If End Function

If ActiveSheet.Name is = "Name1" Or ActiveSheet.Name is = "Name2" Then (weiter machen mit Prüfung) With ThisWorkbooks.WorkSheets(1) ' Comboboxen die überprüft werden sollen arrControls = Array(.ComboBox1, .ComboBox2, .ComboBox3) (ansonsten abbrechen)

Moin!
Also zum Vorletzten Beitrag.
Du kannst die Schleife natürlich auch umbauen. Setze in den Schleifenkopf die Blätter, in welchen die Prüfung stattfinden soll und lass den else Zweig weg. So wie du es auch schon geschrieben hast.
Zum Aktuellen:
Thisworkbook ist ja nicht schlecht. Kommt immer drauf an, wo man es nutzt. THisworkbook verweist auf das WB in welchem sich der grad ausgeführte Code befindet. Und sheets sind alle Blätter im WB - also auch Grafiken (nicht die im Blatt sonder als eigenes Blatt). Das heißt, das sheets(1) nicht unbedingt worksheets(1) sein muss. Deshalb immer genau bezeichnen und referenzieren. Wenn möglich auch immer den passenden Typ bei der Deklaration nehmen. Da aber dann auf die Typen aufpassen, sonst können Konflikte auftreten. Der Typ steht dann nämlich fest. Wenn du dagegen variant als Typ am Anfang hast, wird die Variable ggf. angepasst. Wenn du aber den Typ schon festlegst, kannst du ggf. besser auf Element davon zugreifen bzw. wird die IntelliSense mit angezeigt. Kommt also immer auch ein bisschen darauf an, was du damit machen willst. Je genauer angegeben ist aber meist besser.
Grafiken im Blatt stören nicht. Die zählen nicht zu den Controls und zudem hast du die ja direkt mit dem Namen angesprochen.
Bzgl.der Beschreibung am Anfang, kann man das machen. Je nach Umfang schadet es m.E. nicht. Bei längerem Code kann es sogar von Vorteil sein. Wenn du bspw. eine Funktion / Prozedur erst in Tabelle1 hast und dich dann entscheidest dies als Funktion oder eigenständige Prozedur in ein Modul auszulagern, brauchst du nur am Anfang die Zuordnung ändern und der Code läuft. Hast du das nicht, musst du jedes Vorkommen im Code suchen und ändern. Hängt halt immer von der Codelänge ab (und ob man Lust dazu hat :-) ).
Hoffe das konnte ein wenig helfen. Bin mir da grad unschlüssig.
VG

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ComboBoxen und mehr

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread