Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

Abfragefenster verschieben | Herbers Excel-Forum


Betrifft: Abfragefenster verschieben von: Larissa Birsgal
Geschrieben am: 12.11.2009 19:10:45

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

  

Betrifft: AW: Abfragefenster verschieben von: hary
Geschrieben am: 12.11.2009 19:23:52

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


Beiträge aus den Excel-Beispielen zum Thema "Abfragefenster verschieben"