Private Sub Form_Load()
  Dim sStr As String
  Dim I As Integer
  Dim II As Integer
  Dim LR As String
  Dim ary() As String
 
  Randomize Timer
 
  With ListView1
    .View = lvwReport
    .ColumnHeaders.Add , , "Maschine"
    .ColumnHeaders.Add , , "Lagerort", 2300
    .ColumnHeaders.Add , , "Sortiere-1", 2300
    .ColumnHeaders.Add , , "Sortiere-2", 2300
 
    'Einträge generieren
    For I = 1 To 15
      .ListItems.Add , , "1_S27HM"
 
      'Links oder Rechts
      LR = IIf(Int(Rnd * 2) = 0, "Links", "Rechts")
 
      Select Case Int(Rnd * 2)
        Case 0:   sStr = LR & " E" & Int(Rnd * 15) + 1 & "-" & _
                                     Int(Rnd * 15) + 1 & "-" & _
                                     Int(Rnd * 15) + 1
        Case 1:   sStr = LR & " E" & Int(Rnd * 15) + 1 & "-" & _
                                     Int(Rnd * 15) + 1 & "-" & _
                                     Int(Rnd * 15) + 1 & "-" & _
                                     Int(Rnd * 15) + 1
      End Select
 
      'Lagerort eintragen
      .ListItems(I).SubItems(1) = sStr
 
 
      'Für Sortierspalte vorbereiten und eintragen
      sStr = Mid$(sStr, InStr(sStr, " E") + 2)
      ary = Split(sStr, "-")
      For II = 0 To UBound(ary())
        ary(II) = Format$(ary(II), "00")
      Next II
 
      'Nur Zahlen
      sStr = Join(ary(), "")
     .ListItems(I).SubItems(2) = sStr
 
     'Rechts Links und Zahlen
     .ListItems(I).SubItems(3) = LR & sStr
    Next I
  End With
End Sub
 
 
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As _
  MSComctlLib.ColumnHeader)
  With ListView1
    .SortKey = ColumnHeader.Index - 1
    .Sorted = True
  End With
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.