Office: Datum-Eingabe im Format MMM/YYYY wenn möglich englisch

Hallo,

ich habe mal noch ein kleines Problem.

In meiner Datenbank soll in dem UserForm das Datum der letzten Wartung eingegeben werden und aus dem Wartungsintervall dann die nächste Wartung errechnet werden.
Das funktionert soweit ganz gut, nur dass ich das Datum immer im Format dd.mm.yyyy eingeben muss.

Nun wird aber nicht das exakte Datum verwendet, sondern nur Monat und Jahr, wie z.B. auch bei TÜV Plaketten. Ich habe es zwar schon geschafft, über den Format-Befehl die Anzeige zu ändern, aber es beschränkt nur auf die Deutsche Bezeichnung wie z.B. Mrz.

Meine Überlegung bisher war, dass ich das Datum für die letzte Wartung getrennt eingeben lasse, also den Monat über DropDown (2-Spaltig mit den Werten 1-12 für die Variable) und dann das Jahr als Textbox im Format YYYY.

Was mir nun fehlt ist, wie ich beides dann zu einem Datum zusammensetze und dann den Wartungsintervall (Angegeben in Monaten) dazu addiere. Das Ergebnis soll dan wieder in Jahr und Monat getrennt werden, so dass dann die Zahl für den Monat über die Hilfstabelle wieder in die englische Monatsbezeichnung umwandeln kann.

Vielleicht weiss jemand auch eine viel elegantere Lösung, aber mir ist nichts eingefallen.

Hoffe jemand kann mein Gedankenwirrwarr entziffern und mir helfen.

Gruß
Christian

 

Hallo Christian,

benutze als Tag den 1 (DateSerial). Deine Sache ist ja nur eine Anzeige.

Gruß Hajo

 

Also ich hab jetzt noch mal etwas weiter geforscht und habe mir momentan folgende Lösung überlegt:

Ich setze das Datum der Letzen Wartung mittels DateSerial zusammen. Monat und Jahr werden eingeben und Tag lege ich einfach als den 1. fest.

Dann kann ich ganz normal meine Rechnungen durchführen und das Datum für die Nächste Wartung dann mit der DatePart-Funktion wieder auseineander nehmen. Tag wird dann ignoriert, Monat über meine Hilfstabelle durch Cells (Monat, Spalte mit Monatsnamen) ersetzt und mit dem Jahr zusammen eingetragen.

Gibt es irgendetwas, was gegen diese Lösung spricht, außer dass es vielleicht eleganter geht?

Gruß
Christian

 

Danke gerade als du das geschrieben hattest, hatte ich mir das auch übelegt (siehe mein Eintrag nach dir). Hatte nur vor dem Abschicken noch nicht wieder aktualisiert. :mrgreen:

 

Hallo Christian,

wenn ich das richtig lese habe ich Dir diese Lösung vor einer vertel Stunde vorgeschlagen.
Für den zweiten Teil hätte ich Format benutzt, falls damit nicht gerechnet werden soll.

Gruß Hajo

 

Jo hatte Parallel im Internet weitergesucht und bevor ich meine Lösung eingetragen habe, noch nicht wieder nach Antworten geschaut. Hätte ich allerdings wissen müssen, da es hier wirklich immer sehr fix mit den Antworten geht.

Leider muss damit weiterhin gerechnet werden, also werde ich wohl den etwas umständlicheren Weg in Kauf nehmen müssen.

Danke nochmal für die schnelle Hilfe

 

Hallo Christian,

warum Umständlich: Benutze doch einfach das Datum weiter und nur zu Anzeige Format.
Es gibt nur wenige die Deinen Code oder Datei sehen und zu Deinem Code oder der Datei was sagen können.

Gruß Hajo

 

Wie kann ich das Datum denn dann mit den englischen Monatsnamen anzeigen lassen? Das ist näcmlich mein Problem. Mit
Format(Datum,"mmmm.yyyy") kommt nur März anstatt March (außerdem würde ich gerne den Punkt zur Trennung durch ein Leerzeichen ersetzen).

Ich würde es gerne so machen, da ich nun das Problem habe, die Differenz zwischen der Nächsten Wartung und dem heutigen datum zu berechnen zu müssen und ich nun einen Weg finden muss, um aus dem zusammengesetzten Text "March 2009" wieder ein Datum zu machen.
Ich weiß, das geht mittels Split, aber wenn die andere Möglichkeit irgendwie funktioniert wäre es natürlich einfacher.

Gruß
Christian

 

Hallo Christian,

ich habe ein wenig getestet.

Code:

Option Explicit

Sub n()
    Dim DaDatum As Date
    Dim LoTage As Long
    DaDatum = Date + 60
    LoTage = DaDatum - Date
'    MsgBox Application.Evaluate(StFormel)
    MsgBox Application.Evaluate("=TEXT(TODAY()+60,""[$-409]MMMM yyyy"")")
End Sub

Gruß Hajo

 

Danke für die Hilfe.

Hab zwar zwischendurch auch schon etwas rumgebastelt, da ich hier auf der Arbeit etwas weiterkommen musste ,und auch eine Methode gefunden, die aber ziemlich umständlich ist.

Werde deinen Code dann aber später noch einbringen, da ich alles nochmal überarbeiten werde.

Muss nur das ganze erst einmal überhaupt zum Laufen bekommen, um zu zeigen was möglich ist. Danach werde ich dann den ganzen Code nochmals überarbeiten.