Private Sub Listboxen_fuellen(blatt As String)
Dim lauf As Integer
Dim ausgabe As String
Dim test As String
spaltenanzahl = 0
zeilenanzahl = 0
Workbooks("daten.xls").Worksheets(blatt).Activate
spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To spaltenanzahl
rowcnt = Worksheets(blatt).Cells(Rows.Count, i).End(xlUp).Row
If rowcnt > zeilenanzahl Then zeilenanzahl = rowcnt
Next
n = zeilenanzahl
For i = 2 To n
For lauf = 1 To 7
test = Cells(i, lauf).Value
If (lauf <= 4) Then ausgabe = ausgabe + test + " | "
If (lauf = 5) Then ausgabe = ausgabe + test
If ((lauf = 6) Or (lauf = 7)) And (blatt = "schaltung") Then ausgabe = ausgabe + " | " + test
Next
If (blatt = "test1") Then Listbox1.List(i - 2) = ausgabe
If (blatt = "test2") Then Listbox3.List(i - 2) = ausgabe
If (blatt = "test3") Then Listbox2.List(i - 2) = ausgabe
lauf = 1
ausgabe = ""
test = ""
Next
Command2.Enabled = True
End Sub