Zugriff verweigert
26.01.2013 20:47:56
Jürgen
mittels dem nachfolgendem Code möchte ich eine Suchfunktion realisieren und sie findet wohl auch etwas.
Wenn das Ergebnis aber in die mehrspaltige ListBox1 eingeschrieben werden soll, kommt immer die Fehlermeldung "Zugriff verweigert".
Was mache ich hier falsch.
Anmerken muß ich hierzu noch, dass die ListBox1 zu diesem Zeitpunkt aber schon mit Daten gefüllt ist.
Das Einfügen des Befehls "ListBox1.Clear" brachte die Fehlermeldung "Nicht näher bezeichneter Fehler".
Private Sub CommandButton1_Click()
Dim begriff As String, zeile As Long, c As Range, firstAddress As String, fund As Long
begriff = TextBox1
zeile = 0
ListBox1.Clear ' "Nicht näher bezeichneter Fehler".
With Sheets("Datenbank").Range("a5:AA2000")
Set c = .Find(begriff, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
fund = c.Row
ListBox1.AddItem zeile ' "Zugriff verweigert"
ListBox1.List(zeile, 0) = Cells(fund, 1)
ListBox1.List(zeile, 1) = Cells(fund, 6)
ListBox1.List(zeile, 2) = Cells(fund, 18)
ListBox1.List(zeile, 3) = Cells(fund, 31)
zeile = zeile + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Kann mir hier jemand helfen?