Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
16.06.2013 21:07:34 |
Dania_Hut |
|
|
|
17.06.2013 13:09:37 |
Dania_Hut |
|
|
|
17.06.2013 22:00:23 |
Gast11108 |
|
|
|
17.06.2013 22:57:05 |
Gast10170 |
|
|
|
18.06.2013 09:11:48 |
Dania_Hut |
|
|
|
19.06.2013 20:00:11 |
Dania_Hut |
|
|
|
19.06.2013 21:26:30 |
Gast53858 |
|
|
|
19.06.2013 22:26:47 |
Gast20872 |
|
|
ausgewählter Wert in Combobox soll gefiltert dargestellt werden |
19.06.2013 23:09:05 |
Gast10264 |
|
|
|
20.06.2013 00:11:38 |
Dania_Hut |
|
|
|
20.06.2013 00:44:03 |
Gast41487 |
|
|
|
20.06.2013 01:12:31 |
Gast3388 |
|
|
|
20.06.2013 09:30:04 |
Dania_Hut |
|
|
Von:
Gast10264 |
Datum:
19.06.2013 23:09:05 |
Views:
1953 |
Rating:
|
Antwort:
|
Thema:
ausgewählter Wert in Combobox soll gefiltert dargestellt werden |
Ok, woher der Wert kommt ist letztendlich egal.
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Dim rngDaten As Excel.Range
Dim rngResults As Excel.Range
Dim strNr As String
Dim strFA As String
Set wks = Worksheets("Stücklisten")
Set rngDaten = wks.Columns("C") 'bzw. Spalte 3
strNr = ComboBox1.Text
Set rng = rngDaten.Find(strNr, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
strFA = rng.Address
Do
If Not rngResults Is Nothing Then
Set rngResults = Union(rng, rngResults)
Else
Set rngResults = rng
End If
Set rng = rngDaten.FindNext(After:=rng)
Loop Until rng.Address = strFA
Call rngResults.Select
End If
|
- 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
|
|
16.06.2013 21:07:34 |
Dania_Hut |
|
|
|
17.06.2013 13:09:37 |
Dania_Hut |
|
|
|
17.06.2013 22:00:23 |
Gast11108 |
|
|
|
17.06.2013 22:57:05 |
Gast10170 |
|
|
|
18.06.2013 09:11:48 |
Dania_Hut |
|
|
|
19.06.2013 20:00:11 |
Dania_Hut |
|
|
|
19.06.2013 21:26:30 |
Gast53858 |
|
|
|
19.06.2013 22:26:47 |
Gast20872 |
|
|
ausgewählter Wert in Combobox soll gefiltert dargestellt werden |
19.06.2013 23:09:05 |
Gast10264 |
|
|
|
20.06.2013 00:11:38 |
Dania_Hut |
|
|
|
20.06.2013 00:44:03 |
Gast41487 |
|
|
|
20.06.2013 01:12:31 |
Gast3388 |
|
|
|
20.06.2013 09:30:04 |
Dania_Hut |
|
|