Kalender

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox


Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Kalender
von: Maria
Geschrieben am: 26.05.2002 - 20:25:12

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

Re: Kalender
von: Ramses
Geschrieben am: 26.05.2002 - 21:03:02

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


Code eingefügt mit Syntaxhighlighter 1.12


nach oben   nach unten

Re: Kalender
von: Maria
Geschrieben am: 26.05.2002 - 21:43:09

Klapp...Ist tut mir leid, ich kann nicht viel Deutsch.
Aber....Viel Dank
Hat mir geholfen

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Kalender"