Textanzeige und doppelte Ziffern in Combobox, unte
01.03.2004 17:27:42
reiner
Option Explicit
Private Sub cmdDatum_Click()
Dim lngx As Long, lngz As Long
'1. Schleife - "Doppelte Einträge unterdrücken"
For lngx = 1 To Range("A5536").End(xlUp).Row
If WorksheetFunction.CountIf(Range("A1:B" & lngx), Cells(lngx, 1)) = 1 Then
Me.combobox1.AddItem Cells(lngx, 1)
Me.combobox1.ListIndex = 0 'Leeranzeige unterdrücken
End If
Next
'2.Schleife - "Textanzeige unterdrücken"
For lngz = 1 To Range("A5536").End(xlUp).Row
If WorksheetFunction.IsNumber(Cells(lngz, 1)) Then
Me.combobox1.AddItem (Cells(lngz, 1))
Me.combobox1.ListIndex = 0 'Leeranzeige unterdrücken
End If
Next
End Sub