Rücksprung auf ein bestimmtes TB
31.08.2005 17:31:36
Josef
möchte, wenn unten stehendes Makro abgearbeitet ist, dass das TB "EINGABEN"
aktiviert wird. Ich habe es mit "Activate.Sheet ("Eingaben")" versucht, aber es
funktioniert nicht.
Kann mir bitte jemand dabei behilflich sein?
Danke schon mal
Gruss
Josef
Private Sub Workbook_Open()
Dim wks As Worksheet
Dim iRow As Integer
For Each wks In Worksheets
If wks.Name Like "TH#*" Then
iRow = WorksheetFunction.Match(CDbl(Date), wks.Columns(1), 0)
Application.Goto wks.Cells(iRow, 1), True
End If
Next wks
End Sub