Problem bei Excel Makro

[Jisma]

Hallo Jungs und Mädels,

leider verzweifle ich gerade an einem Excel Makro das ich für eine Kundendatenbank benötige.

Das Problem ist folgendes, sobald ich einen neuen Eintrag einstellen lasse per Button funktioniert das Astrein, er fängt bei Kunde 1 an und geht dann sauber durch,
allerdings sobald ich einen Kunden lösche.. z.B. Kunde 5 und meine Einträge gehen schon bis Kunde 28 und ich mache dann einen neuen Eintrag fängt er bei Kunde 28 an
so dass ich Kunde 28 dann zwei mal habe, wo ist hier der Fehler? 
Normal müsste er doch dann wieder einen Eintrag für Kunde 5 setzen oder ? bzw, besser wäre es wenn er beim löschen von Kunde 5 gleich wieder in die Spalte Kunde 5 ohne einträge einträgt, oder in den Zellen bei Kunde 5 dann gelöscht einträgt.

Wer kann mir helfen? Hier der Code: 

Code:

Private Sub CommandButton3_Click()
  Dim lZeile As Long
 
    'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,
    'erstellen wir einen neuen Eintrag in der ListBox und markieren
    'diesen, damit der Benutzer die Daten eintragen kann
   
    lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die überschriftrn
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle4.Cells(lZeile, 1).Value)) <> ""
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    Loop

    'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Tabelle1
    'Neuen Eintrag in die Tabelle1 schreiben, Spalte ID muss gefüllt sein, damit
    'unsere Routinen die Zeile wiederfinden!
   
    Tabelle4.Cells(lZeile, 1) = CStr("Kunde " & lZeile - 1)
    'Tabelle4.Cells(lZeile, 21) = CStr(0 & lZeile)
   
    'Tabelle4.Cells(lZeile, 20).FormulaR1C1 = "=SVERWEIS(RC14;Fabrikat!A17:B108;2;FALSCH)"
   
    'Und neuen Eintrag in die UserForm eintragen
    ListBox1.AddItem CStr("Kunde " & lZeile - 1)
   
    'Den neuen Eintrag markieren mit Hilfe des ListIndexes
    ListBox1.ListIndex = ListBox1.ListCount - 1
    'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
   
End Sub

'Löschen Schaltfläche Ereignisroutine
Private Sub CommandButton4_Click()
  Dim lZeile As Long
    If MsgBox( _
      prompt:="Löschen?", _
      Buttons:=vbQuestion + vbYesNo _
      ) = vbNo Then Exit Sub
 
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -1 Then Exit Sub
 
    'Zum Löschen benötigen wir die Zeilennummer des ausgewählten Datensatzes
    lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    Do While Trim(CStr(Tabelle4.Cells(lZeile, 1).Value)) <> ""
   
        'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
        If ListBox1.Text = Trim(CStr(Tabelle4.Cells(lZeile, 1).Value)) Then
           
            'Eintrag gefunden, die ganze Zeile wird nun gelöscht
            Tabelle4.Rows(CStr(lZeile & ":" & lZeile)).Delete
           
            'Tabelle4.Cells(lZeile, 1) = CStr("Kunde " & lZeile)
            'Tabelle4.Cells(lZeile, 21) = CStr(0 & lZeile)
           
            'Die ListBox muss nun neu geladen werden!
            Call UserForm_Initialize
            If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
           
            Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
           
        End If
   
        lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    Loop
   
End Sub

[Kuwer]

Hallo Jens,

Private Sub CommandButton3_Click()

    'Wenn der Benutzer einen neuen Eintrag erzeugen möchte,

    'erstellen wir einen neuen Eintrag in der ListBox und markieren

    'diesen, damit der Benutzer die Daten eintragen kann

    With Tabelle4.Cells(Rows.Count, 1).End(xlUp)

      .AutoFill .Resize(2), Type:=xlFillDefault

      ListBox1.AddItem .Offset(1).Value

    End With

    ListBox1.ListIndex = ListBox1.ListCount - 1

End Sub

Gruß Uwe

[Jisma]

Hallo Uwe,

funktionier sehr gut, vielen Dank.