Suchen
01.12.2004 14:31:10
Gregor
Was muss ich bei folgendem Code ergänzen/ändern, damit er mir die Curserposition im Bildschirmfenster anzeigt. Hier springt nur der Cursor auf die Position und zeigt diese im Namensfeld an.
Sub Suchen()
Dim n
n = InputBox(Prompt:="Geben Sie den gewünschten Ort ein", _
Title:="Ort", _
Default:="Hamburg")
Worksheets("Master Datei").Activate
If n = "" Then Exit Sub
Set SuBe = Range("B:B").Find(n, lookat:=xlWhole)
If Not SuBe Is Nothing Then
SuBe.Select
Worksheets("Master Datei").Select
End Sub
Danke und Gruss Gregor