Herbers Excel-Forum - das Archiv

Inputbox mit mehreren Feldern?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ SpinButton ⇒ UserForm ⇒ InputBox
Bild

Betrifft: Inputbox mit mehreren Feldern?
von: Tom
Geschrieben am: 07.10.2003 14:29:58
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

Bild

Betrifft: AW: Inputbox mit mehreren Feldern?
von: GraFri
Geschrieben am: 07.10.2003 15:30:42
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
Bild

Betrifft: AW: Inputbox mit mehreren Feldern?
von: Tom
Geschrieben am: 07.10.2003 15:49:04
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
Bild

Betrifft: AW: Inputbox mit mehreren Feldern?
von: GraFri
Geschrieben am: 07.10.2003 16:07:54
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
Bild

Betrifft: Super - herzlichen Dank! (o.T.)
von: Tom
Geschrieben am: 07.10.2003 16:39:12
+
 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Inputbox mit mehreren Feldern?"
In eine InputBox eingegebene Daten in Elemente aufteilen Laufwerk über InputBox auswählen
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen
Mit InputBoxes Zeilennummern abfragen und Summe bilden Suchbegriff über InputBox abfragen und Fundzeile löschen
Druckstart- und endzeilen über InputBox abfragen Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen
Über InputBox festzulegenden Bereich kopieren Numerische InputBox-Werte fortlaufend in eine Spalte eintragen