title image


Smiley Re: Zusatzfrage
Hallo Antiproff,

ich hoffe wir kommen der Sache näher?

Das Zielblatt muss Ziel heißen, die Quelle ist egal wenn das Makro von dort aus gestartet wird. Ansonsten muss die Zeile "Set wksQuelle = ActiveSheet" in

"Set wksQuelle = Worksheets("Dein Blattname") geändert werden.



Sub Zeilen_kopieren()

Dim wksQuelle As Worksheet

Dim wksZiel As Worksheet

Dim Verz As String

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

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

Set wksQuelle = ActiveSheet

Set wksZiel = Worksheets("Ziel")

lzq = wksQuelle.Cells(Rows.Count, 1).End(xlUp).Row

lz = 2

For i = 2 To lzq 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



Frage was steht für Antiproff? :)



Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: