Option Explicit 'alter Stand von ListBox1_Click in pizza04: ''--piz04 ''Private Sub ListBox1_Click() ''MsgBox ListBox1.ListIndex ''End Sub '--piz05 (ListBox1_Clickwurde schon in pizza04 angelegt, siehe oben) Private Sub ListBox1_Click() Dim Co As Long Co = ActiveCell.Column If frmJob.ListBox1.ListIndex > 0 Then [PNum] = frmJob.ListBox1.ListIndex [PNam] = frmJob.ListBox1.Text 'kann ich die nachfolgenden optionen sichtbar machen.... frmJob.tbQuantperjob.Visible = True frmJob.tbDays.Visible = True frmJob.OptionButton1.Visible = True frmJob.OptionButton2.Visible = True 'menge für ganze kampagne berechnen.... [Quantperday] = main.calcQuantperday(Co, [PNum]) [Daysforchange] = main.calcDaysforchange([PNum], [PreNum]) [quantperjob] = ([Days] - [Daysforchange]) * [Quantperday] frmJob.tbQuantperjob = CInt([quantperjob]) Else 'wenn nur titelzeile gewählt wurde, lieber (wieder) nachfolgende 'optionen unsichtbar machen.... frmJob.tbQuantperjob.Visible = False frmJob.tbDays.Visible = False frmJob.OptionButton1.Visible = False frmJob.OptionButton2.Visible = False End If End Sub '--piz05 Private Sub cmdCancel_Click() frmJob.Hide 'myCancelled bleibt also auf startwert (true) End Sub '--piz05 Private Sub cmdOK_Click() frmJob.Hide ' form auf jeden fall schon mal ausknipsen If [Days] < [Daysforchange] Then MsgBox "Geht nicht - Umstellzeit wäre länger als diese Kampagne! " Exit Sub ' also so dass mycancelled immer noch auf true bleibt! End If If frmJob.ListBox1.ListIndex <= 0 Then Exit Sub If [PNum] = [PreNum] Then Exit Sub ' erst wenn alle prüfungen überstanden, mycancelled auf false setzen.... myCancelled = False End Sub