Thema Datum  Von Nutzer Rating
Antwort
18.10.2016 17:15:25 Mirjam
NotSolved
18.10.2016 19:03:31 BigBen
*****
Solved
18.10.2016 19:36:14 Gast70117
NotSolved
18.10.2016 20:09:44 BigBen
NotSolved
18.10.2016 21:12:20 Gast70117
NotSolved
Blau Liste suchen und in Kombifeld anzeigen
 19.10.2016 14:00:20 BigBen
NotSolved
23.10.2016 19:35:13 Mirjam
Solved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
19.10.2016 14:00:20		 Views:
710		 Rating:
     
Antwort:
  Ja
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

 

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
18.10.2016 19:03:31 BigBen
*****
Solved
18.10.2016 19:36:14 Gast70117
NotSolved
18.10.2016 20:09:44 BigBen
NotSolved
18.10.2016 21:12:20 Gast70117
NotSolved
Blau Liste suchen und in Kombifeld anzeigen
 19.10.2016 14:00:20 BigBen
NotSolved
23.10.2016 19:35:13 Mirjam
Solved