von Groß in groß

Private Sub ListBox_befüllen()
Dim v3
v3 = Range("A2")
Range("A5").Select
ListBox1.Clear
Dim Zeile
Zeile = 0
Dim Anzahl
Anzahl = 0
Do
Weiter:
ActiveCell.Offset(0, 200).Select
Dim v5
v5 = Range("A2")
On Error GoTo Ende
Cells.Find(What:=v3, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
aZelle = ActiveCell.Row
If ActiveCell.Column > 6 Then GoTo Weiter
If ActiveCell = v5 Then Exit Do
Anzahl = Anzahl + 1
ListBox1.AddItem aZelle
TextBox3.Text = Cells(aZelle, 4)
ListBox1.List(Zeile, 0) = Cells(aZelle, 1)
ListBox1.List(Zeile, 1) = Cells(aZelle, 5)
ListBox1.List(Zeile, 2) = Cells(aZelle, 6)
ListBox1.Height = 80
ListBox1.BorderStyle = fmBorderStyleSingle
Zeile = Zeile + 1
Loop
End Sub