mfg
Campino
mfg
Campino
https://www.herber.de/mailing/129500h
https://www.herber.de/mailing/049099h
https://www.herber.de/mailing/148501h
gruß
andreas e
Private Sub CommandButton2_Click()
Dim iLast As Integer, iNext As Integer
Dim iTmp As Integer
With lst_auswertung
For iLast = 0 To .ListCount - 1
For iNext = iLast + 1 To .ListCount - 1
If .List(iLast) > .List(iNext) Then
iTmp = .List(iLast)
.List(iLast) = .List(iNext)
.List(iNext) = iTmp
End If
Next iNext
Next iLast
End With
End Sub
er meldet mir nur leider in dieser Zeile
.List(iLast) = .List(iNext)
das er nicht auf die Listeingeschaft zugwreifen kann!
Was kann das sein?
mfg
Campino