Office: (Office 2016) zur aktuellen KW springen (Button und Dateistart)

Guten Morgen,

ich bastele an einer Tabelle (habe ich angehängt) und komme nicht weiter.
In Spalte C befinden sich alle Tage des Jahres. Allerdings nur in jeder 3. Zeile. Die Daten werden von einem "Ausgangsdatum" berechnen, welches sich auf Blatt 2 befindet.

1)
Ich habe einen ActiveX-Button in A1, der beim Klicken folgendes machen soll:
Sprung in Spalte A und dort in die erste Zeile der aktuellen Woche (also Montag).
Für den heutigen Tag (21.01.) müsste also in die Zelle A53 gesprungen werden.
Dort ist keine Eingabe erforderlich. Es geht mir nur darum, dass die Ansicht dann vollständig die aktuelle Woche präsentiert. Ich habe schon einige Formel aus dem Internet ausprobiert, die lediglich in die Zelle mit dem aktuellen Datum (und nicht die KW) springen sollten, aber schon das hat nicht geklappt.

2)
Die gleiche Funktion soll ausgeführt werden, wenn die Datei geöffnet wird. Auch hier habe ich es mit mehreren gefundenen Codes nur mit dem aktuellen Datum versucht, aber ohne Erfolg. Vielleicht weil die Daten bei mir nicht in jeder Zelle stehen. Ich weiß nicht. Habe leider von VBA so gar keine Ahnung.

Vorab schon mal Dank für die Mühe
LG

 

unter diese Arbeitsmappe

Code:

Option Explicit

Private Sub Workbook_Open()
    If Not IsError(Application.Match(CLng(Date), Columns(3), 0)) Then
        Cells(Application.Match(CLng(Date - Weekday(Date, 2) + 1), Columns(3), 0), 3).Activate
    End If
End Sub

andere Code Analog.
Ich habe den Code bei öffnen mal auf Montag geändert, nicht wie bei Dir der aktuelle Tag.

 

Danke Hajo !
Was muss ich verändern, damit in der Woche nicht die Datumszelle von Montag in Spalte C markiert wird, sondern die Zelle eins höher in Spalte A?
Also für heute nicht C54 sondern A53?

 

Du schreibst schon VBA da sollte Dir klar sein das 3 Spalte C ist und 1 Spalte A?
insgesamt eine Zeile höher .Offset(-2,-1)

Gruß Hajo

 

Öhm, nein, ich schreibe nicht in VBA. Ich hatte ja gesagt, dass ich von VBA so gar keine Ahnung habe :-)
Die Codes in meiner Tabelle sind aus dem Internet kopiert. Ich suche immer erst mal dort und probiere mich aus, bevor ich hier jemanden im Forum nerve.
Musste jetzt auch rumprobieren, an welcher Stelle ich das Offset einfüge und welche Zahlen ich nehme.
Aber hat alles geklappt. Vielen Dank !

 

Und wahrscheinlich habe ich doch etwas falsch gemacht.
Habe das so geschrieben:

Code:

Private Sub CommandButton1_Click()
    If Not IsError(Application.Match(CLng(Date), Columns(3), 0)) Then
        Cells(Application.Match(CLng(Date - Weekday(Date, 2) + 1), Columns(3), 0), 3).Offset(7, -2).Activate
    End If
End Sub

Dadurch wird mit dem Button die Zelle mit der KW markiert und die Woche wird zentriert. Das ist fein.
Der gleiche Befehl bei "Workbook_open" verändert aber nix und markiert weiterhin das Datum des Monats.

 

bei mir wird nichts zentriert. Bei Open wird das Gleiche Zelle markiert.
Falls nich aktueller Montag sonder nächster +1 sondern +7.
Ich habe zu spät gesehen das Du nit verbundenen Zellen arbeitest, das lehne ich ab.
Das bereitet nur Probleme in VBA.

Gruß Hajo

 

Hallo @Frander,

dein VBA-Code bezieht sich auf das aktive Arbeitsblatt (="Kursplanung"). Davon betroffen ist "Cells(...)" und "Columns(..)".
Sobald du diese Dinge aus einem anderen VBA-Modul aufrufst, beziehen sich Cells(..) und Columns(..) auf dieses andere VBA-Modul. Das ist der Fall, wenn du den Aufruf aus "Workbook_Open()" ausführt, denn dieser befindet sich im Modul "DieseArbeitsmappe" (bzw. "ThisWorkbook"). Damit das Ganze auch von dort funktioniert, musst du folgenden VBA-Code schreiben:

Code:

Private Sub CommandButton1_Click()
   With Worksheets("Kursplanung")
     If Not IsError(Application.Match(CLng(Date), .Columns(3), 0)) Then
        .Cells(Application.Match(CLng(Date - Weekday(Date, 3)), .Columns(3), 0), 3).Offset(7, -2).Activate
     End If
   End With
End Sub

Zu beachten ist dabei nicht nur die Einfügung "With..." und "End With", sondern auch die 3 Punkte vor ".Columns(3)" und ".Cells()" und nochmals ".Columns(3)".
Eine kleine Vereinfachung habe ich auch eingebaut: Statt "Weekday(Date,2)-1" kann man auch schreiben: "Weekday(Date,3)"

Außerdem wirst du am 30.05.2021 vor dem Problem stehen, dass dort das Makro versagen wird. Du hast nämlich in der Zelle Kursplanung!C1 die Formel stehen: =Referenzdatum+150, was den 30.05.2021 ergibt. Dieser Wert ist daher auch in dieser Zelle enthalten, auch wenn du ihn nur zur Jahresanzeige formatiert hast. Da du die gesamt Spalte C zum Suchbereich der Match-Funktion gemacht hast, wird an diesem Tag die Zeile 1 und nicht die Zeile 450 gefunden. Du hast zwar 2021 Glück, da dies dann ein Sonntag ist, und du an einem solchen Tag das Makro vermutlich nicht aufrufen wirst - aber was ist in anderen Jahren?

 

Hallo @Exl121150,

vielen herzlichen Dank für deine nette und ausführliche Antwort. Habe Deinen Code eingefügt und alles läuft fein :-)
Das mit dem Referenzdatum hatte ich gar nicht auf dem Schirm. Wurde sofort geändert.
Jetzt ist nur noch ein einziges Problem mit meinem Plan offen, aber da es eine andere Thematik ist, werde ich dafür mal einen neuen Beitrag eröffnen.
Ich wünsche Dir ein schönes Wochenende.