Private Structure Rezept_Temp
        'TeachIn
        Dim Teachin As String
       Dim MK1Gew As Integer
 
Dim Rezept_Intern(16, 16) As Rezept_Temp

   Public Sub WertZuweisung()
        Dim Ma, Rez As Integer
        Dim temp As ComboItem
 
        temp = Me.cbEinstellungMaschine.SelectedItem
        Rez = Me.cbEinstellungRezepte.SelectedIndex + 1
 
        If Me.cbEinstellungMaschine.SelectedIndex >= 0 Then
            Ma = temp.Tag
        Else
            Exit Sub
        End If
 
        Select Case Rez
            Case 1
                If Me.Rezept_Intern(Ma, Rez).Teachin = "" Then
                    Me.cbTeachin.SelectedIndex = -1
                    Me.Zuweisung_Farbe_Text_Rezept()
                Else
                    Me.cbTeachin.SelectedItem = Me.Rezept_Intern(Ma, _
                      Rez).Teachin
                    Me.tbGewMK1.Text = Me.Rezept_Intern(Ma, Rez).MK1Gew                 
end sub

Private Sub UpdateWerte()
        Dim Ma, Rez As Integer
        Dim temp As ComboItem
 
        temp = Me.cbEinstellungMaschine.SelectedItem
        Rez = Me.cbEinstellungRezepte.SelectedIndex + 1
 
        If Me.cbEinstellungMaschine.SelectedIndex >= 0 Then
            Ma = temp.Tag
        Else
            Exit Sub
        End If
 
        Select Case Ma
            Case 1
               Me.Rezept_Intern(Ma, Rez).Teachin = Me.cbTeachin.SelectedItem
               Me.Rezept_Intern(Ma, Rez).MK1Gew = Me.tbGewMK1.Text

    Private Sub cbEinstellungRezepte_VisibleChanged(ByVal sender As Object, _
      ByVal e As System.EventArgs) Handles cbEinstellungRezepte.VisibleChanged
        Me.WertZuweisung()
    End Sub
 
    Private Sub cbEinstellungMaschine_SelectedIndexChanged(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      cbEinstellungMaschine.SelectedIndexChanged
        Me.WertZuweisung()
    End Sub
 
    Private Sub tbGewMK1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles tbGewMK1.TextChanged
        Me.UpdateWerte()
    End Sub
 
    Private Sub tbGewMK2_TextChanged(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles tbGewMK2.TextChanged
        Me.UpdateWerte()
    End Sub

mfg
rt