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