aktuelle KW Sheet verschieben

[oliver]

Guten morgen,

ich lasse mir in den Zellen H5:NI5 die einzelnen Tage anzeigen von Jan.-Dez. Nun möchte ich gerne das wenn Excel Startet und der Sheet geöffnet wird, das im Zellbereich H5:N5 die aktuelle Kalenderwoche angezeigt wird(ausgehend von Mo-So), also das, das Blatt sich automatisch nach links verschiebt, bis zu aktuellen KW.

Lässt sich sowas überhaupt noch mit Formeln oder ähnl. lösen, oder muss da VBA her?
Hat jemand für sowas villeicht eine Lösung parat ?

Mit freundlichen Grüßen Oliver

[steve1da]

Hola,

in H5:

Code:

=DATUM(JAHR(HEUTE());1;7*KALENDERWOCHE(HEUTE();21)-3-WOCHENTAG(DATUM(JAHR(HEUTE());;);3))

Gruß,
steve1da

[oliver]

Hallo Steve1da,

ist mir nicht ganz klar, in H5:NI5 kann ich die Formel nicht einfügen, da die werte dort sich alle Auf das Datum B3 beziehen. Wie oben beschrieben soll das Sheet sich nach links verschieben und H5:N5 die akt. KW Mo-So angezeigt werden. Ich lad Dir einfach mal die Datei hoch. Die Funktionsweise ist mir klar, doch weiß ich nicht wie ich diese hier anwenden soll. Ich lad dir hier mal die Datei mit Hoch als Anschauungsobjekt...!

Beispieldatei gibt's hier: http://www.clever-excel-forum.de/thread-1565.html

Mit freundlichen Grüßen Oliver

[steve1da]

Hola,

wenn in H5 das erste Datum angezeigt wird, und das jetzt der Montag der aktuellen KW sein soll, was hat dann noch B3 damit zu tun?

Mir ist nicht ganz klar, was du vorhast.

Gruß,
steve1da

[oliver]

Hallo,

Schau dir bitte die Datei mal an, dann wird Dir vielleicht bewusster was ich möchte...

Danke

Mit freundlichen Grüßen

Oliver

[steve1da]

Hola,

ich kann es erahnen - dann ist es nur mit VBA möglich, leider nicht mein Gebiet.

Gruß,
steve1da

[oliver]

Hallo,

OK, schade... trotzdem Danke, vielleicht findet sich ja noch jemand der in VBA gut bewandert ist....

Mit freundlichen Grüßen
Oliver

[oliver]

Hallo,
ich habe mal im Internet gesucht und etwas gefunden, habe auch versucht das anzupassen, aber es funzt leider nicht, irgendwo ist da noch ein Fehler, das Script läuft zwar aber macht nicht was es soll. Villeicht kann sich das mal wer anschauen in Verbindung mit der Beispieldatei.

Beispieldatei gibt's hier: http://www.clever-excel-forum.de/thread-1565.html

Der Script ist zwar so angelegt das er das Datum sucht und dann auf die aktuelle Zelle springt, villeicht hat irgendjemand Plan davon und könnte es dahingehend anpassen das die aktuelle KW, so wie oben beschrieben angezeigt wird(bZw. das sheet sich nach links verschiebt..)


Sub Auto_Open()
Dim shtTemplate As Worksheet
Dim intZaehl As Integer
Dim datDatum As Date
Dim datHeute As Date
' Feste Werte zuordnen
Set shtTemplate = ThisWorkbook.Worksheets("Jahresueberblick")
datHeute = Format(Date, "dd")
' in Zeile 5 nach dem Tagesdatum suchen
With shtTemplate
For intZaehl = 7 To 2000
datDatum = .Cells(4, intZaehl)
'datDatum = .Range("H5", intZaehl)
' falls Datum gefunden, den Eingabezeiger dort
' positionieren und die Suche beenden.
If datDatum = datHeute Then
.Cells(4, intZaehl).Select
Exit For
End If
Next
End With

End Sub



Mit freundlichen Grüßen Oliver

[RPP63]

Hi Oliver!
Als kleiner Input:

Code:

Sub AbGehts()
Dim Spalte As Long
Spalte = 168
ActiveWindow.ScrollColumn = Spalte
End Sub

Gruß Ralf

[atilla]

Hallo,

wenn Du es Dir einfach machen möchtest, dann würde ich in der Tabelle mit einer Hilfszeile arbeieten. Bei Dir eignet sich z.B die Zeile 4. Die Höhe so lassen wie sie ist, dann werden die Inhalte auch nicht sichtbar.
Dann so aufbauen:

Arbeitsblatt mit dem Namen 'Jahresueberblick'
	H
3	Januar
4	1
5	01

Zelle	Formel
H4	=KALENDERWOCHE(H5;2)
H5	=B3

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

Und diesen Code zum anspringen der KW

Code:

Sub zur_KW()
Dim x

With Sheets("Jahresueberblick")
   x = Application.Match(CDbl(Format(Date, "ww")), .Rows(4), 0)
   Application.Goto Reference:=.Cells(5, x), scroll:=True
End With
End Sub

Im Open Ereignis dann so:

Code:

Private Sub Workbook_Open()
   Call zur_KW
End Sub