Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Datum prüfen und formatieren

VBA - Datum prüfen und formatieren
02.10.2021 23:48:07
Peter_S
Zur Konvertierung unterschiedlicher Datumsformate prüfe ich eine Eingabezelle mit IsDate und gebe dann den Inhalt mit dem Format "DD.MM.YYYY" aus.
Wenn nun die Eingabezelle ein Datum ohne Tagesangabe enthält, dann ist dies ja ebenfalls eine gültige Datumsangabe. Wie kann ich prüfen, ob die Ausgangszelle eine Tagesangabe hat oder nicht? Wie erreiche ich das "Oktober 2021" oder "2021/10" als "10.2021" ausgegeben wird und nicht als 1.10.2021?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Datum prüfen und formatieren
02.10.2021 23:59:56
Oberschlumpf
na, zähl doch die Slashes in der Angabe.
bei...
"Oktober 2021" = zählen von / = 0, dann
mit Split() nach Leerzeichen trennen; ergibt Split()(0) = "Oktober"
jetzt überprüfen, ob Split()(0) ein Monatsname ist
wenn Nein, dann Code-Abbruch
wenn Ja, dann erstmal Monatsname in Zahl umwandeln, dann Format = "MM.YYYY"; ergibt aus Split()(0) + Split()(1) = "10.2021"
bei...
"2021/10" = ähnlich vorgehen, nur eben darauf achten, dass nur 1x / vorkommen darf, und dass jetzt Monat hinten und Jahr vorn steht.
Hach ja, mal nicht den Code selbst erstellen müssen macht auch mal Spaß :-) bei VBA = Gut bekommst du das ja hin.
Hilfts?
Anzeige
AW: VBA - Datum prüfen und formatieren
03.10.2021 00:18:35
Peter_S 

Hilfts?
Hallo Oberschlumpf.
Nicht wirklich. Dennoch vielen Dank für die schnelle Reaktion.
Die Angaben "Oktober 2021" oder "2021/10" waren nur beispielhaft. Ich möchte alle Angaben, welche IsDate als gültig kennzeichnet, prüfen und in einem einheitlichen Format ausgeben. Mit einheitlich meine ich entweder "DD.MM.YYYY" oder "MM.YYYY" oder "YYYY", in Abhängigkeit der Eingabewerte.
Gibt es also eine Möglichkeit zu prüfen, ob die Eingabezelle Tag/Monat/Jahr, Monat/Jahr oder nur Jahr beinhaltet?
AW: VBA - Datum prüfen und formatieren
03.10.2021 01:18:04
Oberschlumpf
Hi,
da gibts bestimmt ne Möglichkeit!
Aber..ähh...wie stellst du dir das vor - ohne, dass du vllt bitte mal ne Bsp-Datei mit ausreichend Bsp-Daten per Upload zeigst?
Denn was unterschiedliche Datumsanzeigen betrifft, gibt es ja auch so Einige.
Ich mag jetzt zuerst aber nich überlegen müssen, WAS es da so alles gibt - bevor - ich mit dem eigtl Testen für dich beginnen kann.
Ciao
Thorsten
Anzeige
AW: VBA - Datum prüfen und formatieren
04.10.2021 00:26:58
Peter_S
Hallo Thorsten,
ich zähle jetzt die möglichen Trennzeichen und entscheide das Format in Abhängigkeit der Anzahl.
If IsDate(vDate) = True Then
iCnt1 = Len(vDate) - Len(Replace(vDate, " ", ""))
iCnt2 = Len(vDate) - Len(Replace(vDate, ".", ""))
iCnt3 = Len(vDate) - Len(Replace(vDate, "/", ""))
iCnt4 = Len(vDate) - Len(Replace(vDate, "-", ""))
If iCnt1 = 2 Or iCnt2 = 2 Or iCnt3 = 2 Or iCnt4 = 2 Then
sDATE = Format(vDate, "DD.MM.YYYY")
ElseIf iCnt1 = 1 Or iCnt2 = 1 Or iCnt3 = 1 Or iCnt4 = 1 Then
sDATE = Format(vDate, "MM.YYYY")
End If
Else
sDATE = vDate
End If
Danke für Deine Tipps.
Peter
Anzeige
AW: VBA - Datum prüfen und formatieren
04.10.2021 02:10:34
Oberschlumpf
Hi Peter,
zwar nur indirekt, aber ich bat dich um eine Bsp-Datei per Upload.
Warum du diese nicht liefern kannst oder willst, weiß ich nicht.
Ich bin raus - wer anders bitte - weiter viel Erfolg.
Ciao
Thorsten
AW: VBA - Datum prüfen und formatieren
06.10.2021 07:27:56
MCO
Moin Peter!
Wenn du schon so weit bist, dass Excel die Eingabe als Datum erkennt, dann kannst du doch einfach das erkannte Format auslesen:

