Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox: Gleiche Einträge sollen eine zusätzliche Nummer erhalten
21.01.2015 13:52:35 Philipp
NotSolved
22.01.2015 08:35:10 Gast32599
NotSolved
22.01.2015 13:22:27 Amicro2000
NotSolved

Ansicht des Beitrags:
Von:
Philipp
Datum:
21.01.2015 13:52:35
Views:
658
Rating: Antwort:
  Ja
Thema:
Listbox: Gleiche Einträge sollen eine zusätzliche Nummer erhalten

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox: Gleiche Einträge sollen eine zusätzliche Nummer erhalten
21.01.2015 13:52:35 Philipp
NotSolved
22.01.2015 08:35:10 Gast32599
NotSolved
22.01.2015 13:22:27 Amicro2000
NotSolved