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
MfG aus Luxemburg
Ant