Ich habe eine Tabelle in Excel, in der ich mittels eines Dialogfensters über eine Nutzer-Eingabe einen Begriff finden möchte. Also im Prinzip eine einfache Suchabfrage nach einem "Namen", die aber per Makro in einer Dialogbox gestartet werde soll. Nur: Ichhabe keine Ahnung, wie ich weder die Suchfunktion noch eine Dialogbox erstellen kann, die sich per "klick" öffnet! Kann mir da jemand so ne "Step by Step" Anweisung geben? Ich würde mich riesig freuen......
Gruß und Dank,
Ittie
(die die Suchfunktion schon betätigt hat, auch folgendes:
Private Sub Suchen_Click()
Unload Me
Dim strSuche As String
Dim erg As Range
strSuche = InputBox("Mindenstens die 2 ersten Buchstaben des Suchbegriffes oder kompletten Suchbegriff eingeben. Groß-/Kleinschreibung ist egal.", "Suchen")
Do While Len(strSuche) <
If strSuche = "" Or Len(strSuche) = 0 Then Exit Sub
strSuche = InputBox("Mindestens die 2 ersten Buchstaben des Suchbegriffes oder kompletten Suchbegriff eingeben. Groß-/Kleinschreibung ist egal.", "Suchen")
Loop
Set erg = Range("A4:R500").Find(what:=strSuche, lookat:=xlPart, LookIn:=xlValues, MatchCase:=False) If erg Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden! Es ist aber nicht 100% sicher, dass der gesuchte Begriff sich nicht in der Tabelle befindet. Überprüfen Sie daher bitte nochmal die Schreibweise und geben den Suchbegriff erneut ein, oder suchen Sie den Begriff manuell in der Tabelle."
Exit Sub
Else
Range(erg.AddressLocal).Activate
Exit Sub
End If
End Sub
gefunden hat, abermit dem Code nix anzufangen weiß...)