Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox

Forumthread: Inputbox

Inputbox
28.03.2006 10:08:30
serge
Hallo Leute
ich möchte mit einer Inputbox ein Datum abfragen:
Dim d As Date
d = InputBox ("Eingansdatum eingeben:")
If Not IsDate Then
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = "=today()"
Else
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = d
End If
Leider kommt die Fehler Meldung:
IsDate = Fehler beim Kompilieren
................Argument nicht optionel
was mache ich falsch?
Danke Serge
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Inputbox
28.03.2006 10:18:14
u_
Hallo,
if not isdate(d) then
Gruß
Geist ist geil!
AW: Inputbox
28.03.2006 10:19:27
yogi
Tach Serge
IsDate verlangt ein Argument: IsDate(d)
Gruss yogi
AW: Inputbox
28.03.2006 10:20:54
Peter
Hallo Serge,
du hast das 'd' vergessen:
Public 

Sub Datum()
Dim d As Date
Dim i As Integer
d = InputBox("Eingansdatum eingeben:")
If Not IsDate(d) Then
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = "=today()"
Else
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = d
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Inputbox
28.03.2006 10:28:39
Peter
Hallo Serge,
definiere das d besser als String, sonst geht der Klick auf OK ohne Eingabe daneben
und übertrage das d mit CDate(d).
Public 

Sub Datum()
Dim d As String
Dim i As Integer
d = InputBox("Eingangsdatum eingeben:")
If Not IsDate(d) Then
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = "=today()"
Else
Range(ActiveCell.Offset(-i + 2, 0), ActiveCell).FormulaR1C1 = CDate(d)
End If
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
Danke an alle? es klappt o.T.
28.03.2006 11:32:14
serge
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige