Dim Teilbereich(1000) As String
Dim Bearbeitet(1000, 1000) As String
Dim Unbearbeitet(1000, 1000) As String
 
 
Private Sub lstTeilbereiche_Click()
 
lstUnbearbeitet.Clear
lstbearbeitet.Clear
 
i2 = 0
 
Do Until Unbearbeitet(lstTeilbereiche.ListIndex, i2) = ""
    lstUnbearbeitet.AddItem (Unbearbeitet(lstTeilbereiche.ListIndex, i2))
    i2 = i2 + 1
Loop
 
i2 = 0
 
Do Until Bearbeitet(lstTeilbereiche.ListIndex, i2) = ""
    lstbearbeitet.AddItem (Bearbeitet(lstTeilbereiche.ListIndex, i2))
    i2 = i2 + 1
Loop
 
lblProgrammteil.Caption = lstTeilbereiche.Text
End Sub