Hallo, 

ich hab folgendes problem: 

in meiner ersten Zeile ist ein Bild.

In der 2. Zeile die überschriften (wie zb. Nummer, Datum usw.)

In der 3. Zeile beginnen die Einträge und habe Insgesamt 14. Spalten. 

Folgendes Problem:

Bei Listbox1_dblClick:

Hier löscht er mir alles richtig, außer die Letzte Zeile, die löscht er nicht, sondern eine Darunter. (Bsp ich klicke auf A15, er löscht dann A14) 

Bei: Delete_Click: 

Hier löscht er das Letzte ohne Probleme, jedoch in der Mitte löscht er immer eine Zeile darüber. (bsp ich klicke auf A:4, er löscht A3 ).

über jede Hilfe wäre ich Dankbar. 

Private Sub ListBoxFuellen(DieListbox As MSForms.ListBox, DerRange As Range)
    With DieListbox
        .ColumnCount = DerRange.Columns.Count
        .ColumnWidths = "180;0;75;0;0; 0; 0;0; 0;80;80;180;50;100"
        
        .List = DerRange.Value
    End With
End Sub



private Sub UserForm_Initialize()

Dim lngLetzte As Long
    With Sheets(1)
        lngLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
        ListBoxFuellen ListBox1, Blatt1.Range("A2:N" & lngLetzte)
    End With
End Sub



Private Sub Listbox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

  With Me.ListBox1
 MsgBox "Anzahl: " & .ListCount - 1 & " Index: " & .ListIndex
   If vbYes = MsgBox("Möchten Sie wirklich diesen Kunden löschen?", vbYesNo + vbCritical, "Nachfrage...") Then
    If .ListIndex > -2 Then .RemoveItem (.ListIndex)
     With ActiveSheet
        .Range(.Cells(ListBox1.ListIndex + 2, 1), .Cells(ListBox1.ListIndex + 2, 14)).Delete shift:=xlShiftUp
      End With
      End If
  End With




End Sub

Private Sub Delete_Click()


  With Me.ListBox1
 MsgBox "Anzahl von Kunden: " & .ListCount - 1 & " Index: " & .ListIndex
   If vbYes = MsgBox("Möchten Sie wirklich diesen Kunden löschen?", vbYesNo + vbCritical, "Nachfrage...") Then
    If .ListIndex > -2 Then .RemoveItem (.ListIndex)
     With ActiveSheet
        .Range(.Cells(ListBox1.ListIndex + 3, 1), .Cells(ListBox1.ListIndex + 3, 14)).Delete shift:=xlShiftUp
      End With
      End If
  End With
End Sub