Such-Makro
24.04.2013 11:31:15
KlausFz
ich habe eine Telefonliste, aus der ich beim Öffnen mittels Inputbox schnell zu einem Namen in der Liste springen kann. Der Code funktionierte mit Office2000 einwandfrei. Der Cursor blieb auf dem gefundenen Namen stehen.
Private Sub Workbook_Open()
N = InputBox("Bitte Namen eingeben")
On Error GoTo ENDE
Columns("A:A").Select
Selection.Find(What:=N, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ENDE:
End Sub
Erneut mit Makrorekorder aufgezeichnet, sieht's nur geringfügig anders aus, aber der Cursor bleibt wieder nicht bei dem gefundenen Namen.
Private Sub Workbook_Open()
N = InputBox("Bitte Namen eingeben")
On Error GoTo ENDE
Columns("A:A").Select
Cells.Find(What:=N, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ENDE:
End Sub
Was muss an dem Code geändert werden?
Ich hoffe, für Euch ist das ein Klacks.
Grüße!
Klaus
Anzeige