Hallo ihr Lieben,
Bin neu hier, lese oft mit, jedoch finde ich nun keine Lösung zu meinem VBA Problem.
Ich habe eine Art Schadensformular für unsere Spedition, in dem 13 ComboBoxen ( Active X ) enthalten sind. Es holt sich auch Daten aus einer SQL Datenbank, was im folgenden hier aber keine Rolle spielt.
Darunter ein Command Button ( CommandButton2 ) der das Formular auf Seite zwei druckt.
Dieser soll erst gedrückt werden können, bzw am besten eine Meldung ausgeben, wenn nicht alle ComboBoxen gefüllt wurden.
Private Sub Commandbutton2_Click()
If Len(ComboBox1.Text) = 0 Then Exit Sub
If Len(ComboBox2.Text) = 0 Then Exit Sub
If Len(ComboBox3.Text) = 0 Then Exit Sub
If Len(ComboBox4.Text) = 0 Then Exit Sub
If Len(ComboBox5.Text) = 0 Then Exit Sub
If Len(ComboBox6.Text) = 0 Then Exit Sub
If Len(ComboBox7.Text) = 0 Then Exit Sub
If Len(ComboBox8.Text) = 0 Then Exit Sub
If Len(ComboBox9.Text) = 0 Then Exit Sub
If Len(ComboBox10.Text) = 0 Then Exit Sub
If Len(ComboBox11.Text) = 0 Then Exit Sub
If Len(ComboBox12.Text) = 0 Then Exit Sub
If Len(ComboBox13.Text) = 0 Then Exit Sub
Sheets("Formular").Range("A1:H31").PrintOut
So habe ich es momentan, es wird auch nicht gedruckt, aber ich kriege keine vernünftige Verknüpfung mit einer Textmeldung hin...
Hoffe ihr könnt mir da weiterhelfen.
Besten Dank
Liebe Grüße
Jakob