title image


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



hier ist die Anpassung:



Sub Thomas()

i = 3

Do Until i = [a65536].End(xlUp).Row

i = i + 1

If IsEmpty(Range("A" & i)) Then

Rows(i).Delete

i = i - 1

End If

If Range("A" & i) = "Folgeblatt" Then

Rows(i & ":" & i + 1).Delete

i = i - 2

End If

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



Das ist ziemlich unelegant gelöst, aber so auf die Schnelle...

Das gilt jetzt für 3 Überschriftenzeilen.

Ich hoffe, das passt so. Viel Erfolg und schönes Wochenende!
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: