Excellent

Hallo Forum!!!

In einer UserForm befindet sich ein Listenfeld, in dem werden Suchtreffer angezeigt, es werden entweder alle vorhandenen Datensätze oder einzelne Suchtreffer angezeigt. Mit einem Klick auf einem Datensatz kann ich diesen dann per folgendem Code löschen.

Der 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

Wie kann ich gleichzeitig mehrere Datensätze markieren und auch löschen!

Wer weiß Rat? besten Dank!

Gruß Frank H!

Beitrag wurde am am 25.10.2008 vom Verfasser gelöscht