title image


Smiley Re: nur bestimmte Zeilen kopieren
Hallo Thomas,



hier ein Makro.



Public Sub Zeilen_kopieren()

a = 1

Application.ScreenUpdating = False

For i = 1 To 100



If Sheets(1).Cells(i, 2).Value = "x" Then

    Sheets(1).Select

    Rows(i).Copy

    Sheets(2).Select

    Rows(a).Select

    ActiveSheet.Paste

    a = a + 1

End If



Next i

Application.ScreenUpdating = True

End Sub

Code eingefügt mit Syntaxhighlighter 1.14





Bis denn

Loisl

P.S. Über einen Besuch auf www.excel-inside.de würde ich mich freuen!

Es ist eine Kunst aus fremden Fehlern zu lernen. Die meisten lernen nicht einmal aus den eigenen. ->Peter Bamm (1897-1975)



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: