letzter Wert in InputBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: letzter Wert in InputBox
von: WolfgangM
Geschrieben am: 13.06.2002 - 11:46:19

Hallo Leute,
kann man in einer InputBox den lezten eingegebenen Suchbegriff, wie beim Excelsuchfenster Strg+f anzeigen lassen?
Makro:
Sub Suchen()
Dim rngFind As Range
Dim strFind As String
strFind = InputBox("Daten eingeben:")
If strFind = "" Then Exit Sub
Set rngFind = Cells.Find(strFind, LookAt:=xlPart, LookIn:=xlFormulas)
If rngFind Is Nothing Then
Beep
MsgBox "Daten wurden nicht gefunden!"
Exit Sub
End If
rngFind.Select
End Sub

Dankeim voraus für eure Mühe
Gruß WolfgangM

nach oben   nach unten

Re: letzter Wert in InputBox
von: Andreas
Geschrieben am: 13.06.2002 - 12:19:38

Hallo Wolfgang,

entweder Du schreibst den Wert von strFind in eine Zelle zur Zwischenspeicherung und liest ihn dann wieder ein oder Du kannst strFile als static definieren:
Static strFind As String

und den Aufruf der Inputbox dann so ändern:
strFind = InputBox("Daten eingeben:", , strFind)

Viel Spaß,
Andreas

nach oben   nach unten

Re: letzter Wert in InputBox
von: WolfgangM
Geschrieben am: 13.06.2002 - 13:21:22

Hallo Andreas,
klappt prima, danke nochmals
Gruß WolfgangM

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "letzter Wert in InputBox"