Labels füllen

Sub get_data()
Dim a As Long
Dim b As Integer
Dim counter As Integer
With Worksheets(ComboBox1.Value)
'get the correct column for the year
For b = 5 To 105
If .Cells(1, b) = ComboBox3.Value Then Exit For
Next
b = b - 1
'get the correct line for feed data
For a = 2 To 65536
If IsEmpty(.Cells(a, 1)) = True Then
Exit For
ElseIf .Cells(a, 1).Value = ComboBox2.Value Then
For counter = 1 To 8
Controls(.Cells(a, 3).Value & "_" & .Cells(a, 2).Value & "_" & counter).Value = .Cells(a, b + counter).Value 'hier Fehler
Next
End If
Next
End With
End Sub