Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte Inputbox

Forumthread: Doppelte Inputbox

Doppelte Inputbox
22.11.2021 12:31:50
Nelinax
Hallo Miteinander,
ich lasse zwei Werte über Inputboxen in mein Arbeitsblatt übertragen.
Gibt es eine Möglichkeit die zwei Abfragen über eine einzige Inputbox zu machen oder benötige ich dafür immer ein Formular? 

Sub Start()
Dim Datum As Date
Dim Betreuung As Variant
Datum = Application.InputBox("Betrachtungszeitraum angeben?" & vbNewLine & "Form: MM.JJ")
If Datum = False Then
Exit Sub
Else
Sheets("Jahresdaten").Activate
Range("D3") = Datum
End If
Betreuung = Application.InputBox("Stunden für Betreuung angeben" & vbNewLine & "Form: 00,00")
If Betreuung = False Then
Exit Sub
Else
Sheets("Jahresdaten").Activate
Range("D37") = Betreuung
End If
Auswertung.Show
End 


Sub
Liebe Grüße :)
Nelinax
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte Inputbox
22.11.2021 12:52:01
UweD
Hallo
Theoretisch müsste es so gehen.

Sub Start()
Dim Eingabe As Variant, Datum As Date
Dim Betreuung As Variant
Eingabe = InputBox("Betrachtungszeitraum; und Stunden für Betreueung " & vbNewLine & "Form: MM.JJ; 00,00")
If Eingabe = False Then
Exit Sub
Else
Datum = Split(Eingabe, ";")(0)
Betreuung = Split(Eingabe, ";")(1)
Sheets("Jahresdaten").Activate
Range("D3") = Datum
Range("D37") = Betreuung
End If
'Auswertung.Show
End Sub
Aber auch in deiner Version wird das Datum nicht richtig verwendet.
Deshalb besser so

Eingabe = InputBox("Betrachtungszeitraum; und Stunden für Betreueung " & vbNewLine & "Form: TT.MM.JJ; 00,00")
LG UweD
Anzeige
AW: Doppelte Inputbox
22.11.2021 13:32:13
Nelinax
Hallo UweD und Danke für die fixe Hilfe, auch für den Tipp mit dem Datum.
Klappt Prima.
Liebe Grüße
Nelinax
Prima. Danke für die Rückmeldung. owT
22.11.2021 14:07:54
UweD
;

Beliebteste Forumthreads (12 Monate)

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