Abfragefenster verschieben
Larissa
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
Anzeige