Kalender

Forumthread: Kalender
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Kalender

Kalender

26.05.2002 22:25:12

Maria

Bei Klick von Schaltflächen soll folgende Funktionen:
Eingabeaufforderung zur Eingabe eines neuen Jahres.
Das Eingabeformat muß vierstellig sein (z.B. 2002).
Danke

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Kalender

26.05.2002 23:03:02

Ramses
Re: Kalender

26.05.2002 23:43:09

Maria

Re: Kalender

26.05.2002 23:03:02

Ramses

Hallo Maria,

... und dann?
Ein bischen mehr Information und/oder in vielleicht anderer Form. DU willst schliesslich ja was,... oder?

Sub Insert_Year()
Dim InYear As Variant
InYear = InputBox("Geben Sie die Jahreszahl vierstelling ein", "Neues Jahr", Format(Now(), "YYYY"))
If InYear = "" Then
    MsgBox ("Kein Eingabe erfolgt")
ElseIf Len(InYear) < 4 Or Len(InYear) > 4 Then
    MsgBox ("Die Jahreszahl ist nicht vierstellig")
ElseIf Not IsNumeric(InYear) Then
    MsgBox ("Die Eingabe ist keine Zahl")
End If
Range("A1") = InYear
End Sub