Userform
07.11.2014 13:52:07
H.Peter
ich möchte mittels einer Userform Daten abfragen für die weitere Berechnung.
Ein Teil der Daten wird über Input Box erfasst, der andere Teil über Combo Boxen.
Als Beispiel habe ich den Bereich Bearbeiter und an die Zelle "Routine".Range"A10" soll
der Zähler zurückgegeben werden, der dem gewählten Bearbeiter enspricht.
Leider funktioniert meine User-Form nicht.
Zum einen bringt das Makro am Ende eine Fehlermeldung, außerdem wird
der gewünschte Zähler aus der Combo Box "Benu" nicht zurück gegeben.
Gibt es für die Ermittlung des Zählers noch eine andere Möglichkeit als in dem
beigefügten Makro? Das fertige Programm hat ca. 25 Bereiche, die mit Combo-
boxen abgefragt werden müssen und einen Zähler erfordern.
Private Sub Abbrechen_Click()
Abfrage.Hide
End Sub
Private Sub Schließen_Click()
Unload Me
End Sub
Private Sub Userform_Initialize()
'Abfrage = UserForm
Abfrage.Show
Bea = CStr(Bearbeiter.Text)
Select Case Bearbeiter
Case "R.Becks", Z = 1
Case "H.-P.Schreiber", Z = 2
Case "A.Kahrmann", Z = 3
Case "Mareike Schnieder", Z = 4
Case "C.Schreiber", Z = 5
End Select
Worksheets("Routine").Range("A10").Value = Z
Worksheets("Routine").Range("I16").Value = Me.Spannweite.Value
Sheets("Deckblatt").Select
Cells(9, 1).Value = Postleitzahl
Cells(9, 3).Value = Schneelast
Cells(9, 5).Value = Projektname
End Sub
Hier noch einmal die Datei zum besseren Verständnis:
https://www.herber.de/bbs/user/93617.xlsm