|
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 |
|
|
|
19.10.2016 14:00:20 |
BigBen |
|
|
 Liste suchen und in Kombifeld anzeigen |
23.10.2016 19:35:13 |
Mirjam |
|
|
Von:
Mirjam |
Datum:
23.10.2016 19:35:13 |
Views:
696 |
Rating:
|
Antwort:
|
Thema:
Liste suchen und in Kombifeld anzeigen |
|
Hallo zusammen,
tut mir Leid für die späte Rückmeldung. Erstmal danke für die Hilfe. Ich habe es jetzt wie folgt gelöst:
'Herausfinden, wieviel Einträge mit strGebNam vorhanden sind
intAnzahlZeile = 0
For Each rngZeile In wksDiagnose.Range("A:A")
If rngZeile = strGebNam Then intAnzahlZeile = intAnzahlZeile + 1
Next
'Suche nach Diagnosen und schreiben in Array founds
Set rngDB = wksDiagnose.Range("A:B")
iFound = -1
With rngDB.Columns(1)
Set rngFound = .Find(What:=strGebNam, SearchDirection:=xlNext)
For i = 1 To intAnzahlZeile
iFound = iFound + 1
ReDim Preserve arrDiagnosen(iFound)
arrDiagnosen(iFound) = rngFound.Worksheet.Cells(rngFound.Row, rngFound.Column + 1).Text
Set rngFound = .FindNext(rngFound)
Next
End With
frmAddDiagnose.boxDiagnosen.List = arrDiagnosen
End Sub
|
- 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 |
|
|
|
19.10.2016 14:00:20 |
BigBen |
|
|
Liste suchen und in Kombifeld anzeigen |
23.10.2016 19:35:13 |
Mirjam |
|
|