Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kalender

Forumthread: Kalender

Kalender
26.05.2002 20: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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kalender
26.05.2002 21: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


Code eingefügt mit Syntaxhighlighter 1.12


Anzeige
Re: Kalender
26.05.2002 21:43:09
Maria
Klapp...Ist tut mir leid, ich kann nicht viel Deutsch.
Aber....Viel Dank
Hat mir geholfen
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige