Sub Makro1()
  Dim i As Long
  With Worksheets("Tabelle1")
    For i = 1 To 5
      .Range("A" & CStr(i)).Copy Worksheets("Tabelle2").Range(Chr$(64 + i) & _
        "1")
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de