Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
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
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox mit mehreren Feldern?

Inputbox mit mehreren Feldern?
07.10.2003 14:29:58
Tom
Hallo Excel-Team,

wie kann ich eine Inputbox mit mehreren auszufüllenden Feldern erstellen?
Ich benötige die Möglichkeit Daten so einzugeben: Monat/Jahr, wobei ich Monat und Jahr später als zwei extra IntegerVariablen benötige.
Es soll in etwa so aussehen:

"Bitte geben Sie Start- und Endtermin ein (z.B. 03/03 bis 12/03)"
"von" Inputfeld1 "/" Inputfeld2 "bis" Inputfeld3 "/" Inputfeld4

Geht das irgendwie?

Danke, TomTom

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

Betreff
Datum
Anwender
Anzeige
AW: Inputbox mit mehreren Feldern?
07.10.2003 15:30:42
GraFri
Hallo

Ich würde es so lösen. Beispiel für eine Datumseingabe (Monate-Jahr). Falls genauere Eingabe (Tag-Monat-Jahr) erwünscht, nochmal melden.



'————————————————————————————————
'   07/10/2003
'©  Ing.Friedrich Grath
'@  grath.fritz@ aon.at
'————————————————————————————————

'In die UserForm ein Spinbutton (Name: SpinMonat, Max=30000, Min=1) und
'ein Textxfeld (Name: TxtMonat) links davon plazieren. Die Auswahl des
'Datums (Monat, Jahr) erfolgt über das Spinbutton. Die dazugehörigen
'Werte sind in den Variablen Monat und Jahr gespeichert.


Dim Jahr        As Integer
Dim Monat       As Integer
Dim Datum       As Date

' Initialisierung
Private Sub UserForm_Initialize()
    Jahr = Int(Format(Now, "yyyy"))
    SpinMonat = Jahr * 12 + Int(Format(Now, "mm"))
End Sub

' Monat einstellen vom Drehfeld
Private Sub SpinMonat_Change()
    Jahr = Int(SpinMonat / 12)       'Jahr
    Monat = SpinMonat Mod 12         'Monat
    
    Datum = DateSerial(Jahr, Monat, 1)
    TxMonat = Format(Datum, "mm/yyyy")
End Sub


     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri
Anzeige
AW: Inputbox mit mehreren Feldern?
07.10.2003 15:49:04
Tom
Hallo GraFri,

danke für die Hilfe, habe es noch nicht ganz verstanden, aber werde es probieren!

Darf ich Dich deswegen ggf. bei Nachfragen(morgen oder übermorgen) über Deine mail-Adresse(grath.fritz@aon.at) kontaktieren oder ist Dir der Forumsweg lieber?

Danke schonmal,
Tomtom
AW: Inputbox mit mehreren Feldern?
07.10.2003 16:07:54
GraFri
Hallo

Habe kein Problem damit. Falls weitere Fragen auftauchen, oder ich dir beim Aufbau eines Programmes behilflich sein kann, dann mail mir die Datei und beschreibe, was du willst. Du wirst staunen, was man mit Excel alles bewerkstelligen kann.

mfg, GraFri
Super - herzlichen Dank! (o.T.)
07.10.2003 16:39:12
Tom
+

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
4
6