Button einfügen

[tode1200]

Hallo liebe User,

ich habe eine Excel-Datei mit dem ersten Tabellenblatt Übersicht und 52 weitere Tabellenblätter mit den jeweiligen Kalenderwochen KW1-KW52.

Jetzt meine Frage:

Ist es möglich im Tabellenblatt "Übersicht" einen Button einzufügen, auf den man klickt um in die aktuelle Kalenderwoche (Tabellenblatt) zu gelangen ?

Meine KWs beginnen am Sonntag. D.h KW 2 ist der 3.1.2016 - 9.1.2016 und KW3 ist der 10.1.2016 - 16.1.2016 usw...

Vielen Dank für eure Hilfe.

[WillWissen]

Hi,

ich nehme an, du hast deine Übersicht als Art Inhaltsverzeichnis aufgebaut. Dann würde ich an deiner Stelle mit Hyperlinks arbeiten.

[tode1200]

Hi,

ich nehme an, du hast deine Übersicht als Art Inhaltsverzeichnis aufgebaut. Dann würde ich an deiner Stelle mit Hyperlinks arbeiten.

In der Übersicht sind alle Daten aus den jeweiligen KWs zusammengefasst und in einer Tabelle dargestellt.

In der aktuellen KW werden vom Benutzer Werte eingetragen.
Um es dem Benutzer anwendungsfreundlich zu machen, möchte ich einen Button einfügen, wenn er auf diesen klickt, dass er in das aktuelle Tabellenblatt reinkommt; ohne vorher schauen zu müssen in welcher Kalenderwoche man sich gerade befindet.

[RPP63]

Hallo!
Wie ist der genaue Name der Sheets?
KW 21
KW21
21

Jedenfalls ist Dein Vorhaben mit allen obigen Varianten möglich.

Gruß Ralf

[RPP63]

Für eine Zahl wie 2, 21, 48:
Worksheets(WorksheetFunction.WeekNum(Date)).Activate


Für zweistellige "Zahlen" 02, 21, 48:
Worksheets(Format(WorksheetFunction.WeekNum(Date), "00")).Activate

Für den Text KW Leerstelle Zahl:
Worksheets("KW " & WorksheetFunction.WeekNum(Date)).Activate

Gruß Ralf

[tode1200]

Hallo!
Wie ist der genaue Name der Sheets?
KW 21
KW21
21

Jedenfalls ist Dein Vorhaben mit allen obigen Varianten möglich.

Gruß Ralf

KW1 KW2 KW3... 
De Frage ist nur wie ich das anstelle.

[RPP63]

Hi!
Hatte ich im Prinzip doch bereits geschrieben.
In ein allgemeines Modul (Einfügen, Modul im VBA-Editor):

Code:

Sub Jump()
Worksheets("KW" & WorksheetFunction.WeekNum(Date)).Activate
End Sub

Das Zuweisen des Makros hängt davon ab, ob es sich um ein Formularsteuerelement oder ein ActiveX-Steuerelement handelt.

Gruß Ralf

[schauan]

Hallöchen,

das wäre der Ansatz mit der Formellösung:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A
1	#KW48!A1

Zelle	Formel
A1	=HYPERLINK("#KW"&KALENDERWOCHE(HEUTE())&"!A1")

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

Bei der KALENDERWOHE() musst Du nur schauen, mit welchem Wochentag die KW bei Dir beginnen soll. Montag wäre z.B. in Deutschland KALENDERWOCHE(HEUTE();21)

[WillWissen]

Bei der KALENDERWOHE() musst Du nur schauen, mit welchem Wochentag die KW bei Dir beginnen soll. Montag wäre z.B. in Deutschland KALENDERWOCHE(HEUTE();21)

Hi André,

tode hatte im Eröffnungsbeitrag geschrieben, dass bei ihm die KW am Sonntag beginnt. Ich hatte (allerdings erfolglos) auch mit einer Formellösung gespielt. Er müsste hier den Paramater 17 nehmen.

[tode1200]

Hi!
Hatte ich im Prinzip doch bereits geschrieben.
In ein allgemeines Modul (Einfügen, Modul im VBA-Editor):

Code:

Sub Jump()
Worksheets("KW" & WorksheetFunction.WeekNum(Date)).Activate
End Sub

Das Zuweisen des Makros hängt davon ab, ob es sich um ein Formularsteuerelement oder ein ActiveX-Steuerelement handelt.

Gruß Ralf

Oh danke,
das hatte ich übersehen.