Suchfunktion Auswahlliste
04.03.2015 10:05:54
Stefan Resch
Guten Morgen!
Bin ein Grünschnabel was die Arbeit mit VBA betrifft und bin leider im Forum nicht fündig _
geworden, deshalb hier mein Problem: Bin am Erstellen einer Kundendatenbank, bei der für jeden _
Kunden, der über Userform angelegt wird, ein eigenes Tabellenblatt erstellt wird. Ich habe danach eine Suchfunktion angelegt, welche die einzelnen Tabellenblätter durchsucht und des gesuchte Blatt aktiviert. Ich möchte diese Funktion aber noch verbessern. Falls zwei Kunden z.B den gleichen Nachnamen haben wird meine Suche nicht mehr exakt funktionieren. Zur Anschung mein Code für die Suche:
Private Sub CommandButton1_Click()
Dim wks As Excel.Worksheet
Dim strSuch As String
strSuch = tsuche.Value
For Each wks In ThisWorkbook.Worksheets
If InStr(1, wks.Name, strSuch, vbTextCompare) > 0 Then
Exit For
End If
Next
If Not wks Is Nothing Then
Call wks.Activate
End If
Unload Me
End Sub
Ist es möglich diese Funktion so zu modifizieren, dass, falls der gesuchte Kunde (z.B: Mayer) auf zwei oder mehrere Tabellenblätter zutrifft, ein Auswahlfenster oder ähnliches aufscheint, in welchen man aus allen möglichen Tabellenblättern den Kunden auswählen kann?
Ich hoffe ich habe mich verständlich ausgedrückt.
MfG