Office: Ich möchte per VBA ein Datum überprüfen ob es in einem bestimmten Datumsbereich liegt

Hallo Leute ich bin wieder mal da habe ein Problem diesmal in Excel 2003 VBA,

Ich habe mir aus diversen Foren einen Code zusammengebastelt aber ich bin damit nicht ganz Glücklich.

Ich möchte per VBA beim einfügen eines Datum überprüfen lassen ob das Datum in einem bestimmten Datumsbereich liegt.
(also zwischen zwei Datumsangaben)

d.H. Wenn das einzufügende Datum im Bereich liegt dann
msgbox "Datum liegt im Bereich".

wenn es außerhalb lieg dann
msgbox "Datum liegt außerhalb"

Ich habe mein bisherigen Versuche als Datei angefügt, dabei stört mich das ich die errechnete Werte an zwei Label weitergeben muss.

ist es möglich den VBA Code so um zu stricken das auf die Label´s im Tabellenblatt verzichtet werden kann.( Hab diese zur Zeit auf Visible = False gestellt).

Ich wäre euch außerordentlich Dankbar
Danke im Voraus

MFG

R.

:)

 

Hi ???


warum per VBA? Dazu gibt's die Gültigkeitsprüfung.

	I	J	K	L
3	zu überprüfende Daten
4	AnfangsDatum	EndDatum		Eingabe Datum
5	01.05.2010	01.03.2013		01.05.2010

Zelle	Zulassen	Daten	Eingabe 1	Eingabe 2
L5	Ganze Zahl	Zellwert ist zwischen	=I5	=J5

Excel Tabellen im Web darstellen >>

 

Hi,


und den Unsinn mit den Labels verstehst wohl nur du.

Die Prüfung kann z.B. so aussehen.


' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub CommandButton4_Click()

If Range("L5") >= Range("I5") And Range("L5") <= Range("J5") Then
MsgBox "Datum ist im Bereich"
Else
MsgBox "Datum ist nicht im Bereich"
End If

End Sub

 

Hiho

*biggrin.gif* warum nicht gleich bei der Eingabe prüfen
und das ohne VBA
[edit]
hmm, zu spät
gleiche Lösung wie von Sepp im Anhang

 

Cool,

Ihr seit super!

ich wusste dass es noch was einfacheres gibt, bin nicht drauf gekommen.
( ich bin halt blutiger Anfänger).

Gott sei Dank gibt es doch noch schlaue Leute.

Vielen tausend Dank ich werde den Code gleich ausprobieren und einbauen.

Suppy *grins

MFG

R. aus dem Saarland

 

Ich hab bis eben die Gültigkeitsprüfung nicht gekannt.

Cool, ich probiere es aus ob es damit funktioniert,

denn ich lasse das Tabellenblatt über ein UserForm ausfüllen.

( ich glaube mit VBA kann man es dort besser unterbringen) vielleicht?

Danke
R.

 

Hallo R.

wie sieht denn Deine Userform aus? Insbesondere interessiert der Teil, über den das Datum eingetragen werden soll.

Meine Glaskugel ist grad zur Reparatur - mehr wissen, als Du uns mitteilst, kann ich also nicht...

Grüße
EarlFred

 

Hallo Sepp,EarlFred....

dein Code ist voll ok. und sehr einfach

doch warum funktioniert dieser Code nicht wenn ich das Datum per Userform in die Zelle eingeben lasse?

Bitte um Hilfe, wäre seher Dankbar

als Anlage eine Abgespeckte Datei
1. Eingabe Formular öffnen
2. Datum eingeben
3. OK
4. Datumsknopf Prüfen drücken

P.S. Chris: vielleich weist auch Du Rat?

 

ups! war das schon online? habe noch die Datei angehängt!

 

Hallo R.

probier mal folgenden Code in der Userform:

Code:

 

Hallo EarlFred

ich hab´s Dank Deinem Code hin gekriegt.
(Bin ganz stolz auf mich, als VBA Neuling). ich hatte die Hoffnung schon bald aufgegeben.

hab die Datei als Anhang beigefügt. ( heißt glaub ich gepostet?)
vielleicht hat irgendwann einmal jemand das gleiche Problem , und somit dann eine Hilfe.

Ich möchte mich an dieser Stelle bei allen Bedanken die mir geholfen haben.

( endlich kann ich wieder gut schlafen ) ich mach jetzt an diesem Problem schon gut 4 Tage herum.

Dank Euch ist es, denk ich gelöst.
Ich werde nun den Code in die große Excel Datei einfügen und einmal ausprobieren ob es da auch geht

Viele Grüße
R.

 

Hallo R.,

prima, wenn Deine Sorgen jetzt verschwunden sind - dafür ist ein Forum ja da. *wink.gif*

Es sei an dieser Stelle auch mal gesagt: Bei so einer tollen, freundlichen Rückmeldung von Dir macht das Helfen Spaß!

Grüße
EarlFred