Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2016 17:15:25 |
Mirjam |
|
|
|
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 |
|
|
Liste suchen und in Kombifeld anzeigen |
19.10.2016 14:00:20 |
BigBen |
|
|
|
23.10.2016 19:35:13 |
Mirjam |
|
|
Von:
BigBen |
Datum:
19.10.2016 14:00:20 |
Views:
715 |
Rating:
|
Antwort:
|
Thema:
Liste suchen und in Kombifeld anzeigen |
Hallo,
bei dieser Lösung muss lediglich die Kopfzeile mit den Feldern benannt werden. Der DAtenumfang wird im VBA-Code ermittelt:
Sub Filter()
Dim lst As Variant
lst = FindProducts(1)
End Sub
Function SearchEndOfDatabase(rngDatabase As Range) As Range
Dim rngLastRow As Range
Set rngLastRow = rngDatabase.End(xlDown).Offset(ColumnOffset:=rngDatabase.Columns.Count - 1)
Set SearchEndOfDatabase = rngDatabase.Worksheet.Range(Cells(rngDatabase.Row, rngDatabase.Column), rngLastRow)
End Function
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 = SearchEndOfDatabase(ActiveWorkbook.Names("VerkaufteProdukte").RefersToRange)
With rngDB.Columns(1)
Set rngFound = .Find(What:=KdNr, SearchDirection:=xlNext)
'Set rngFound = 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
|
- 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 |
|
|
|
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 |
|
|
Liste suchen und in Kombifeld anzeigen |
19.10.2016 14:00:20 |
BigBen |
|
|
|
23.10.2016 19:35:13 |
Mirjam |
|
|