title image


Smiley Re: Zusatzfrage
Hallo Heinrich,

schön das es nun klappt.

Hier das Makro noch einmal leicht gekürzt.



Sub Zeilen_kopieren()

Dim wksQuelle As Worksheet, wksZiel As Worksheet

Dim lz%, a%, i%, b%

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Set wksQuelle = ActiveSheet

Set wksZiel = Worksheets("Ziel")

lz = 2

For i = 2 To wksQuelle.Cells(Rows.Count, 1).End(xlUp).Row Step 1

a = wksQuelle.Cells(i, 2)

For b = a To 1 Step -1

wksQuelle.Range(Cells(i, 1), Cells(i, 26)).Copy

wksZiel.Rows(lz).PasteSpecial

lz = lz + 1

Next b

Next i

Application.CutCopyMode = False

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub



Bis vieleicht ein anderes mal.

Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: