|
Hallo Andreas, versuch es mal damit:
sub ZeilenSpalten()
dim i as integer
for i = 3 to 371*3 step 3
cells(i/3,3)= cells(i-2,1)
cells(i/3,4)= cells(i-1,1)
cells(i/3,5)= cells(i,1)
next intX
end sub
- ungetestet, sollte aber laufen. Es kopiert jede Adresse(Vorname, Nachname, Anschrifft) in die Spalten C,D und E
|