Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1684to1688
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
Eingaben aus Text Box untereinander schreiben
16.04.2019 17:58:22
Felix
Hallo,
Bei mir sollen sich Textboxen öffnen. In die erste Wird eine Zahl eingegeben und dann nur noch Wörter.
Mein Code funktioniert so weit nur denke ich dass man das ganze auch deutlich kürzer machen _ kann. Dafür ist aber mein VBA Wissen zu begrenzt. Kann mir jemand helfen?

Sub KriterienEintragen()
'Eingabe der Namen der Kriterien
'Definitionen
Dim strKriterienEintrag As String
Dim intKriterienEbene As Integer
'Eingabefelder öffnen und bei keiner weiteren Eingabe schließen
intKriterienEbene = InputBox("Bitte Kriterienebene eintragen.")
Sheets("Startseite").Range("L3") = intKriterienEbene
strKriterienEintrag = InputBox("Bitte Kriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B1") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 1. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B3") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 2. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B4") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 3. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B5") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 4. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B6") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 5. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B7") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 6. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B8") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 7. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B9") = strKriterienEintrag
strKriterienEintrag = InputBox("Bitte 8. Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
Sheets("Startseite").Range("B10") = strKriterienEintrag
If strKriterienEintrag = "" Then Exit Sub
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Eingaben aus Text Box untereinander schreiben
16.04.2019 18:16:58
onur

Sub KriterienEintragen()
'Eingabe der Namen der Kriterien
'Definitionen
Dim strKriterienEintrag As String
Dim intKriterienEbene
With Sheets("Startseite")
'Eingabefelder öffnen und bei keiner weiteren Eingabe schließen
intKriterienEbene = InputBox("Bitte Kriterienebene eintragen.")
.Range("L3") = intKriterienEbene
strKriterienEintrag = InputBox("Bitte Kriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
.Range("B1") = strKriterienEintrag
For i = 1 To 8
strKriterienEintrag = InputBox("Bitte " & i & ". Subkriterium eingeben.")
If strKriterienEintrag = "" Then Exit Sub
.Cells(i + 2, 2) = strKriterienEintrag
Next i
End With
End Sub

Anzeige
AW: Eingaben aus Text Box untereinander schreiben
16.04.2019 19:26:07
Felix
Danke das macht es doch ansehnlicher...

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige