title image


Smiley Re: Ich habe da noch eine Zusatzfrage
Hallo Antiproff,

ich habe das Makro dahingehend geändert das Formeln aus der Quelle übernommen werden.

Habe ich es Richtig verstanden?



Sub Zeilen_kopieren5()

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

Worksheets.Add Before:=ActiveWorkbook.Worksheets(1)

Set wksZiel = Worksheets(1)

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

wksZiel.Cells(1, 1).Value = "Kommission"

wksZiel.Cells(1, 2).Value = "Mengenangabe"

wksZiel.Cells(1, 3).Value = "Beschreibung"

lz = 2

For i = 2 To lzq Step 1

a = wksQuelle.Cells(i, 2)

For b = a To 1 Step -1

wksQuelle.Rows(i).Copy

wksZiel.Rows(lz).PasteSpecial

lz = lz + 1

Next b

Next i

Application.CutCopyMode = False

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub





Gruß

Reiner





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: