title image


Smiley Nur Werte einfügen
Hallo Michael,



das sollte so klappen:







Sub puschel()

Dim i As Long

With Sheets("Tabelle1")

For i = 1 To .[a65536].End(xlUp).Row

    If .Range("B" & i + 1).Value = "I" Then

        .Range("A" & i & ":E" & i).Copy

        Sheets("Tabelle2").Range("A" & Sheets("Tabelle2").[a65536].End(xlUp).Row + 1).PasteSpecial xlPasteValues

    End If

Next

End With

Application.CutCopyMode = False

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: