Listbox Markierte Zellen

Private Sub CommandButton1_Click()
Dim Lesen1 As String
Dim SuchK As Range
Dim nächste As Integer
Dim zeile As Long
'Eingabe der zu suchenden Kundennummer
Lesen1 = TextBox2
'Kundennummer finden in Spalte 5 und die nächste Zelle Markieren
Set SuchK = Range("E1:E65500").Find(Lesen1, LookAt:=xlWhole)
If Not SuchK Is Nothing Then
nächste = _
Application.WorksheetFunction.CountA _
(Range(Cells(SuchK.Row, 5), Cells(SuchK.Row, 256)))
Cells(SuchK.Row, 5 + 1).Select
Else
MsgBox "KuNr.: " & Lesen1 & " nicht gefunden!", vbCritical, "Fehler!"
End If
'Auswerten ob in der Ersten Zelle nach Kundennummer überhaubt etwas steht
If ActiveCell  "" Then
'Zellen Markieren die ein Eintrag enthalten
With ActiveCell
If Cells(.Row, Columns.Count).End(xlToLeft).Column > .Column Then Range(.Cells, Cells(.Row, _
Columns.Count).End(xlToLeft)).Select
End With
Else
MsgBox "Rechnungen sind nicht vorhanden!", vbCritical, "Fehler!"
End If
ListBox1 = ActiveCell
End Sub