Adressierungs format
10.07.2016 17:47:24
adri
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
Anzeige