Office: Zwei Datumsformate in einer Spalte?

Hallo,

ich bin gerade über das folgende Problem gestolpert: Ich habe eine Excel-Tabelle, die mithilfe einer UserForm gefüttert wird. Eine Spalte beinhaltet das Datum -Hier soll es möglich sein das genaue Datum (TT.MM.JJJJ) von einem Einzelevent, aber auch das Format (MM.JJJJ) für die Zusammenfassung mehrere Events möglich sein. Kann ich irgendwie in einer Splate zwei Formatierungen unterbringen, denn so macht er ja logischerweise aus meinem "nur" Monat immer den ersten Tag des Monats?!

bin gerade sehr überfragt damit und für jede Hilfe dankbar


Gruß
Mad

 

Hi Mad,

formatiere doch die Zelle beim Eintragen der Daten aus dem UserForm ins Tabellenblatt.

Bis später,
Karin

 

Hallo Mad,

in einer Spalte kannst Du verschiedene Zellen natürlich unterschiedlich formatieren, zwei Formatierungen pro Zelle gleichzeitig geht aber nicht.

Wenn ich das richtig verstehe benutzt Du eine UserForm um eine Tabelle mit Werten zu füllen.
Ohne Deine Tabelle zu kennen oder eine Beispielmappe gesehen zu haben, wäre mein erster Gedanke:
Lasse im Code bei jedem Eintrag prüfen ob es sich um ein Datum oder einen Datumsbereich handelt, und formatiere dann mittels Code die gewünschte Zelle entsprechend.

Ich hoffe geholfen zu haben.

(Karin war schneller...)

 

Hallo Karin und Achim,

vielen Dank erst einmal für die Antworten. Das scheint mir der richtige Ansatz (hoffe ich zumindest), denn das Datum wird in der UserForm logischerweise über ein Textfeld eingegeben, was ich mit folgendem Code überprüfen lasse:

If Not IsDate(Me.txtDatum.Value) Then
MsgBox "Das Feld muss ein gültiges Datum enthalten.", vbExclamation, "Safety Performance"
Me.txtDatum.SetFocus
Exit Sub
End If

So kann ich auch "nur Monatseingaben" machen, aber bei der Übertragung in die Spalte wandelt er es immer in TT.MM.JJJJ Format um, egal welche Formatierung ich wähle (selbst bei "Text").

Ich weiß auch nicht, wie es sich bei der Auswertung verhält, denn ich habe Jahresübersichten erstellt, die das Datum aus der Tabelle abgreifen:

=SUMPRODUCT((Übersicht!$B$3:$B$100<>"")*(Übersicht!$C$3:$C$100="Nein")*(YEAR(Übersicht!$B$3:$B$100)=$O$1)*(MONTH(Übersicht!$B$3:$B$100)=MONTH(C$4&0))*(ISNUMBER(SEARCH($B5;Übersicht!$G$3:$G$100)))*(Übersicht!$D$3:$D$100))

Die Formel muss es auch als Datum erkennen vermute ich mal...

Ich hoffe, ich konnte mein Problem hinreichend beschreiben, aber natürlich hänge ich jetzt zur besseren Verständlichkeit auch noch das "Gesamtwerk" an :)


Beste Grüße
Mad

 

Hi Mad,

mit der folgenden (und den anderen gleichgearteten) Codezeile trägst du das Datum in die Zelle:

Code:

.Offset(RowCount, 1).Value = DateValue(Me.txtDatum.Value)

Daran anschließend müsstest du das Zellformat entsprechend deinen Wünschen anpassen:

Code:

.Offset(RowCount, 1).NumberFormat = ....

Bis später,
Karin

 

Hallo Karin,

na, nu kann ich die Lösung meines Problems schon zärtlich fühlen :)

ich habe getan, wie du geschrieben hast und das funktioniert soweit, dass er es in dem vorgegebenen Format überträgt. Ich hätte nur gerne eine If-Else Geschichte, d.h. dass wenn das Datum in DD.MM.YYYY eingeben wird auch so übertragen wird und bei nur MM.YYYY Eingabe das gleiche in grün (Vielleicht gibt es ja auch sowas durch irgendein Sonderzeichen bei den Formate, dann kenn ich eine solche Variable aber net).

Das ganze müsste dann ca. so aussehen:

.Offset(RowCount, 1).Value = DateValue(Me.txtDatum.Value)
IF {Me.txtDatum="DD.MM.YYYY"}
THEN
.Offset(RowCount, 1).NumberFormat = "DD.MM.YYYY"
ELSE
.Offset(RowCount, 1).NumberFormat = "MM.YYYY"

Ich denke, du verstehst, was ich meine, aber ich bekomm das nicht mit der genauen Programmierung hin -Bin halt nur ein Baster und kein Programmierer und deshalb auf Hilfe von Leuten, die sich damit auskennen, angewiesen ;)

Vielen Dank im Voraus!

Beste Grüße
Mad

 

Hi Mad,

prüfe, ob 2 Punkte im Datum enthalten sind:

Code:

If Len(txtDatum) - Len(Application.Substitute(txtDatum, ".", "")) = 2 Then
   ....
Else
   ....
End If

Übrigens: ich bin auch kein Programmierer - ist nur mein Hobby :)

Bis später,
Karin

 

Hallo Karin,

vielen Dank -Die Idee ist echt gut und es funktioniert auch fast. Die Anzeige in der Excel-Spalte ist genau wie ich es haben wollte -Das läuft perfekt. Aber er schreibt trotzdem in die Zelle DD.MM.YYYY, zeigt aber nur MM.YYYY an (Formatierung Generell), d.h. er macht immernoch immer den ersten des Monats draus, jetzt allerdings mit der anzeige, wie ich sie gerne hätte..
Hast du eine Idee, wie (und ob) man das ändern kann?


Beste Grüße
Mad

 

Hi Mad,

eine Datumsangabe ist in Excel intern eine fortlaufende Zahl - das kannst du sehen, wenn du eine Zelle mit einem Datumswert ins Format Standard umwandelst. Die Anzeige als TT.MM.JJJJ bzw. MM.JJJJ ist tatsächlich nur eine andere Anzeige dieser Zahl, nicht jedoch eine andere Zahl. Excel erkennt 12.2012 zwar als Dezember 2012, setzt aber automatisch den 1. Tag dazu, weil es eben mit der fortlaufenden Zahl für den 01.12.2012 rechnen will.

Wenn in deinem Fall kein tatsächliches Datum einschließlich Tag in der Zelle stehen soll, dann musst du die Zelle als Text formatieren und nicht als Datum.

Bis später,
Karin

 

Hallo Karin,

das ist ein erschlagendes Argument -Das hätte ich mir eigentlich auch selber zusammen reimen können. Wenn ich das in "Text" formatiere haut er mir statt Punkte das Slash dazwischen und schreibt das Datum auch aus. Aber ganz egal, ich bin mit der Lösung sehr zufrieden, denn es steht so da, wie es stehen soll und anders geht es halt nicht in Excel, zumindest im Datums-Format.
Ich sag aller, aller besten Dank für die Lösung und wünsche ein schönes und sonniges Wochenende ;)

Beste Grüße
Mad

 

Hi Mad,

dein Problem ist, dass die Spalte als Text formatiert ist. Lösche die gesamte Spalte (nicht die Inhalte sondern die Zellen!!) und füge eine neue Spalte ein. Dann sollte die Formatierung korrekt funktionieren.

Bis später,
Karin

 

Hello,

ja, ich hatte die Spalte schon formatlos und das funktioniert auch absolut gut -Sehr zufrieden er ist ;)


Beste Grüße
Mad