Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

IsDate() mit Formatvorgabe prüfen

IsDate() mit Formatvorgabe prüfen
21.09.2017 14:39:57
steffen
Hallo,
wie kann ich prüfen, ob in einer Zelle ein Datum in einem bestimmten Format eingetragen ist?
Bsp.
If IsDate(Range("A1")) Then'im Format TT.MM.JJJJ ist ok
MsgBox "Datum ist korrekt erfasst."
Else
MsgBox "Datum hat das falsche Format"
End If

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: IsDate() mit Formatvorgabe prüfen
21.09.2017 14:48:02
Michael
Hallo!
Sub a()
Dim c As Range: Set c = Range("A1")
If c.NumberFormatLocal Like "TT.MM.JJJJ" Then
MsgBox "Datum OK!"
Else: MsgBox "Datum Nicht-OK!"
End If
End Sub
LG
Michael
AW: IsDate() mit Formatvorgabe prüfen
21.09.2017 14:48:43
yummi
Hallo Steffen,
mit 

=ZELLE("Format";A1)
kannst Du dir das Format aus Zelle A1 ausgeben lassen. Das kurze Datumsformat z.b. hat den WErt D2
Musst du also erstmal das richtige Format setzen um festzustellen, welchen Wert du bekommen wirst, den Wert kannst Du dann vergleichen.
Ist das das was Du wolltest?
Gruß
yummi
Anzeige
AW: IsDate() mit Formatvorgabe prüfen
21.09.2017 15:00:38
Gerd
Hallo Steffen! 
Sub Beispiel()
If IsDate(Range("A1")) Then
If Range("A1").Text = Format(Range("A1").Text, "dd.mm.yyyy") Then
MsgBox "ok"
Else: MsgBox "nicht i.O."
End If
Else: MsgBox "nicht i.O"
End If
End Sub

Gruß Gerd
AW: IsDate() mit Formatvorgabe prüfen
21.09.2017 14:55:58
Daniel
Hi
kommt darauf an, was genau in deiner Excelzelle steht.
steht dort ein normales Exceldatum, dann ist das eine Ganzzahl und es ist relativ egal, wie es formatiert ist.
dein IsDate wird in diesem Fall auch ein FALSCH liefern.
IsDate prüft, ob ein Text in ein Datum gewandelt werden kann.
wenn du also in A1 ein Text steht, dann könntest du so prüfen, ob er im richtigen Format vorliegt: 
If IsDate(Range("A1").Value) AND Range("A1").Value like "##.##.####"
oder du nimmst 
If IsDate(Range("A1").Text) AND Range("A1").Text like "##.##.####"
das sollte in beiden Fällen funktionieren.
in der Like-Funktion ist das # der Platzhalter für eine Ziffer 0-9.
das IsDate brauchst du trotzdem, weil das Like natürlich auch Nicht-Datumswerte wie 98.76.0000 passieren lassen würde.
Gruß Daniel
Anzeige
Danke
21.09.2017 15:27:13
steffen
super schnelle Hilfe.....echt klasse

33 Forumthreads zu ähnlichen Themen

prüfen ob string als datum gelesen werden kann
gothino

Hallo,
ich möchte prüfen ob ein string in ein Datum konvertiert werden kann,
im speziellen habe ich
txt = "01-Dez-2003"
Witzigerweise funktioniert
Dim datum as date
datum = cdate(txt)
auf bestimmten Computern, auf anderen nicht?
Da kommt dann Laufzeitfehler 13...
02.09.2009 16:16:53
Thread-ID: 1100144
5 Beiträge
Anzeige
mit VBA Prüfen ob ein Wert in Spalte A existiert
marspoki

Hallo,
gibt es in VBA die Möglichkeit in VBA zu prüfen, ob in Spalte A10:A100 der Wert "x" exsistiert?
Vielleicht gib es auch eine Möglichkeit, rauszubekommen wie oft der Wert vorhanden ist?
Vielen Dank im Vorraus
Mars
18.03.2011 10:54:48
Thread-ID: 1206302
4 Beiträge
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
Anzeige
Überprüfen ob Ziffernfolge in Zelle enthalten
Heinz

Hallo Liebe Excellenten,
ich brauche mal wieder eine Gute Idee.
Folgendes Problem:
Ich habe Zellen, in denen jeweils Zahlenfolgen stehen, z.B.
Zelle A1: 161; 164, 201; 199; 203; 203; 197; 208; 123; usw.
Zelle A2: 98; 165a; 123; 124; 197; 220; usw.
Natürlich sind in reali...
23.10.2012 20:28:23
Thread-ID: 1283537
7 Beiträge
Per VBA prüfen, ob Nutzer in SAP angemeldet ist
Maximilian

Hallo!
Hat jemand eine Idee, wie ich vor dem Beginn meines Skript prüfen kann, ob der Nutzer im SAP angemeldet ist?
Ich könnte beispielsweise nach dem Fenster "SAP Easy Access" suchen. Weiß jemand, wie das geht?
Vielen Dank!
31.10.2012 11:18:13
Thread-ID: 1284599
2 Beiträge
VBA: Problem mit Datumseingabe und -verarbeitung
Daniel

Hallo zusammen,
leider habe ich dafür keine passende Hilfe im Forum gefunden, deshalb möchte ich kurz mein Anliegen schreiben. Ich hoffe es ist verständlich:
'
' Ich habe in Spalte 1 Uhrzeitwerte von 00:00 bis 23:45
' Spalte 2 habe ich die Uhrzeitwerte mit der Formel ""=VERKETTE...
08.01.2013 13:55:13
Thread-ID: 1293271
4 Beiträge
VBA Prüfen ob leer
flacus

Hallo,
ich brauche mal wieder Hilfe. Ich habe ein Makro, womit ich einen Seriendruck starte. Das klappt alles ganz gut, jedoch sollte er nicht drucken, wenn es leere Zeilen gibt. In meiner Beispiel Datei ist es das Modul 3, was nicht gedruckt werden soll.
Es soll also geprüft werden, ob...
25.10.2013 11:57:11
Thread-ID: 1335853
3 Beiträge
Datum finden Problem VBA
Matze

Hallo Zusammen,
ich weis mal wieder nicht wo mein Gedankenfehler ist, das nervt jetzt schon etwas länger,...grrr.
Habe dieses Makro Private Sub Workbook_Open() Dim Bereich As Range Dim Zx As Date Application.ScreenUpdating = False Zx = Date Worksheets(Month(Date)).Select Set Bereich = R...
24.02.2014 16:51:12
Thread-ID: 1350964
4 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
4
5
3
3
7
6
1
3
2
3
2
4
5
2
3
7
2
4
2
9
5
1
4
2
5