Löschen
26.07.2003 12:57:14
Ivan
hallo alle
wenn ich in listbox1 eine zeile markiere soll diese gelöscht werden!
das funkt auch,aber leider wird die falsche zeile gelöscht!!
frage was muß ich ändern??
'Löschen
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Sheets("DB").Activate
Dim intRow As Integer
If MsgBox("Soll der ausgewählte Beitrag wirklich gelöscht werden ?", 36, "") = vbNo Then Exit Sub
If ListBox1.Value <> "" Then
intRow = ListBox1.ListIndex + 1
Sheets("DB").Rows(intRow).Delete Shift:=xlUp
End If
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub
gruss
ivan