Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.07.2014 13:57:59 |
Felix |
|
|
|
17.07.2014 21:38:21 |
Gast20677 |
|
|
|
17.07.2014 21:46:51 |
Gast70586 |
|
|
kleine Korrektur noch |
18.07.2014 09:08:17 |
Felix S. |
|
|
|
18.07.2014 10:53:30 |
Gast38510 |
|
|
|
18.07.2014 11:17:48 |
Felix |
|
|
Von:
Felix S. |
Datum:
18.07.2014 09:08:17 |
Views:
753 |
Rating:
|
Antwort:
|
Thema:
kleine Korrektur noch |
Habe den Code nun so umgestellt.
Bekomme aber einen Laufzeitfehler 91 bei mir :/
Private Sub CommandButton2_Click() 'Produktsuche - CommandButton in Userform2
Dim wksDB As Excel.Worksheet
Dim rngFilterResult As Excel.Range
Dim TrL As Long
Dim GBv As Long
Dim GBb As Long
With Me 'Beispielwerte (die kommen final aus den Textfeldern der UserForm)
TrL = CLng(.TextBox1)
GBv = CLng(.TextBox2)
GBb = CLng(.TextBox3)
End With
Set wksDB = ThisWorkbook.Worksheets("Datenbank")
'Filter zurücksetzen
Call wksDB.AutoFilter.ShowAllData
With wksDB.AutoFilter.Range
'nach Traglast filtern
Call .AutoFilter(2, ">=" & TrL - 5, xlAnd, "<=" & TrL + 5)
'nach Greifbereich-von filtern
Call .AutoFilter(3, ">=" & GBv - 25, xlAnd, "<=" & GBv + 25)
'nach Greifbereich-bis filtern
Call .AutoFilter(4, ">=" & GBb - 25, xlAnd, "<=" & GBb + 25)
'das Ergebnis referenzieren
Set rngFilterResult = .SpecialCells(xlCellTypeVisible)
If rngFilterResult.Rows.Count = 1 Then Set rngFilterResult = Nothing
End With
If rngFilterResult.Areas.Count = 1 And rngFilterResult.Rows.Count = 1 _
Then Set rngFilterResult = Nothing
'Ergebnis(se) kopieren
'...
Sheets("Suchergebnisse").Select
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
|
|
17.07.2014 13:57:59 |
Felix |
|
|
|
17.07.2014 21:38:21 |
Gast20677 |
|
|
|
17.07.2014 21:46:51 |
Gast70586 |
|
|
kleine Korrektur noch |
18.07.2014 09:08:17 |
Felix S. |
|
|
|
18.07.2014 10:53:30 |
Gast38510 |
|
|
|
18.07.2014 11:17:48 |
Felix |
|
|