Value-Eigenschaft bei ComboBox
28.11.2003 10:30:21
MikeS
ich möchte bei zwei ComboBoxen zur Laufzeit die Listwerte löschen,
was ich mit .cboTyp.Clear erledige.
Nun möchte ich mit .cboTyp.Value = "bitte auswählen" der
Value-Eigenschaft der ComboBox einen Wert zuweisen und erhalte
die Fehlermeldung, daß der Value-Wert nicht zugewiesen werden kann.
Was mache ich bloß falsch???
Sub cboTyp_einlesen()
Dim BlattNr%, Line$, BlattName$
Application.ScreenUpdating = False
'Alle Label und Comboboxen zurücksetzen
With frmHaupt
.cboTyp.Clear
.cboTyp.Value = "bitte auswählen"
.fraBezeichnung.Enabled = False
.cboBezeichnung.Enabled = False
.cboBezeichnung.Clear
.cboBezeichnung.Value = "bitte auswählen"
.fraMeldung.Enabled = False
.lblMöbelstring.Caption = "Keine Auswahl aktiv!"
.lblMöbelstring.Enabled = False
.cmdZwischenablage.Enabled = False
.lblMeldung1.Caption = "Die Zwischenablage ist leer!!!"
.lblMeldung2.Visible = False
.lblMeldung1.Enabled = False
End With
'Feststellen, welche Line gewählt wurde
If frmHaupt.optModularLine = True Then
Line = "ML"
ElseIf frmHaupt.optCompactLine = True Then
Line = "CL"
End If
'Typen in cboTyp neu einlesen
With frmHaupt.cboTyp
.Clear
For BlattNr = 1 To Worksheets.Count
BlattName = Worksheets(BlattNr).Name
If Left(BlattName, 2) = Line Then
.AddItem (Mid(BlattName, 4, Len(BlattName) - 3))
End If
Next BlattNr
End With
Application.ScreenUpdating = True
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Vielen Dank
MikeS