ich möchte gerne eine Funktion schreiben,
die folgendes tun soll!
Ich übergebe an die Funktion eine Zeile und
und den die Spalten nummer bei der die Funktion starten
soll und eine Spalte wo sie aufhören soll.
Nun soll er in diesem Bereich die Zellen inhalte in eine
ComboBox übergeben!
Wenn eine Zelle frei ist soll er sie übergehen und diesen
Wert nicht an die ComboBox weitergeben.
So sieht meine idee aus, ich weis leider nur nicht wie ich
das UF deklarieren muß!
***************************************************************************
Function spalten_durchsuchen_ComboBox_füllen(intVonSplate As Integer, inBisSpalte As Integer, intZeile As Integer _
, strWRSName As String, UF As test) '**** Was kommt hier statt test rein ?
Dim intZaehler1 As Integer
For intZaehler = IntVonSpalte To IntBisSpalte
If Worksheets(strWRSName).Cells(intZeile, intZaehler).Value <> "" Then
UF.AddItem Worksheets(strWRSName).Cells(intZeile, intZaehler).Value
End If
Next
End Function
****************************************************************
Kann mir da jemand helfen?
Gruß
Swen