Selsamer Fehler
14.12.2007 22:42:20
MasterSam
Private Sub ProduktFuellen()
Dim lgx As Long
Me.cboProdukt.Clear
For lgx = 1 To Range("B65563").End(xlUp).Row
If WorksheetFunction.CountIf(Range("B1:B" & lgx), Cells(lgx, 2)) = 1 Then
Me.cboProdukt.AddItem Cells(lgx, 2)
End If
Next
End Sub
ich hab eben fast genau die selbe Funktion geschrieben, und und diese läuft super. Aber bei der hier sagt der mir immer wieder "Die methode "Range" für das Objekt "_Global ist fehlgeschlagen"
warum?
ps: das ist die Lösung aus nem Tutorial