Scollen mit VBA
13.05.2016 11:21:23
Ant
Per VBA möchte ich zu einer Spalte scrollen, welche im Bereich "J1:ASD1" mit der Zahl 1 gekennzeichnet ist. Aus einer früheren Macro habe ich mir dazu folgenden Code zusammen gebastelt:
Sub test()
'Application.ScreenUpdating = False
Dim rSuche As Range, rFinde As Range, lngCol As Long
Set rFinde = ActiveSheet.Range("J1:ASD1")
Set rSuche = rFinde.Find(What:=1, Lookat:=xlWhole, LookIn:=xlValues)
If Not rSuche Is Nothing Then
lngCol = rSuche.Column
Else
Exit Sub
End If
Cells(lngCol).Select
'Application.ScreenUpdating = True
End Sub
Das funktioniert auch einwandfrei, ist jedoch mit dem Schönheitsfehler verbunden dass die gesuchte Spalte dann mittig im Bildschirm ist. Hat jemand eine Lösung dass die gesuchte Spalte direkt hinter den fixierten Spalten A:I erscheint?MfG aus Luxemburg
Ant