Office: [Excel07] Suchergebnis aus ListBox löschen und Suche akt.

Hallo,

ich stehe vor einem Problem.
Vorweg muss ich zugeben, dass ich vorher nie mit VBA oder Ähnlichem beschäftigt habe und mir die Lösung bisher aus Online-Tutorials und I-Net recherche zusammengebastelt habe. Deshalb sind bestimmt einige Sachen eher Suboptimal :-D

Nun zu meinem Problem:
Ich habe eine Datenbank mittels UserForm erstellt und dieses UserForm auch mit einer Suchfunktion versehen, welche die Ergebnisse in einer Listbox ausgibt. Klickt man nun einen Datensatz in der Listbox an, so wird der Inhalt wieder in das Eingabeformular übertragen, so dass man diese Eingaben auch ändern kann (das Ändern funktioniert).
Außerdem soll es möglich sein den markierten Datensatz aus der Datenbank und dann auch den Eintrag aus der Listbox zu löschen.
Das Löschen an sich funktioniert auch an beiden Stellen, nur ist danach die Suche nicht mehr verwertbar, wenn ich einen Ergebnis aus der Mitte sder Suche lösche ( Ich nehme an, da ich den ListIndex durcheinander bringe).
Eine einfache für mich ausreichende Lösung wäre es, wenn nach dem Löschen automatisch die Suchprozedur erneut ausgeführt werden würde. Ist das irgendwie möglich, oder müsste ich die Suchprozedur nochmals als Unterprodzedur in die Löschprozedur übernehmen?

Hier mal die beiden Codes:

Code:

Private Sub CommandButton1_Click()                                          'Suchfunktion
Dim rng As Range
Dim strFirst As String
Dim vtmp() As Long
Dim IntC As Integer

Marc_A:
If Len(Trim(TextBoxSuch)) = 0 Then Exit Sub                                 'Bei leerer Suche Routine verlassen
ListBox2.Clear                                                              'Alte Suchergebnisse löschen
For IntC = 1 To 8                                                           'Eingabefelder leeren
   Controls("TextBox" & IntC) = ""
Next
ReDim vtmp(0)

With Sheets("Tabelle1")
   Set rng = .Range("A:K").Find(What:=TextBoxSuch, Lookat:=xlPart)          'Suchbereich festlegen
   If Not rng Is Nothing Then                                               'Wenn Suche erfolgreich
      strFirst = rng.Address
      Do
         If Not (IsNumeric(Application.Match(rng.Row, vtmp, 0))) Then
            ReDim Preserve vtmp(UBound(vtmp) + 1)
            vtmp(UBound(vtmp)) = rng.Row
            ListBox2.AddItem .Cells(rng.Row, 1)                             '
            ListBox2.List(ListBox2.ListCount - 1, 1) = .Cells(rng.Row, 2)   '   Suchergebnis
            ListBox2.List(ListBox2.ListCount - 1, 2) = .Cells(rng.Row, 3)   '   in
            ListBox2.List(ListBox2.ListCount - 1, 3) = .Cells(rng.Row, 4)   '   Ausgabebox
            ListBox2.List(ListBox2.ListCount - 1, 4) = .Cells(rng.Row, 5)   '   übernehmen
            ListBox2.List(ListBox2.ListCount - 1, 5) = .Cells(rng.Row, 6)   '
            ListBox2.List(ListBox2.ListCount - 1, 6) = .Cells(rng.Row, 8)   '
            ListBox2.List(ListBox2.ListCount - 1, 7) = .Cells(rng.Row, 9)   '
            ListBox2.List(ListBox2.ListCount - 1, 8) = rng.Row              '
         End If
         Set rng = .Range("A:K").FindNext(rng)                              ' Nächste Übereinstimmung suchen
      
      Loop While Not rng Is Nothing And rng.Address <strFirst> 0 Then
   ListBox2.ListIndex = 0
Else
   ListBox2.AddItem "Kein Eintrag!"                                         ' Falls keine Übereinstimmung erscheint: Kein Eintrag
End If
Set rng = Nothing
End Sub

Code:

Private Sub CommandButton2_Click()                          ' Löschen des in Suchergebnis ausgewählten Datensatzes
Dim lngR As Long
With ListBox2
   If .ListCount = 0 Then Exit Sub
   If .List(.ListIndex, 0) = "" Then Exit Sub
   lngR = CLng(.List(.ListIndex, 8))
   Rows(lngR).Delete
    For IntC = 1 To 8                                                           'Eingabefelder leeren
        Controls("TextBox" & IntC) = ""
    Next
End With
ListBox2.RemoveItem ListBox2.ListIndex
End Sub

Danke im Voraus.

Gruß
Christian