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.
Hi,
ich nehme an, du hast deine Übersicht als Art Inhaltsverzeichnis aufgebaut. Dann würde ich an deiner Stelle mit Hyperlinks arbeiten.
(27.11.2015, 18:08)WillWissen schrieb: [ -> ]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.
Hallo!
Wie ist der genaue Name der Sheets?
KW 21
KW21
21
Jedenfalls ist Dein Vorhaben mit allen obigen Varianten möglich.
Gruß Ralf
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
(27.11.2015, 18:39)RPP63 schrieb: [ -> ]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.
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
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)
(27.11.2015, 22:18)schauan schrieb: [ -> ]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.
(27.11.2015, 22:03)RPP63 schrieb: [ -> ]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
Gruß Ralf
Oh danke,
das hatte ich übersehen.