Office: Datum mit InputBox eingeben

Halli Hallo zusammen

ich bin noch ein kleiner Neuling, was VBA angeht, habe mich aber schon ein wenig reingefummelt.
Leider bin ich bei einer Sache fast am verzweifeln.

Ich möchte einen Abgleich machen, indem geprüft wird, ob ein Datum innerhalb eines Zeitraumes liegt und wenn ja, wie viele Monate. Das ganze hab ich auch schon mittels Formel zusammen gebastelt. Allerdings möchte ich den Zeitraum mittels einer InputBox definieren. Und da ist jetzt das Problem. Gebe ich als Datum beispielsweise "01.01.2012" ein, wird "01.01.1900" ausgegeben. Und wenn ich dann denn "31.07.2012" als Endpunkt eintrage, wird der "31.01.1900" ausgegeben.

wenn ich die jeweiligen Datumsangaben direkt im Programmcode eingebe, funktioniert es auch. Aber es ist eine wiederkehrende Abfrage, sodass sich das Datum stets ändert. das wird dann ziemlich mühselig, den Quelltext immer zu ändern.

vllt hat ja jemand einen tip, warum das Datum umgewandelt wird.

Vielen Dank schonmal!!

Gruß mkh

:)

 

Hallo ?.

in Zeile drei in deinem Code liegt der Fehler.




« Gruß Sepp »

 

Vielen Dank für die Antwort, Sepp!!!

Hier natürlich noch der wesentliche Teil:



Function InsertValuesIntoLaufzeit_in_2012()

Dim message, title As String
Dim defaultValue, idate As Variant

message = "Bitte geben Sie das Datum ein, an dem der Auswertezeitraum beginnt/endet: "
title = "Zeitraumfestlegen"
defaultValue = "01.01.2012"

Range("G2").Activate
idate = InputBox(message, title, defaultValue)
idate = CDate(Format(idate, "dd.mm.yyyy"))
Range("G2") = Val(idate)
Range("G2").NumberFormat = "dd/mm/yyyy"

Range("G3").Activate
idate = InputBox(message, title)
Range("G3") = Val(idate)
Range("G3").NumberFormat = "dd/mm/yyyy"


Gruß mkh

 

Hallo ??,

Sub InsertValuesIntoLaufzeit_in_2012()
Dim message As String, title As String
Dim defaultValue As String, idate As Variant

message = "Bitte geben Sie das Datum ein, an dem der Auswertezeitraum beginnt/endet: "
title = "Zeitraumfestlegen"
defaultValue = "01.01.2012"

idate = Application.InputBox(message, title, defaultValue, Type:=1)

If IsDate(CDate(idate)) Then
With Range("G2")
.Value = CDate(idate)
.NumberFormat = "dd/mm/yyyy"
End With
Else
MsgBox "Ungültige Eingabe!", vbExclamation, "Hinweis"
Exit Sub
End If

idate = Application.InputBox(message, title, defaultValue, Type:=1)

If IsDate(CDate(idate)) Then
With Range("G3")
.Value = CDate(idate)
.NumberFormat = "dd/mm/yyyy"
End With
Else
MsgBox "Ungültige Eingabe!", vbExclamation, "Hinweis"
Exit Sub
End If
End Sub





« Gruß Sepp »

 

Bestens!!!

Vielen vielen Dank. Da hätte ich wohl lange basteln können.

Gruß mkh