Liebe Spezialisten,
habe eine Maske erstellt, bei der zunächst Namen aus einem Listenfeld ausgewählt werden und dann ausgewählte Daten betrachtet,
Private Sub CommandButton1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
If ListBox1.ListIndex = -1 Then Exit Sub
Worksheets(12).Cells(zeile, Spalte + 11) = Me.TextBox5
If Me.ComboBox1 <> "" And IsNumeric(Me.ComboBox1) Then Worksheets(12).Cells(zeile, Spalte + 9) = CDbl(Me.ComboBox1)
If Me.ComboBox2 <> "" And IsNumeric(Me.ComboBox2) Then Worksheets(12).Cells(zeile, Spalte + 10) = CDbl(Me.ComboBox2)
End Sub
Private Sub CommandButton2_Click()
Unload UserForm3
End Sub
Private Sub ListBox1_Click()
Spalte = 2
zeile = (ListBox1.ListIndex + 2)
Me.TextBox1 = Worksheets(12).Cells(zeile, Spalte)
Me.TextBox2 = Worksheets(12).Cells(zeile, Spalte + 1)
Me.TextBox3 = Worksheets(12).Cells(zeile, Spalte + 2)
Me.TextBox4 = Worksheets(12).Cells(zeile, Spalte + 8)
Me.TextBox5 = Worksheets(12).Cells(zeile, Spalte + 11)
Me.ComboBox1 = Worksheets(12).Cells(zeile, Spalte + 9)
Me.ComboBox2 = Worksheets(12).Cells(zeile, Spalte + 10)
End Sub
Private Sub UserForm_Initialize()
Me.ComboBox2.AddItem "1"
Me.ComboBox2.AddItem "1,5"
Me.ComboBox2.AddItem "2"
Me.ComboBox2.AddItem "2,5"
Me.ComboBox2.AddItem "3"
Me.ComboBox2.AddItem "3,5"
Me.ComboBox2.AddItem "4"
Me.ComboBox2.AddItem "4,5"
Me.ComboBox2.AddItem "5"
Me.ComboBox2.AddItem "5,5"
Me.ComboBox2.AddItem "6"
Me.ComboBox1.AddItem "1"
Me.ComboBox1.AddItem "1,5"
Me.ComboBox1.AddItem "2"
Me.ComboBox1.AddItem "2,5"
Me.ComboBox1.AddItem "3"
Me.ComboBox1.AddItem "3,5"
Me.ComboBox1.AddItem "4"
Me.ComboBox1.AddItem "4,5"
Me.ComboBox1.AddItem "5"
Me.ComboBox1.AddItem "5,5"
Me.ComboBox1.AddItem "6"
End Sub
beziehungsweise bearbeitet werden können.
Problem: Die Reihenfolge der Namen im Listenfeld stimmt nicht mit der im Arbeitsblatt überein. Beispiel - der siebte Name im Listenfeld müsste entsprechend des Arbeitsblattes (siehe unten) eigentlich "Hauser" sein. Die zugehörigen Daten rechts werden auch korrekt angezeigt. Vermutlich muss ich das Listenfeld zunächst leeren und neu laden. Kann mir da jemand auf die Sprünge helfen? Habe den Code angehängt.
|