Sub Zusammenfassen()
Dim i As Integer
Dim Ausgabe(7 To 28) As String
Dim n As Integer
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Zeilen nach unten bestimmtn!!!!!!!!!!!!!!!!!!!!!!!!!!
For n = 9 To 60
i = 0
For i = 7 To 28
If Cells(n, i) = "X" Then
Ausgabe(i) = Cells(8, i) & ","
End If
Next i
Cells(n, 3).Value = Ausgabe(7) & Ausgabe(8) & Ausgabe(9) & Ausgabe(10) & Ausgabe(11) & Ausgabe(12) & Ausgabe(13) & Ausgabe(14) & Ausgabe(15) & Ausgabe(16) & Ausgabe(17) & Ausgabe(18) & Ausgabe(19) & Ausgabe(20) & Ausgabe(21) & Ausgabe(22) & Ausgabe(23) & Ausgabe(24) & Ausgabe(25) & Ausgabe(26) & Ausgabe(27) & Ausgabe(28)
For i = 7 To 28
Ausgabe(i) = ""
Next i
Next n
End Sub
Habe ihn noch anpassen müssen, dass Ergebnis sollte an einer anderen Stelle auftauchen.
Jedoch Ergebnis stimmt! Vielen Dank
|