Thema Datum  Von Nutzer Rating
Antwort
Rot Filterung in Suchmaske in VBA
 20.09.2016 08:53:56 Nico Kr.
NotSolved

Ansicht des Beitrags:
Von:
Nico Kr.		 Datum:
20.09.2016 08:53:56		 Views:
1190		 Rating:
     
Antwort:
  Ja
Thema:
Filterung in Suchmaske in VBA

Hallo Zusammen,

ich bin noch VBA-Neuling und bin gerade am Üben. Derzeit möchte ich eine Filterung erstellen über eine Bundesliga-Datenbank, die über 1800 Zeilen geht. Hierzu soll nach einem Klick auf einen Button in Excel eine Suchmaske erscheinen, in der verschiedene Filteroptionen ausgewählt werden können. Dabei soll die Liga, das Land, der Verein, die Trikotnummer, Tore, Vorlagen und der Name gefiltert werden können. Beim Namen sollen die Buchstaben einzeln abgeprüft werden und in einer beliebigen Reihenfolge um Rechtschreibfehlern vorzubeugen oder als Spielerei (z.B. in welchen Spielernamen steckt in einer Reihenfolge das Wort "Baum"). Die Ausgabe der Spielername soll in einer Box unten erfolgen (Name: "lbergebnis"), nachdem der User auf den "Suchen"-Button geklickt hat (cmdmsuchen).

Das mit dem Namen allein hat bisher gut funktioniert. Sobald ich aber die weiteren Bedingungen daran binde kommt gar kein Ergebnis mehr, bzw. seltsamerweise ein einziger Spieler, der keine besonderen Eigenschaften besitzt.

Die Länder, Vereine und Liga soll als Auswahlbox erscheinen. Das funktioniert auch. Ich habe es auch geschafft, dass nach Auswahl der Liga nur noch die jeweiligen Vereine angezeigt werden. Aber irgendwo ist hier der Wurm drin. Hat jemand eine Idee?

Vielen Dan und viele Grüße

Nico

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
Option Explicit
 
Private Sub cmbLiga_AfterUpdate()
With ThisWorkbook.Sheets("bundesliga_Spieler")
    Dim lngRow As Long
     
    lngRow = 2
    cmbVerein.Clear
    Do While .Cells(lngRow, 13) <> ""
       If .Cells(lngRow, 14) = CLng(cmbLiga) Then Call AddSortedToBox(cmbVerein, .Cells(lngRow, 13))
       lngRow = lngRow + 1
    Loop
End With
End Sub
 
Private Sub cmdsuchen_Click()
 
With ThisWorkbook.Sheets("bundesliga_Spieler")
 
Dim strSpielername As String
Dim lngSpielerBuchstabe As Long
Dim booTreffer As Boolean
Dim lngSuchBuchstabe As Long
Dim lngRow As Long
 
lngRow = 2
 
Do While .Cells(lngRow, 4) <> ""
    strSpielername = .Cells(lngRow, 4)
     
    For lngSuchBuchstabe = 1 To Len(txtsuche)
        booTreffer = False
         
            For lngSpielerBuchstabe = 1 To Len(strSpielername)
                If Mid(strSpielername, lngSpielerBuchstabe, 1) = Mid(txtsuche, lngSuchBuchstabe, 1) Then booTreffer = True
            Next lngSpielerBuchstabe
             
        If booTreffer = False Then Exit For
    Next lngSuchBuchstabe
     
    If booTreffer = True Then
         If .Cells(lngRow, 5) = cmbLand And _
         .Cells(lngRow, 14) = cmbLiga And _
         .Cells(lngRow, 13) = cmbVerein Then
         Call AddSortedToBox(lbergebnis, strSpielername)
         End If
    End If
     
    lngRow = lngRow + 1
 
Loop
End With
End Sub
 
Private Sub UserForm_Activate()
Dim lngRow As Long
Dim strSpielername As String
 
cmbLand.Clear
 
With ThisWorkbook.Sheets("Bundesliga_Spieler")
     
    lngRow = 2
     
    Do While .Cells(lngRow, 5) <> ""
    Call AddSortedToBox(cmbLand, .Cells(lngRow, 5))
    lngRow = lngRow + 1
Loop
End With
 
cmbVerein.Clear
 
With ThisWorkbook.Sheets("bundesliga_Spieler")
     
    lngRow = 2
     
    Do While .Cells(lngRow, 13) <> ""
    Call AddSortedToBox(cmbVerein, .Cells(lngRow, 13))
    lngRow = lngRow + 1
Loop
End With
 
cmbLiga.Clear
 
With ThisWorkbook.Sheets("bundesliga_Spieler")
     
    lngRow = 2
     
    Do While .Cells(lngRow, 14) <> ""
    Call AddSortedToBox(cmbLiga, .Cells(lngRow, 14))
    lngRow = lngRow + 1
Loop
End With
 
With ThisWorkbook.Sheets("bundesliga_Spieler")
     
    lngRow = 2
     
    Do While .Cells(lngRow, 3) <> ""
    If cbt09 = True And _
    .Cells(lngRow, 3) > 0 And _
    .Cells(lngRow, 3) < 10 Or cbt1019 And _
    .Cells(lngRow, 3) > 9 And _
    .Cells(lngRow, 3) < 20 Or cbt2029 And _
    .Cells(lngRow, 3) > 19 And _
    .Cells(lngRow, 3) < 30 Or cbt3039 And _
    .Cells(lngRow, 3) > 29 And _
    .Cells(lngRow, 3) < 40 Or cbt4049 And _
    .Cells(lngRow, 3) > 39 And _
    .Cells(lngRow, 3) < 50 Or cbt49 And _
    .Cells(lngRow, 3) > 49 Then
    Call AddSortedToBox(lbergebnis, strSpielername)
    End If
    lngRow = lngRow + 1
Loop
End With
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Filterung in Suchmaske in VBA
 20.09.2016 08:53:56 Nico Kr.
NotSolved