title image


Smiley Re: aus 3-Zeiler 1-Zeiler machen
Hallo Thomas,



Sub Thomas()

Do Until IsEmpty(Range("A" & I + 1))

I = I + 1

For j = I + 1 To I + 5

lc1 = Range("IV" & I).End(xlToLeft).Column

lc2 = Range("IV" & j).End(xlToLeft).Column

Range(Cells(I, lc1 + 1), Cells(I, lc1 + lc2)).Value = Range(Cells(j, 1), Cells(j, lc2)).Value

Next j

Rows(I + 1 & ":" & I + 5).Delete

Loop

End Sub



Voraussetzungen:

- Es gibt immer den Abstand von 6 Zeilen

- Der zu bearbeitende Bereich fängt in Zeile 1 an. Falls nicht ersetz die 1 in der fett gedruckten Zeile durch die Nummer der Anfangszeile.
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: