Inputbox
16.10.2008 15:23:23
Frank
ich habe diesen Code aus dem Forum und würde Ihn gerne erweitern nur habe ich
leider noch sehr wenig Kenntnisse in VBA wäre Super wenn mir jemand weiterhelfen könnte.
Ich möchte erst über eine Inputbox ein Tabellenblatt auswählen und dann den unten genannten Code in diesem anwenden.
Sub Suchen()
Dim wks As Worksheet
Dim rng As Range
Dim strAddress As String, strFind As String
strFind = InputBox("Bitte Suchbegriff eingeben:")
If strFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find(strFind, after:=ActiveCell, lookat:=xlWhole, LookIn:=xlFormulas)
If Not rng Is Nothing Then
strAddress = rng.Address
Do
Application.Goto rng, True
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set rng = Cells.FindNext(after:=ActiveCell)
Range("A1").Select
If rng.Address = strAddress Then Exit Do
Loop
End If
Next wks
Range("A1").Select
End Sub
Gruss
Frank
Anzeige