Variablendeklaration

Private Sub Einblenden()
'   einblenden der Steuerelemente für die Produkte
cmdabbrechen.Visible = True
cmdübernehmen.Visible = True
Lst_Produkte.Visible = True
With Lst_Produkte
.Height = 350
.Width = 590
.Top = 5.25
.Left = 5.25
End With
End Sub

Private Sub cmdabbrechen_Click()
'   ausblenden der Steuerelemente für die Produkte
Lst_Produkte.Visible = False
cmdabbrechen.Visible = False
cmdübernehmen.Visible = False
End Sub

Private Sub cmdübernehmen_Click()
Dim ByI As Byte
With Worksheets(cmdGitterroste.Tag)
For ByI = 1 To 12
Controls("txtArtikel" & ByI).Value = .Cells(cmdProfile.Tag, ByI)
Next ByI
End With
cmdabbrechen_Click
End Sub

Private Sub Lst_Produkte_Click()
If Lst_Produkte.ListIndex > -1 Then cmdProfile.Tag = Lst_Produkte.ListIndex + 2
cmdübernehmen.Enabled = Lst_Produkte.ListIndex <> -1
End Sub

Private Sub Fuellen_Listbox()
Dim aRow As Integer
Dim i As Integer
With Worksheets(cmdGitterroste.Tag)
aRow = .[C65536].End(xlUp).Row
For i = 2 To aRow
Lst_Produkte.AddItem .Cells(i, 1) & "  -  " & .Cells(i, 2) & "  -  " & .Cells(i, 4) & "  -  " & _
.Cells(i, 7)
Next i
End With
End Sub

Private Sub cmdGitterroste_Click()
Einblenden
Lst_Produkte.Clear
cmdGitterroste.Tag = ActiveControl.Caption
Fuellen_Listbox
cmdübernehmen.Enabled = False
End Sub