Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
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
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Abbruch bei NICHT Datum

Abbruch bei NICHT Datum
13.05.2009 11:34:58
Kai
Hi,
wie kann ich denn per VBA In meinem Tabellenblatt "JANUAR" die Spalte G im Range 10:200 auf gültiges Datum überprüfen ?
Sobald eine Zelle in diesem Range keine gültiges Datumsformat hat oder Leer ist , soll eine MSGBOx kommen und dannach ein Exit sub.
Wie mache ich das ?
Danke Kai

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abbruch bei NICHT Datum
13.05.2009 11:46:08
Raist10
Prüfe den Inhalt mit der Function IsDate, gibt True zurück wenn ein Datum und False wenn kein Datum.
Gruß
Rainer
Meinst Du so ... ?
13.05.2009 12:15:11
Kai
das funktioniert irgend wie nicht
dim c
For Each c In Sheets("Januar").Range("G10:G50")
If Not IsDate(c) And c = "" Then MsgBox "Abbruch"
Exit Sub
Next
AW: Meinst Du so ... ?
13.05.2009 12:54:53
Raist10
Nicht ganz ... ^^ ... eher so:

Sub Test()
Dim c As Range
For Each c In Sheets("Januar").Range("G10:G50")
If Not IsDate(c.Text) Or c.Text = "" Then MsgBox "Abbruch"
Exit Sub
Next
End Sub


Gruß
Rainer

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige