Combobox (Auf Tabellenblatt)MatchRequired
11.03.2006 02:21:21
Louis
vielleicht ist es auch einfach zu Spät.
Ich versuche verzweifelt eine Combobox die auf einem Tabellenblatt liegt so ein zu stellen das ich sie nur verlassen kann wenn der eingegebene Wert mit der Liste übereinstimmt.
Die Box fülle ich mit folgendem Makro
Private Sub CBFirmaSheet_DropButtonClick()
'#### Firma Combobox im Sheet füllen
Dim Anzahl As Integer
Anzahl = CBFirmaSheet.ListCount
If Anzahl <> WorksheetFunction.CountA(Sheets("Vorlage").Range("A2:A250")) Then
Dim i As Integer
CBFirmaSheet.Clear
For i = 2 To 250
If Sheets("Vorlage").Cells(i, 1) <> "" Then
CBFirmaSheet.AddItem Sheets("Vorlage").Cells(i, 1).Value
End If
Next i
End If
End Sub
Es muss doch möglich sein nur Werte aus der Auswahlliste der Box zuzulassen.
Ich bitte um Hilfe
mfg
Louis
Anzeige