Ausblenden von Leerspalten in Comboboxen
28.10.2004 14:05:15
Leerspalten
Bin grade dabei ein UserForm zur erstellen, dass 2 Kombinationsfelder enthält.
Die Spalten 8 - 150 enthalten jedoch mehrere Leerspalten, die nicht in der Combobox angezeigt werden sollen. Die Leerspalten sind notwendig, da später weitere Überschriften folgen. Die Leerspalten sollen jedoch in dem Kombinationsfeld nicht erscheinen. Gibt es hierfür eine Möglichkeit?
Vielen Dank Martin
Makro für das Formular
'Aktivierung des Formulars und der Auswahlfelder
Private Sub UserForm_Activate()
'Definiton Auswahlfeld Tätigkeiten Spalten
Dim reihe As Integer, spalte As Integer
For spalte = 8 To 150
reihe = 1
UserForm1.ComboBox1.AddItem Cells(reihe, spalte)
Next
UserForm1.ComboBox1.ListIndex = 0
UserForm1.ComboBox1.ControlTipText = "Bitte wählen Sie die Tätigkeit aus"
'Definition Auswahlfeld Datum Zeilen
Dim reihe1 As Integer, spalte1 As Integer
spalte1 = 4
For reihe1 = 3 To 368
UserForm1.ComboBox2.AddItem Cells(reihe1, spalte1)
Next
UserForm1.ComboBox2.ListIndex = 0
UserForm1.ComboBox2.ControlTipText = "Bitte geben Sie das Datum ein!"
End Sub
