Sub tt()
Dim i As Long, j As Long, k As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To Cells(Rows.Count, 2).End(xlUp).Row
For k = 2 To Cells(Rows.Count, 3).End(xlUp).Row
Cells(Rows.Count, 4).End(xlUp).Offset(1) = _
Cells(i, 1) & Cells(j, 2) & Cells(k, 3)
Next k
Next j
Next i
End Sub
Sub tt()
Dim i As Long, j As Long, k As Long
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To Cells(Rows.Count, 2).End(xlUp).Row
For k = 2 To Cells(Rows.Count, 3).End(xlUp).Row
Cells(Rows.Count, 4).End(xlUp).Offset(1) = _
Cells(i, 1) & Cells(j, 2) & Cells(k, 3)
Next k
Next j
Next i
End Sub
also ich habe jetzt ALT+F11 gedrückt