Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
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
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox - typenunverträglich

Inputbox - typenunverträglich
20.07.2017 15:12:37
Markus
Hallo zusammen,
ich möchte gerne eine Datumsabfrage in VBA machen und möchte die Variable gerne auch als Datum in das Excelsheet einfügen, deswegen habe ich die Variable als "Date" deklariert:
Dim RecDat As Date
RecDat = InputBox("TEXT")
If Not IsDate(RecDat) Then
MsgBox "Kein gültiges Datum!"
Exit Sub
Wenn man die aufploppende InputBox abbrechen will, dann taucht jedoch Excel auf und meint etwas von Typenunverträglichkeit und Laufzeitfehler 13.
Bitte um Rat :)
Vielen Dank und herzliche Grüße,
Markus

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox - typenunverträglich
20.07.2017 15:42:52
Chris
Dim RecDat As Date ist denke das Problem.
Wenn du abbrichst wird eine Zahl zurückgegeben, die eben KEIN Datum ist.
Wenn du recdat als Variant läßt nimmt es ersteinmal alles an, dann kannst du prüfen, ob es sich um ein Datum handelt...
AW: Inputbox - typenunverträglich
20.07.2017 16:05:42
Markus
Hallo Chris,
erstmal vielen Dank!
Du hast Recht, genau darin besteht das Problem :). Aber wie löse ich es, ohne das folgender Code seine Funktion einstellt:
Range("A1").Value = "Auswertung ... vom " & RecDat & "-" & RecDat + 7 & ""
Wenn ich RecDat als Variant deklariere, dann ist zwar das o.g. Problem gelöst, aber der Rest des Codes funktioniert nicht mehr.
Viele Grüße
Markus
Anzeige
AW: Inputbox - typenunverträglich
20.07.2017 16:27:28
Zwenn
Hallo Markus,
das löst Du über eine weitere Variable. Ich nenne sie mal zwischen. Die Variable zwischen ist vom Datentyp String. Ihr weist Du den eingegebenen Wert der Input-Box zu. Das klappt immer, egal was da reingetippt wird.
Anschließend prüfst Du, ob es sich bei der Eingabe um ein gültiges Datum handelt und reagierst dann entsprechend im Code: 

Sub DatumHolen()
Dim RecDat As Date
Dim zwischen As String
zwischen = InputBox("TEXT")
If Not IsDate(zwischen) Then
MsgBox "Kein gültiges Datum!"
Exit Sub
Else
'String umwandeln in Date
RecDat = CDate(zwischen)
Range("A1").Value = "Auswertung ... vom " & RecDat & "-" & RecDat + 7 & ""
End If
End Sub
Viele Grüße,
Zwenn
Anzeige
AW: Inputbox - typenunverträglich
20.07.2017 16:32:52
Markus
Hallo Zwenn,
mensch - Klasse! So etwas i.d. Art habe ich mir schon gedacht, aber wie man es umsetzt wusste ich nicht.
Vielen, herzlichen Dank!
Markus
AW: Inputbox - typenunverträglich
20.07.2017 16:28:13
Tino
Hallo,
wandle den String von der Inputbox in ein Datum um.
In etwa so
Dim RecDat
RecDat = InputBox("TEXT")
If Not IsDate(RecDat) Then
MsgBox "Kein gültiges Datum!"
Exit Sub
End If
RecDat = CDate(RecDat)
Range("A1").Value = "Auswertung ... vom " & RecDat & "-" & RecDat + 7
Gruß Tino
AW: Inputbox - typenunverträglich
20.07.2017 16:27:12
Markus
Hallo Chris,
erstmal vielen Dank!
Du hast Recht, genau darin besteht das Problem :). Aber wie löse ich es, ohne das folgender Code seine Funktion einstellt:
Range("A1").Value = "Auswertung ... vom " & RecDat & "-" & RecDat + 7 & ""
Wenn ich RecDat als Variant deklariere, dann ist zwar das o.g. Problem gelöst, aber der Rest des Codes funktioniert nicht mehr.
Viele Grüße
Markus
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige