Hallo,

ich habe eine Listbox2. Diese fülle ich mit Namen aus einem anderen Blatt. Es kann vorkommen das sich Namen doppeln. Wie kann ich den doppelten Namen eine zusätzliche Nummer zuweisen damit diese eindeutig identifiziert werden können..

Bsp Aktuell Listbox2

Leonberg

Rutesheim

Leonberg

Leonberg

Soll Listbox2:

Leonberg

Rutesheim

Leonberg 1

Leonberg 2

Also sozusagen.. Wenn Name in Listbox2 schon vorhanden: Füge Zahl hinter Bezeichnung hinzu. Muss auch nicht in einer anderen Spalte oder so sein

 Grüße Philipp

 Private Sub CommandButton8_Click()
Dim i As Long
   
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                Me.ListBox2.AddItem .List(i)
          '      .RemoveItem i
                Exit For
            End If
        Next
    End With
End Sub