title image


Smiley Re: Wie
Hi blödmann :-)) (blöder Name)z.B. soPrivate Sub Command1_Click()Dim i, a, z, rDim suchtext As StringDim vergleichtext As Stringz = 1For i = 0 To List1.ListCount - 2 If i > List1.ListCount - 1 Then Exit For suchtext = List1.List(i) For a = i + 1 To List1.ListCount - 1 vergleichtext = List1.List(a) If suchtext = vergleichtext Then List1.RemoveItem (a) z = z + 1 a = a - 1 End If Next a If i >= List1.ListCount - 1 Then r = List1.ListCount - 1 Else r = i End If List1.RemoveItem (i) List1.AddItem suchtext & Str(z), r z = 1Next iEnd SubGruß Georg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: