Mit folgendem Code möchte ich Zellen suchen, kopieren und einfügen (A-P kopieren, in einem anderen Sheet einfügen). Funktioniert soweit ganz gut. Nur wird beim Einfügen nicht nur in A-P kopiert sondern in alles Spalten rechts. Wie kann ich das verhindern?
LG
Thomas
---------------------------------------------------------------
Sub SuchenKopieren()
Dim i As Integer
Dim n As Integer
Dim shZiel As Worksheet
n = Sheets("OP-Übersicht").Range("A1").CurrentRegion.Rows.Count
For i = 2 To n
Application.ScreenUpdating = False
Set shZiel = Sheets("ERGEBNIS")
Set shSuche = Sheets("OP-ÜBERSICHT")
intRow = shZiel.Cells(Rows.Count, 1).End(xlUp).Row + 1
If shSuche.Range("J" & i).Value <= Date Or shSuche.Range("N" & i).Value <= Date Then _
shSuche.Range("A" & i & ":" & "P" & i).Copy shZiel.Rows(intRow)
shZiel.Columns.AutoFit
End If
Next
End Sub