Hallo AndreasEin bischen blöd ist es ja ehrlich gesagt schon, dass du deine Mail Adresse nicht angegeben hast, dafür darfst du dich jetzt ein bischen mit Userforms auseinander setzten... FAQ ist hierzu recht hilfreich.
Hab mir als Nicht-Profi viel Mühe gegeben...
'CommandButton zum Oeffnen des Userforms
Option Explicit
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
'-------------------------
'Userform enthält 2 TextBox für Vor- und Nachname, 1 ListBox und einen CommandButton. CommandButton mit folgendem Code verbinden:
Option Explicit
Private Sub CommandButton1_Click()
Dim ZeilenNummer As Long
Dim BlattNummer As Byte, SpalteVorname As Byte, SpalteNachname As Byte
SpalteVorname = 1
SpalteNachname = 2
ListBox1.Clear
For BlattNummer = 1 To Sheets.Count
For ZeilenNummer = 1 To Sheets(BlattNummer).Range("A65536").End(xlUp).Row
If Sheets(BlattNummer).Cells(ZeilenNummer, SpalteVorname) Like TextBox1 And Sheets(BlattNummer).Cells(ZeilenNummer, SpalteNachname) Like TextBox2 Then
ListBox1.AddItem Sheets(BlattNummer).Name
End If
Next ZeilenNummer
Next BlattNummer
End Sub
'------------------------------------
'Und wenn du noch einen "Abbrechen" Button haben möchtest, füge ein weiterer CommandButton ein. (Eigenschaften Cancel = True macht sich immer gut)
Private Sub CommandButton2_Click()
End
End Sub
'------------------------------------
'Und wenn du den Code ebenfalls einfügst, dann erscheint bei Doppelklick auf den entsprechenden ListBox Eintrag gleich das dazugehörige Blatt und das Userform schliesst sich.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets(ListBox1.ListIndex + 1).Select
End
End Sub
Die Suche kannst du erweitern, indem du ein Stern * vor oder nach dem Eintrag machst (Platzhalter). Du kannst auch ein Feld frei lassen indem du nur ein * einträgst.
Bin vermutlich erst wieder am Wochenende online.
Viel Spass.
Chris