Anzeige
Archiv - Navigation
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

letzter Wert in InputBox

letzter Wert in InputBox
13.06.2002 11:46:19
WolfgangM
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: letzter Wert in InputBox
13.06.2002 12:19:38
Andreas
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

Re: letzter Wert in InputBox
13.06.2002 13:21:22
WolfgangM
Hallo Andreas,
klappt prima, danke nochmals
Gruß WolfgangM
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige