title image


Smiley Re: Excel 2000: Zeilen mehrfach in neue Mappe übertragen
Hallo Antiproff,

hier ein Ansatz es geht bestimmt einfacher!!



Sub Zeilen_kopieren()

Dim wksQuelle As Worksheet

Dim wksZiel As Worksheet

Dim Verz As String

Dim lzq%, lzz%, a%, i%, b%

Dim Begriff$

Set wksQuelle = ActiveSheet

Set wksZiel = GetObject("c:\ziel\ziel.xls").Worksheets("Blatt1")

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

lzz = wksZiel.Cells(Rows.Count, 3).End(xlUp).Row

Begriff = InputBox("Was soll kopiert werden?")

If Begriff = "" Then Exit Sub

For i = lzq To 2 Step -1

If Cells(i, 3) = Begriff Then

b = wksQuelle.Cells(i, 1)

If b > 1 Then

For c = b To 1 Step -1

wksZiel.Rows(lzz + 1).Value = wksQuelle.Rows(i).Value

lzz = lzz + 1

Next c

End If

End If

Next i

End Sub



Gruß

Reiner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: