Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
528to532
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
528to532
528to532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datumsformat

Datumsformat
06.12.2004 09:19:04
walter
Guten Morgen Zusammen,
habe folgendes im Makro:
ThisWorkbook.Worksheets("Prov-Blatt").Range("ad68") = Format(CDate(TextBox16), "dd.MM.yyyy")
TextBox16 = Format(CDate(Worksheets("Prov-Blatt").Range("ad68").Value), ("dd.MM.yyyy"))
erhalte jedesmal in Excel97 Fehlermeldung, in EXcel 2000 nicht.
Wieso?
("Laufzeitfehler 2110")
Gruß Walter

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

Betreff
Datum
Anwender
Anzeige
AW: Datumsformat Nachtrag
06.12.2004 09:29:25
walter
Hallo,
anbei mein kompl. Makro, da die Fehlermeldung bei der Zeile:
TextBox16 = Format(CDate("dd.MM.yyyy"))
anfängt.
Makro:

Private Sub TextBox16_AfterUpdate()
If IsNumeric(TextBox16) = True And TextBox16 <> "" Then
MsgBox "Nur Datums Wert!", vbCritical
TextBox16 = Format(CDate("dd.MM.yyyy"))
TextBox16.SetFocus
With TextBox16
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
ThisWorkbook.Worksheets("Prov-Blatt").Range("ad68") = Format(CDate(TextBox16), "dd.MM.yyyy")
TextBox16 = Format(CDate(Worksheets("Prov-Blatt").Range("ad68").Value), ("dd.MM.yyyy"))End If
End Sub

Gruß Walter
Anzeige
Habe Lösung gefunden
06.12.2004 09:36:24
walter
Hallo Zusammen,
hatte mal in der Recherche gestöbert und gefunden:
If IsDate(TextBox16) = False Then
eingesetzt und keine Fehlermeldung!
Danke
Gruß Walter
geschlossen
oT

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige