Mehrere Datensätze löschen
24.10.2008 21:49:00
Frank
In einer Userform befindet sich ein Listenfeld, in diesem werden alle Suchtreffer oder auch einzelne Suchtreffer angezeigt. Mit folgendem Code werden einzelne Datensätze nach erfolgtem Klick darauf gelöscht. Wie muss ich den Code erweitern, dass ich mehrere Datensätze gleichzeitig markieren kann um sie dann zu löschen? Zuvor sollte noch nachgefragt werden ob ich denn wirklich löschen will!
Mein Code:
Sub Datensatz_löschen()
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With FrmHinweise
.ListBox1.Clear
Sheets("Hinweise").Activate
i = 0
For lng = 3 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(lng, 2).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(lng, 2).Value
.ListBox1.Column(1, i) = Cells(lng, 3).Value
.ListBox1.Column(2, i) = Cells(lng, 4).Value
.ListBox1.Column(3, i) = Cells(lng, 5).Row
i = i + 1
Else
End If
Next lng
End With
FrmHinweise.Label4.Caption = FrmHinweise.Label1.Caption
FrmHinweise.Label5.Caption = FrmHinweise.Label2.Caption
FrmHinweise.Label6.Caption = FrmHinweise.Label2.Caption
Application.ScreenUpdating = True
Dim zelle As Range
Dim sBegriff As Date
sBegriff = CDate(TextBox1)
If sBegriff = 0 Then Exit Sub
Set zelle = Worksheets("Hinweise").Columns(2) _
.Find(sBegriff, LookAt:=xlWhole)
If zelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
zelle.Select
Selection.ClearContents
zelle.Offset(0, 1).Select
Selection.ClearContents
zelle.Offset(0, 2).Select
Selection.ClearContents
End If
ListBox1.Clear
FelderLöschen
End Sub
Wer kann helfen? Allen Helfern bereits jetzt mein allerherzlichster Dank!!!
Gruß Frank H.
Anzeige