Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2016 17:15:25 |
Mirjam |
|
|
Liste suchen und in Kombifeld anzeigen |
18.10.2016 19:03:31 |
BigBen |
|
|
|
18.10.2016 19:36:14 |
Gast70117 |
|
|
|
18.10.2016 20:09:44 |
BigBen |
|
|
|
18.10.2016 21:12:20 |
Gast70117 |
|
|
|
19.10.2016 14:00:20 |
BigBen |
|
|
|
23.10.2016 19:35:13 |
Mirjam |
|
|
Von:
BigBen |
Datum:
18.10.2016 19:03:31 |
Views:
708 |
Rating:
|
Antwort:
|
Thema:
Liste suchen und in Kombifeld anzeigen |
Hallo,
mit diesem Lösungsansatz kann man die Produkte eines Kunden finden:
Sub Filter()
Dim lst As Variant
lst = FindProducts(1)
End Sub
Function FindProducts(KdNr As Integer) As Variant
Dim rngDB As Range
Dim rngFound As Range
Dim founds() As Variant
Dim iFound As Integer
iFound = -1
Set rngDB = ActiveWorkbook.Names("VerkaufteProdukte").RefersToRange
With rngDB.Columns(1)
Set rngFound = .Find(What:=KdNr, SearchDirection:=xlNext)
Set rngFnd = rngFound
Do Until rngFound Is Nothing
iFound = iFound + 1
ReDim Preserve founds(iFound)
founds(iFound) = rngFound.Worksheet.Cells(rngFound.Row, rngFound.Column + 1).Text
Set rngFound = .FindNext(rngFound)
Loop
End With
FindProducts = founds
End Function
Diese Routine hat einen Fehler:
Bereits gefundene Treffer werden immer wieder erneut gefunden. Dadurch kommt es zu einer Endlosschleife.
Vielleicht findet jemand den Fehler?
Als Ergebnis hat man ein Array mit den Produkten eines Kunden.
Die Einträge im Array können anschließend in eine Listenobjekt des UserForms eingetragen werden.
LG, BigBen
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2016 17:15:25 |
Mirjam |
|
|
Liste suchen und in Kombifeld anzeigen |
18.10.2016 19:03:31 |
BigBen |
|
|
|
18.10.2016 19:36:14 |
Gast70117 |
|
|
|
18.10.2016 20:09:44 |
BigBen |
|
|
|
18.10.2016 21:12:20 |
Gast70117 |
|
|
|
19.10.2016 14:00:20 |
BigBen |
|
|
|
23.10.2016 19:35:13 |
Mirjam |
|
|