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
Jetzt habe ich Office2010 (worüber ich mich wahnsinnig freue ;-))). Dort wird aber die Zelle nicht mehr aktiviert; die ganze Spalte ist markiert. (den gesuchten Namen gibt's wirklich in der Liste)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