Zum aktuellen Monat springen

Hallo zusammen,
ich habe eine Excel-Tabelle (Dienstplan) erstellt, in der beginnend in Zeile 7 und Spalte B das Datum vom 01.01.2021 steht und spaltenweise bis Zeile 7 und Spalte AF 31.01.2021 weitergeführt wird.
Ich möchte nun, dass der Benutzer automatisch mit öffnen der Excel Datei zum aktuellem Monat oder zum aktuellem Datum springt.
Dieses kann ich wahrscheinlich nur über ein Makro lösen, oder? Kann mir jemand helfen? Besten
Dank im Voraus Gruß Ali
B 7 bis AF 7 Jan (01.01.2021 31.01.2021)
B 33 bis AF 33 Feb (01.02.2021 28.02.2021)
B 59 bis AF 59 Mrz (01.03.2021 31.03.2021)
B 85 bis AF 85 Apr (01.04.2021 30.04.2021)
B 111 bis AF 111 Mai (01.05.2021 31.05.2021)
B 137 bis AF 137 Jun (usw. .)
B 163 bis AF 163 Jul
B 189 bis AF 189 Aug
B 215 bis AF 215 Sep
B 241 bis AF 241 Okt
B 267 bis AF 267 Nov
B 293 bis AF 293 Dez

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk, ich benötige in dieser Angelegenheit noch einmal deine Unterstützung. Habe vergessen euch/dir mitzuteilen, das ein VBA-Code oder Makro (wie Ihr es auch immer nennt) bereits für Tabelle 1 vorhanden ist, dass folgende Ereignesprozedur ausführt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 33 Then
Cancel = True
Select Case Target.Row
Case 8
Target = IIf(Target = "", "BDD", "")
Target.Interior.Color = IIf(Target = "BDD", vbRed, xlNone)
Target.Font.Color = IIf(Target = "BDD", vbWhite, vbBlack)
Case 10
Target = IIf(Target = "", "NTB", "")
Target.Interior.Color = IIf(Target = "NTB", vbRed, xlNone)
Target.Font.Color = IIf(Target = "NTB", vbWhite, vbBlack)
Case 11
Target = IIf(Target = "", "HPO", "")
Target.Interior.Color = IIf(Target = "HPO", vbRed, xlNone)
Target.Font.Color = IIf(Target = "HPO", vbWhite, vbBlack)
Case 13
Target = IIf(Target = "", "BLD", "")
Target.Interior.Color = IIf(Target = "BLD", vbRed, xlNone)
Target.Font.Color = IIf(Target = "BLD", vbWhite, vbBlack)
(geht bis Case 334)
Case 334
Target = IIf(Target = "", "NUA", "")
Target.Interior.Color = IIf(Target = "NUA", vbRed, xlNone)
Target.Font.Color = IIf(Target = "NUA", vbWhite, vbBlack)
End Select
End If
End Sub

Das zweite Makro wurde von der geschrieben, dass der Benutzer automatisch mit öffnen der Excel Datei zum aktuellem Monat oder zum aktuellem Datum springt.

Private Sub Workbook_Open()
Call Application.Goto(Worksheets("Tabelle1").Cells(7 + (Month(Date) - 1) * 26, Day(Date) +   _
_
1))
End Sub

Beide sollen für ein- und dieselbe Tabelle 1 gelten. Kannst du mir bitte dabei helfen, sie zu verbinden bzw. zu einem zusammenführen? Oder gibt es vielleicht doch eine andere Lösung oder sind mehrere Makro für eine Tabelle möglich? Bitte denk daran: Wir sind (absolute) Laien!!!
Vielen Dank!
Gruß Ali

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zum aktuellen Monat springen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread