Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

Forumthread: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

19.05.2024 21:56:55

Joe_rud

- Excel Datei mit 52 Tabellenblätter (=Wochen im Jahr).
- Woche Mo - Fr jeweils eine Spalte
- Möchte auf aktuelle Woche springen
- Tabellenblätter haben den Namen "KW01" bis "KW52"
- Start Tabelle hat den Namen "Werte" hier die Schaltfläche

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

19.05.2024 22:08:12

schauan

Hallöchen,

falls es auch ohne VBA geht - erstelle eine HYPERLINK Formel. Für die Kalenderwoche gibt es auch eine Funktion.

Mit VBA: Nutze mal den Makrorekorder zum Aktivieren eines Blattes. Im Code siehst Du dann den Blattnamen.
Die Kalenderwoche kannst Du ersetzen durch
WorksheetFunction.WeekNum(date, 21)

AW: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

20.05.2024 00:35:09

Piet

Hallo

dieser Code springt die KW an, in der der Cursor steht. Ich nehme an die KW's stehen in Spalte A.
Sonst musst du im Code die richtige Spalte angeben. Der Cursor muss nicht exakt in A stehen.



Sub Zur_Woche_springen()

Dim Sht As String

Sht = Cells(ActiveCell.Row, "A")  'Lade KW aus Spalte A

Worksheets(Sht).Activate

End Sub

mfg Piet

AW: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

20.05.2024 09:06:53

RPP63

Moin!
Es gibt mindestens 2 Möglichkeiten, die Tabelle zu aktivieren.
Ich gehe mal davon aus, dass die Tabelle "Werte" links steht.

1. über Worksheet.Index:

Worksheets(Worksheetfunction.Weeknum(Date, 2) + 1).Activate

2. Stringverkettung → direkt mittels Worksheet.Name:

Worksheets("KW" & Format(Worksheetfunction.Weeknum(Date, 2), "00")).Activate

Gruß Ralf

Korrektur/Ergänzung

20.05.2024 09:27:45

RPP63

Für Deutschland WorksheetFunction.Weeknum(Date, 21)
oder gleich WorksheetFunction.IsoWeekNum(Date)

AW: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

20.05.2024 00:34:14

BoskoBiati2

Hi,

wieso 52 Tabellenblätter? Das macht man in eine Tabelle, dann muß man keine Klimmzüge machen.

AW: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

20.05.2024 10:09:02

schauan

Hallöchen,

alternativ ginge auch
Sheets("KW" & Format(Format(Date, "ww")), "00").Activate

wobei sich die Daten für xlFirstDayOfWeek und xlFirstWeekOfYear aus dem System geholt werden sollten. Kann man aber auch sicherheitshalber angeben, mit
Sheets("KW" & Format(Format(Date, "ww", 2, 2)), "00").Activate

siehe dazu
https://learn.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.firstdayofweek?view=net-8.0
https://learn.microsoft.com/en-us/dotnet/api/microsoft.visualbasic.dateformat?view=net-8.0

Die Formel würde übrigens so aussehen:
=HYPERLINK("#'KW" & TEXT(KALENDERWOCHE(HEUTE();21);"00") & "'!A1")

Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

Forumthread: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

Forumthread: Mit Schaltfläche (VBAMacro) zur aktuellen Woche springen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread