title image


Smiley Re: Makro meldet leider Fehler
Hallo,

ich bin auch der Meinung es sollte klappen.



Mit dem Makro ist es egal wie das Blatt heisst, du mußt dich dort nur aufhalten

und es werden für die ersten 3 Überschriften Texte eingesetzt.



Sub Zeilen_kopieren3()

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)

If a > 1 Then

For b = a To 1 Step -1

wksZiel.Rows(lz).Value = wksQuelle.Rows(i).Value

lz = lz + 1

Next b

End If

Next i

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub



Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: