Beim Öffnen bestimmte Zelle "anspringen"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Martin,
die Tabellen mit den Monatsabkürzungen stehen zwar nebeneinander, aber nicht am Anfang und auch nicht am Ende in der Arbeitsmappe. Die Reihenfolge ist Sept bis Aug.
In diesen Tabellen sind jeweils ab Zeile 3 die einzelnen Tage (Datum) des betreffenden Monats aufgeführt. Also z.B. in Tabelle "Sept" in A3: 01.09.2003, in A4 dann 02.09.2003 usw. (das Jahr kann sich aber ändern und ist ab Jan das folgende Jahr, deshalb auch diese Anordnung in der Mappe!!). In der Tabelle "Okt" steht dann in A3: 01.10.2003 in A4 02.04.2003 usw.,
Von VBA versteh kaum was, ich weiß zwar dass es Ereignis-Makros gibt und was das bedeutet, aber programmieren geht ohne ausführliche Hilfe bei mir nicht. Versuche natürlich, einzelne Codes "zu lesen" um auf diese Weise zu lernen, aber ich bin noch im Anfangsstadium.
Wäre nett, wenn mir jetzt jemand weiterhelfen kann.
Danke bereits an dieser Stelle für euer Verständnis und die Mühe.
Mfg
Fritz

Sub Tabelle_ansteuern() For i = 3 To 14 'Index der 12 Tabellen, bitte anpassen If Application.WorksheetFunction.CountIf(Worksheets(i).Range("A2:A32"), Date) Then Worksheets(i).Activate For j = 2 To 32 If Cells(j, 1) = Date Then Cells(j, 8).Select Exit Sub End If Next j End If Next i Worksheets("Daten").Activate Range("A1").Select End Sub

Hallo Fritz,
mit der Annahme, dass die Tage immer fortlaufend von 1 bis Monatsende ab Zeile 3 beginnen:


Private Sub Workbook_Open()
Dim ws As Worksheet, t As Date
t = Now
On Error GoTo ErrorHandler
'Bestimmen des Tabellenblattnamen je nach aktuellem Monat
Select Case Month(t)
Case 3: Set ws = Worksheets("März"):    Case 2: Set ws = Worksheets("Febr")
Case 6: Set ws = Worksheets("Juni"):    Case 7: Set ws = Worksheets("Juli")
Case 9: Set ws = Worksheets("Sept")
Case Else: Set ws = Worksheets(Format(t, "MMM"))
End Select
'Stimmt der heutige Tag mit dem in Spalte A überein?
With ws
If CInt(Left(.Cells(2 + Day(t), 1).Text, 2)) = Day(t) Then
.Activate
Cells(2 + Day(t), 8).Select
Else
Worksheets("Daten").Activate
Range("A1").Select
End If
End With
Exit Sub
ErrorHandler:
Worksheets("Daten").Activate
Range("A1").Select
End Sub

Das Makro in "DieseArbeitsmappe" im VBA-Explorerfenster einfügen.
Hoffe das hilft weiter,
Andreas

Beliebteste Forumthreads (12 Monate)

Beim Öffnen bestimmte Zelle "anspringen"

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beim Öffnen bestimmte Zelle "anspringen"

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread