Blattaufruf
25.07.2003 08:43:15
Peter
ich habe mich beim Blattaufruf vergaloppiert.Irgendwo ist ein
Denkfehler. Wer kann helfen?
Dank im voraus Peter
~begin~
'Aufruf erfolgt unter "DieseArbeitsmappe"
'
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Call aktDatum
'End Sub
Sub aktDatum()
'Zur Spalte mit aktuellem Datum scrollen
Dim iColumn As Integer
Dim Monat As String
Monat = Mid(Date, 4, 2)
With ActiveSheet '---------->>>> z.B. Jul.03
'übersichtlicher wäre: --->>>Format(Monat, "mmm.yy")
If ActiveSheet.Name <> Format(Monat, "mm.yy") Then _
Exit Sub
If ActiveSheet.Name = Format(Monat, "mm.yy") Then _
'## Fenster fixieren ##
Columns(4).Select
ActiveWindow.FreezePanes = True
Range("C1").Select
'## zum aktuellen Datum in Zeile 3 scrollen ##
iColumn = WorksheetFunction.Match(CDbl(Date), .Rows(3), 0)
Application.Goto .Cells(3, iColumn), True
End If
End With
End Sub
~end~