Thema Datum  Von Nutzer Rating
Antwort
Rot Doppelte Suchfunktion
27.04.2021 14:53:07 Düzi
NotSolved
27.04.2021 18:52:06 Gast12265
NotSolved
27.04.2021 20:26:00 Gast17917
NotSolved

Ansicht des Beitrags:
Von:
Düzi
Datum:
27.04.2021 14:53:07
Views:
60
Rating: Antwort:
  Ja
Thema:
Doppelte Suchfunktion

Hallo, ich habe mir mit VBA und der Hilfe aus dem Internet eine Datenbank in Excel zusammengebaut. Nichts großes, aber erfüllt ihren zweck. In meiner Userform habe ich 5 Eingabefelder, die der Nutzer ausfüllen soll. Dabei gibt der Nutzer ganze Sätze oder nur einen einzelnen Begriff ein, je nach dem welches Feld was erfordert ist.

Nun hab ich eine Suchfunktion in meiner userform, in der nach dem Suchbegriff gesucht wird. Wenn ich einen Begriff suche, findet er das nur, wenn dieser Begriff alleine so steht. Also wenn ich bspw in meiner Datenbank den Satz stehen habe "Mamas und Papas sind die besten" und ich nur "Mamas und Papas" eingebe, findet er das nicht. Besteht die Möglichkeit quasi mit einem Sternchen zu arbeiten, wie zb. suche "Mamas*" und dann zeigt er mir alles was mit "Mamas" beginnt?

Dann hätte ich noch eine zweite Frage. Aktuell sucht er bei der Suchfunktion nach dem Suchbegriff und gibt mir in einer ListBox die Zeilen aus, in der der Suchbegriff vorkommt. Zb wird in meiner Userform eine Maschinennummer eingebeben, die auch mehrfach vorkommen kann und dann wird ebenfalls eine Fehlerart ausgewählt. Es gibt insgesamt 10 Fehlerarten. Wäre es möglich, dass man zuerst nach der Maschinennummer sucht und dann in einer Drop&Down Liste eine Fehlerart auswählt und dann in einer Combobox alle Zeilen erhält, in der die Maschinennummer und die entsprechende Fehlerart vorkommen?

Würde mich sehr über Hilfe freuen.

Anbei "mein" Code

Private Sub CommandButton2_Click()

'''14_1_##########
On Error Resume Next
Dim ZEIL As Long
Dim MMMM As Long
Dim AAAZ As Long
Dim SCHOT As Long
 
 '''15_1_##########
ComboBox3.Clear
'LaGeF.Visible = True
ComboBox3.Visible = True
Label8.Visible = True
AAAZ = CDbl(ZZFFF2.Cells(Rows.Count, 1).End(xlUp).Row)
SCHOT = 0
'''15_1_##########

'''16_1_##########
For ZEIL = 2 To AAAZ
MMMM = 0
If TextBox5.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 2).Find(What:=TextBox5.Value, lookat:=xlWhole).Row)
End If
If TextBox5.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 3).Find(What:=TextBox5.Value, lookat:=xlWhole).Row)
End If
If TextBox5.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 4).Find(What:=TextBox5.Value, lookat:=xlWhole).Row)
End If
If TextBox5.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 5).Find(What:=TextBox5.Value, lookat:=xlWhole).Row)
End If
If TextBox5.Value <> "" Then
MMMM = CDbl(ZZFFF2.Cells(ZEIL, 6).Find(What:=TextBox5.Value, lookat:=xlWhole).Row)
End If

If MMMM > 0 Then
SCHOT = SCHOT + 1
With ComboBox3
.AddItem MMMM - 1
End With
End If
Next ZEIL
'''16_1_##########

'''17_1_##########
If SCHOT = 0 Then
'LaGeF.Visible = False
ComboBox3.Visible = False
Label13.Visible = False
End If
'''17_1_##########

 
Exit Sub
'''14_1_##########
 


End Sub





und hier gibt er mir die Zeile wieder, in der der Suchbegriff gefunden worden ist:


Private Sub ComboBox3_Change()

'''13_1_##########
On Error GoTo EERR
If ComboBox3.Value <> "" Then
ComboBox1.Value = ComboBox3.Value
End If
Exit Sub
EERR:
'13_1_##########


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:

 
 

  • 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 Doppelte Suchfunktion
27.04.2021 14:53:07 Düzi
NotSolved
27.04.2021 18:52:06 Gast12265
NotSolved
27.04.2021 20:26:00 Gast17917
NotSolved