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
|