activecell.numberformat
für Oktober 2021 wird umgewandelt in Okt 21, format ist dann "mmm-yy"
Gruß, MCO
AW: VBA - Datum prüfen und formatieren
06.10.2021 14:45:13
Peter_S
Hi MCO,
danke für den Tipp, habe ich probiert.
Die Abfrage auf das numberformat funktioniert nicht in allen Fällen. Wenn die Ausgangszelle einen Text enthält, zum Beispiel "'Oktober 2021" (mit vorangestelltem Hochkomma), dann ist numberformat = "General", die IsDate-Prüfung aber trotzdem positiv.
Viele Grüße
Peter
Anzeige
AW: VBA - Datum prüfen und formatieren
06.10.2021 18:07:37
Oberschlumpf
Hi Peter,
und vor der IsDAte-Prüfung kannst du nicht prüfen, ob das erste Zeichen = ' ist?! (Hochkomma, wie du es nennst)
Wenn 1. Zeichen = ' (Anführ.zeichen nich vergessen!), dann könntest du auf IsDate prüfen...usw
Hilfts?
Ciao
Thorsten
AW: VBA - Datum prüfen und formatieren
06.10.2021 18:41:10
GerdL
Moin,
es geht undurchsichtiger.

ReDim cnt(0 To 3) As Integer
cnt(0) = 0
If IsDate(vdate) Then
cnt(0) = Len(vdate) - Len(Replace(vdate, " ", ""))
cnt(1) = Len(vdate) - Len(Replace(vdate, ".", ""))
cnt(2) = Len(vdate) - Len(Replace(vdate, "/", ""))
cnt(3) = Len(vdate) - Len(Replace(vdate, "-", ""))
End If
sDate = Array(vdate, Format(vdate, "MM.YYYY"), Format(vdate, "DD.MM.YYYY"))(Application.Max(cnt))
Erase cnt
Gruß Gerd
Anzeige

315 Forumthreads zu ähnlichen Themen

Felder mit Datum und Uhrzeit vergleichen?
Lauren

Hallo zusammen,
neues Thema neues Glück :)
Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
Es sind folgende Saplten vorhanden
Spalte A = Datumanfang in...
16.09.2008 16:24:00
Thread-ID: 1010159
6 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
Anzeige
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
DATUM UND UHRZEIT
eric

Hallo,
man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
eric
27.01.2009 21:37:18
Thread-ID: 1044401
2 Beiträge
VBA Ausdruck des Moduls mit aktueller Uhrzeit
MBorn

Hallo,
weiß vielleicht jemand von Euch, wie man ein VBA-Modul ausdruckt und es schafft,
die aktuelle Zeit / und das Datum in der ersten Zeile mit auszudrucken?
Gruß und Dank,
Born
31.01.2009 14:30:56
Thread-ID: 1045652
4 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datum und Uhrzeit aus Textbox passend in Tabelle e
Karsten

Hallo
Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
06.04.2009 19:01:58
Thread-ID: 1067159
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
1
12
4
3
1
3
11
2
1
5
5
4
3
11
9
4
1
4
2
2
7
6
2