title image


Smiley Re: Aufbau siehe Inside
Hallo Antiproff,

ich hoffe, du hast nichts dagegen das ich mich noch einmal einmische.

Versuche einmal



Sub Zeilen_kopieren()

Dim wksQuelle As Worksheet

Dim wksZiel As Worksheet

Dim Verz As String

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

Dim Begriff$

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

Set wksQuelle = Worksheets("Quelle")

Set wksZiel = Worksheets(1)

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

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

End Sub



Ich bin davon ausgegangen das dein Blatt Quelle heißt,

das neue Blatt wird vorne eingefügt.

Das Kriteruim das in deiner ersten Frage Stand habe ich herausgenommen.



Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: