title image


Smiley Re: adressen "in form" bringen
Hallo,

wenn dei Blatt mit den Adressen zB AdressenAlt und das neue AdressenNeu heißt, dann mit folgendem Code:



Sub teamkiller()



Dim I As Long

Dim J As Long



Dim WSALT As Worksheet

Dim WSNEU As Worksheet



Set WSALT = Worksheets("AdressenAlt")

Set WSNEU = Worksheets("AdressenNeu")



I = 1: J = 1

Do While WSALT.Cells(I, 2).Value ""

WSNEU.Cells(J, 1).Value = WSALT.Cells(I, 2).Value

WSNEU.Cells(J + 1, 1).Value = WSALT.Cells(I, 3).Value

WSNEU.Cells(J + 2, 1).Value = WSALT.Cells(I, 4).Value

WSNEU.Cells(J + 3, 1).Value = WSALT.Cells(I, 5).Value

WSNEU.Cells(J + 3, 2).Value = WSALT.Cells(I, 6).Value

WSNEU.Cells(J + 3, 3).Value = WSALT.Cells(I, 7).Value

WSNEU.Cells(J + 4, 1).Value = WSALT.Cells(I, 8).Value

WSNEU.Cells(J + 4, 2).Value = WSALT.Cells(I, 9).Value

I = I + 1

J = J + 6

Loop



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: