Office: (Office 2010) Datum in Zelle als Kalenderwoche anzeigen

Hallo zusammen,

gibt es eine Möglichkeit das Datum in einer Zelle als Kalenderwoche anzuzeigen ohne das eigentliche Datum zu löschen?

z.B. 05.05.20 in KW 19 formatieren und bei bedarf rückgängig machen (TT.MM.JJ "00")

Hintergrund ist, dass ich zur besseren Übersicht alle Datumsangaben in einem größeren Bereich als KW angezeigt haben möchte und bei Bedarf das genaue Datum mit einem klick auf die Zelle lesen kann.

Das genaue Datum möchte ich zu einem späteren Zeitpunkt auslesen und ggf. mit VBA weitere Sachen anstellen*Smilie

Danke für eure Antworten im Voraus

VG Mumi

:)

 

Da mußt Du eine weitere Spalte anlegen und die Funktion KALENDERWOCHE benutzen

Formatieren innerhalb der Zelle geht IMO nicht

 

Man könnte mit einem Worksheet_Change-Ereignis zum eingegebenen Datum die Kalenderwoche als Minuten (oder Sekunden) hinzuaddieren und dann mit einem Shortcut-Makro zwischen Format TT.MM.JJJJ und m (oder s) hin- und hertoggeln.

Beide Angaben, also Datum und KW, wären dann als Zahl in derselben Zelle, und der Weg vom KW zurück ginge zurück, wo das aufgrund Informationsverlusts sonst nicht ginge.

Rechnerisch auswertend KÜRZEN()t man das Datum, und bildet den REST(...;1)*1440 für die KW (in Minuten).

Charme hätte das auch deshalb, weil die Woche 1, die noch im alten Jahr auf Woche 52 folgt, richtig sortiert ist, auch über alle Jahre hinweg. Das gleiche gilt natürlich für Woche 52/53 am Anfang des neuen Jahres.

Hier habe ich mich schon mal mit der Frage (abgewandelt) beschäftigt.

 

Die Spalte A soll Datum und KW nach der Eingabe eines Datums enthalten. Für die korrekte Eingabe des Datums ist der User zuständig (keine Fehlerbehandlung). Die Makros verwenden die XLF-Nr. 7 (Franz Pölt) für Uralt-Excel und sind somit auch vor XL2010 verwendbar. Mit Strg-d schaltet man zwischen Datum und KW hin und her.

In den Code der Tabelle kommt folgendes Ereignis:

Private Sub Worksheet_Change(ByVal T As Range)
If T.Column = 1 Then
Application.EnableEvents = False
T.Offset(0, 255).FormulaR1C1 = "=TRUNC((RC[-255]-DATE(YEAR(RC[-255]+3" & _
"-MOD(RC[-255]-2,7)),1,MOD(RC[-255]-2,7)-9))/7)/86400+RC[-255]"
T = T.Offset(0, 255): T.Offset(0, 255).Delete
Application.EnableEvents = True
End If
End Sub

In ein normales Modul der Mappe kommt folgender Code (mit einem Shortcut, z.B. Strg-d):

Sub ToggleDatumSekundeAlsKW() 'Strg-d nicht vergessen!
[A:A].NumberFormat = IIf([A1].NumberFormat = "s", "mm/dd/yyyy hh:mm", "s")
End Sub

Anmerkung zum Ereignis: Ich tue mich mit Target und VBA-Funktionen, die es behandeln, immer schwer; daher habe ich die unsaubere Methode einer temporären Spalte IV genommen. Darf ein VBA'ler gern anpassen!

 

vielen Dank! ich werde die verschiedenen Varianten ausprobieren und eine Rückmeldung geben.

 

Ich finde die Idee von Lupo1 sehr gut. Ich habe es mit einem Date picker kombiniert und es funktioniert.

Wie kann ich den Code im Worksheet_change Ereignis so erweitern, dass nach jeder Datumseingabe nur die KW ersichtlich ist.

So wie ich das sehe, brauche ich nicht zwischen Datum und KW hin und her zu schalten per shortcut, da es ohnehin beides in der Zelle hinterlegt ist. Später kann ich doch beim auslesen nur den Teil mit dem Datum in eine variable packen und damit arbeiten. Oder habe ich einen Denkfehler?!?

Ich habe ein weiteres Problem festgestellt.
Zuvor aber eine kurze Zusammenfassung zu meinem Projekt:
Die Tabelle welche ich bearbeiten möchte, beziehe aus SAP (Fertigungsplanungsübersicht). In diesem werden die KW's oder ein "ok" für für bestimmte abgeschlossen Arbeitsschritte angezeigt. Ich möchte zukünftig die KW der noch bevorstehenden Arbeiten nach bedarf manuell ändern und per SAP Gui scripting wieder in SAP einspielen. Hierbei soll das genaue Datum aus meiner Tabelle in SAP eingetragen werden.

Das Problem welches ich habe ist, dass die Zellen "#WERT!" anzeigen, sobald ein "ok" drin steht. Wei kann ich dies umgehen?

Vielen Dank schon mal Vorab für eure Mühen!

 

Das geschieht durch das Strg-d-Makro. Wenn KW sichtbar, ist auch vom neuen Datum nur die KW sichtbar. Die Toggle-Formate kannst Du nach Belieben ändern, also auch auf TT.MM.JJJJ "KW:" s (so dass Du beides gleichzeitig siehst).

Das hatte ich in #3 erläutert.