Srollen zur aktiven Zelle
24.05.2004 11:30:56
Gert
ich habe folgendes Problem:
In einer Arbeitsmappe sind Quartalsweise Tabellenblätter angelegt. Hier sind jeweils von B3 (1. Tag des Quartals) bis B n (letzter Tag des Quartals)das Tagesdatum eingetragen.
Das Fenster ist bei Spalte B3 fixiert. Beim öffnen der Arbeitsmappe soll nun die Zelle mit dem aktuellen Datum selektiert werden und an die Position neben der fixierten Spalte gescrollt werden. Mein Ansatz mit der Selektierung funktioniert zwar, nur mit dem scrollen habe ich nicht hinbekommen.
Private Sub Workbook_Open()
Dim dat As Date
Dim S As Integer
Dim iColunm As Integer
Dim sTxt As String
iColunm = 2
S = Columns(Columns.Count).End(xlToLeft).Column
For iColunm = 2 To S
dat = Cells(3, iColunm).Value
If Date = dat Then
Cells(3, iColunm).Select
Exit Sub
End If
iColunm = iColunm + 1
Next
End Sub
Vielen Dank vorab für die Unterstützung
Gert