ich habe das Problem, das nach dieser Routine (siehe unten) Listbox Eontrage nicht auswählbar sind. Wie gesperrt. Was kann da sein Problem sein ?
Routine:
Sheets("Suchen").Select
Sheets("Suchen").Cells(1, 11) = "x"
Range("B7:L150").Select
Selection.Clear
Range("A7").Select
b = 6
Application.ScreenUpdating = False
kennerda = 0
aBlatt = Sheets("suchen").Range("Q3")
For t = 4 To 690
If Sheets(aBlatt).Cells(t, 2) = "" Then Exit For
Zeilepruef = t
If Sheets(aBlatt).Cells(t, 11) = "Nicht erhalten" Then
b = b + 1
Sheets(aBlatt).Select
Range("A" & t & ":K" & t).Select
Selection.Copy
Sheets("Suchen").Select
Range("B" & b).Select
ActiveSheet.Paste
Range("B1").Select
Range("B1").Select
End If
Next t
If b = 6 Then
Application.ScreenUpdating = True
MsgBox "Kein Artikel gefunden", vbOKOnly
Sheets("Suchen").Cells(1, 11) = "x"
Sheets("suchen").Cells(3, 3) = ""
Sheets("Suchen").Cells(1, 11) = ""
Sheets("Suchen").Select
Application.ScreenUpdating = True
Range("B3").Select
End
End If
Application.ScreenUpdating = True
Sheets("Suchen").Select
Sheets("suchen").Cells(3, 3) = ""
Sheets("Suchen").Cells(1, 11) = ""
Range("B3").Select
End Sub