Thema: Abfragefenster verschieben | Herbers Excel-Forum

Hallo,
ich nutze ein tolles Suchmakro von ransi und hätte es gerne so, dass sich das Suchfenster an eine gewünschte Stelle positionieren lässt und auch dort bleibt, damit es nicht die Spalte verdeckt, in der gesucht wird.
Wäre toll, wenn das eingestellt werden könnte.
Gruß,
Larissa

Public Sub test()
Dim c As Range
Dim firstAddress
Dim strText
strText = InputBox("Bitte geben Sie den Suchbegriff ein", "Suche")
If strText = "" Then Exit Sub
With Worksheets("Tabelle1").Range("E:E")
Set c = .Find(strText, LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If MsgBox(c.Value & vbCrLf & "Gefunden in " & c.Address & vbCrLf & "Weitersuchen ? _
?", vbYesNo) = vbNo Then
c.Offset(0, -2).Select
Exit Sub
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
Else:
MsgBox "Nix gefunden...."
End If
End With
End Sub

hi Larissa
meinst Du die Inputbox? dann lies mal hier.
https://www.herber.de/forum/archiv/732to736/t735151.htm#735183
gruss hary