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