Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
120to124
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige