Wenn Comboboxen nicht leer dann, sonst
07.03.2014 15:07:38
Andreas
Bei drücken von Commandbutton (Userform) soll, nachdem über Comboboxenauswahl verschiedene Zeilen und Spalten ausgeblendet werden, der Druck ausgeführt werden. Bedingung ist aber, dass in den Comboboxen 3 und 4 ein Wert stehen muss. Nach dem Druck oder nach der MsgBox werden alle Spalten und Zeilen wieder eingeblendet.
Leider funktioniert mein Code nicht.
Option Private Module
Public Sub Druck()
If ComboBox3.Text "" And ComboBox4.Text "" Then ' Laufzeitfehler: 424 objekt erforderlich
With Sheets("Urlaubsliste")
.PrintOut
End With
Else
MsgBox "Bitte zuerst Abteilung und Monat wählen!"
End If
Call SpaltenEinblendenAlle ' alle Spalten wieder einblenden
Call ZeilenEinblendAlle ' alle Zeilen wieder einblenden
End Sub
mfg, Andreas
Anzeige