Sub Macro2()
' Macro2 Macro
Dim j As Long
Dim id As Long
j = 1
For id = 2 To 5
Cells(j, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.dob%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C16&"" 00:00:00%%%,%1%"""
Cells(j + 1, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.modnr%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C13&""%%%,%9%"""
Cells(j + 2, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.nr%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C9&""%%%,%5%"""
Cells(j + 3, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.ort%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C11&""%%%,%7%"""
Cells(j + 4, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.plz%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C10&""%%%,%6%"""
Cells(j + 5, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.str%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C8&""%%%,%4%"""
Cells(j + 6, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.telnr%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C12&""%%%,%8%"""
Cells(j + 7, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.username%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C5&""%%%,%2%"""
Cells(j + 8, 1).Value = "=+Liste_2016_WEB_RevD.csv!R2C1&"",%pr.uservor%,%%%""& _
Liste_2016_WEB_RevD.csv!R2C6&""%%%,%3%"""
j = j + 9
Next id
End Sub
Was noch fehlt ist, ich möchte die Zellenadressierung oben als R2C1 so umschreiben, dass als adresse idC1 verwendet wird. Ich habe alles versucht, aber meine begrenzten Kenntnisse genügen hoffentlich nicht. Danke für die Hilfe. Adri
dressierung