Variable Wert übergeben

Forumthread: Variable Wert übergeben

31.05.2006 12:58:29

Bernd

Hallo Leute,
wie kann ich eigentlich in meinem Makro einbauen, dass ein Fenster mit Text erscheint und der User dann ein Datum eingeben kann. Dieses Datum wird dann einer Variablen zugewiesen und ich kann diesen Wert wiederum einer Zelle zuweisen und 2 Tage abziehen.
Bsp.:
"Bitte das Datum eingeben (tt.mm.jjjj)"
Jetzt soll dieses Datum minus 2 Tage in Zelle "xy" erscheinen.
vielen dank!!
Gruß
Bernd

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Variable Wert übergeben

31.05.2006 13:07:39

UweD
AW: Variable Wert übergeben

31.05.2006 13:16:13

Bernd
AW: Variable Wert übergeben

31.05.2006 13:24:35

UweD
Danke!

31.05.2006 13:43:56

bernd

AW: Variable Wert übergeben

31.05.2006 13:07:39

UweD

Hallo
Hier ein Beispiel für A1


Sub datum()
Dim Dat As Date
Dat = InputBox("Bitte das Datum eingeben (tt.mm.jjjj)", "Eingabe", Date)
ActiveSheet.Range("A1") = Dat - 2
End Sub

Gruß UweD
(Rückmeldung wäre schön)

AW: Variable Wert übergeben

31.05.2006 13:16:13

Bernd

Klasse, funktioniert!
Wenn ich später mal Monate oder Jahre abziehen möchte, wie gebe ich das dann ein?
Gruß
Bernd

AW: Variable Wert übergeben

31.05.2006 13:24:35

UweD

Hallo
so z.B.


Sub datum()
Dim Dat As Date, Neu As Date, D%, M%, Y%
D = -2 'Tage
M = -1 'Monate
Y = 0 'Jahre
Dat = InputBox("Bitte das Datum eingeben (tt.mm.jjjj)", "Eingabe", Date)
Neu = DateSerial(Year(Dat) + Y, Month(Dat) + M, Day(Dat) + D)
ActiveSheet.Range("A1") = Neu
End Sub

Gruß UweD
(Rückmeldung wäre schön)

Danke!

31.05.2006 13:43:56

bernd

...für Deine Hilfe. Funktioniert tadellos

Forumthread: Variable Wert übergeben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread