Sub Uebertrag()
Dim intZ As Integer
For intZ = 2 To 55
Range(Cells(1, (intZ * 3) - 2), Cells(1, intZ * 3)).Value = Range(Cells(intZ, 1), Cells(intZ, 3)).Value
Range(Cells(intZ, 1), Cells(intZ, 3)) = "" 'wenn Quellzellen gelöscht werden sollen
Next intZ
End Sub
Gruß Uwe