Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

datum eingabe

datum eingabe
28.01.2004 00:28:18
Desaster
Hi, habe folgende probl.
habe 3 felder alle 3 felder sind datumseingaben.
wenn in feld 1 ein datum eingegeben wurde darf man in feld 2 erst dan ein datumeingeben wenn zwischen beiden felder 3 wochen liegen oder länger.
In feld 3 darf man ein datum eingeben wenn in feld 1 u. 2 eine datumseingabe erfolgt ist und zwischen feld 2 und 3 müssen auch 3 wochen liegen.
falls jemand versucht dennoch datum einzutragen den hinweis gibt feld2 oder feld3 das die folgende felder nicht eingegeben werden können da es den zwischen zeit nicht erfüllt.
Vielen dank

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

Betreff
Datum
Anwender
Anzeige
> Daten >Gültigkeit
28.01.2004 00:55:05
Josef Ehrensberger
Hallo ??
Das geht über > Daten > Gültigkeit!
Angenommen die Zellen sind "A1", "B1" und "C1",
dann markiere B1 + C1 und wähle

> Datum > gleich > =A1+21 > OK
Du kannst eine Eingabe- und eine Fehlermeldung
deklarieren, die den Benutzer darauf hinweist.
Gruß Sepp
sollte > gröser oder gleich > heisen! o. T.
28.01.2004 01:09:37
Josef Ehrensberger
/
AW: sollte > gröser oder gleich > heisen! o. T.
28.01.2004 07:47:14
Desaster
Hi,
kann man diese anfrage auch mit VBA lösen.
Würde mich darüber freuen
Vielen Dank für Euere unermüdliche Hilfe!
Desaster
AW: sollte > gröser oder gleich > heisen! o. T.
28.01.2004 11:55:08
Josef Ehrensberger
Hallo! (hast Du auch einen Namen?)
Ich verstehe zwar nicht warum Du eine VBA-Lösung willst,
wenn sich das auch mit Excel-Bordmitteln lösen lässt, aber bitte.


'in das Modul der Tabelle
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1,C1]) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
'Zellen "B1,C1" werden geprüft - anpassen
If Target.Address = "$B$1" Then
If Target < [A1] + 21 Then
MsgBox "Datum muss 3 Wochen nach (A1) liegen"
Target.Select
End If
End If
If Target.Address = "$C$1" Then
If Target < [B1] + 21 Then
MsgBox "Datum muss 3 Wochen nach (B1) liegen"
Target.Select
End If
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: sollte > gröser oder gleich > heisen! o. T.
28.01.2004 12:11:12
Desaster
klappt Prima
Danke dir Josef
Danke für die Rückmeldung! o.T.
28.01.2004 13:01:08
Josef Ehrensberger
/

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige