AW: kopierten Bereich kennzeichnen
31.08.2013 09:58:12
Stefan
Hallo Peter,
meinst Du so?
Sub kopierenTest()
Dim ShQ As Worksheet, ShZ As Worksheet, z As Integer
Dim lRow As Long, lastZ As Long
Set ShQ = Worksheets(1)
Set ShZ = Worksheets(2)
lRow = ShZ.Cells(65536, 1).End(xlUp).Row + 1
' lastZ = ShZ.Cells(65536, 1).End(xlUp).Row
Application.ScreenUpdating = False
ShQ.Range("A3:L15").Copy 'gleichbleibender Bereich
ShZ.Cells(lRow, 1).PasteSpecial (xlPasteValuesAndNumberFormats)
lastZ = ShZ.Cells(ShZ.Rows.Count, 1).End(xlUp).Row 'ich würde es nicht auf 655356 beschrä _
nken, da ab Excel 2007 es mehr Zeilen gibt
ShZ.Cells(lRow, 19).Resize(lastZ - lRow + 1).Value = "neu"
' ' Fehler: es soll --nur-- der kopierte Bereich mit "neu" gekennzeichnet werden
' With ShZ
' For z = 2 To lastZ
' If .Cells(z, 4) "" Then .Cells(z, 19).Value = "neu"
' Next
' End With
'Idee Peter Haserodt ohne Selektionsrahmen
ShZ.Range("a1").Copy
ShZ.Range("a1").PasteSpecial (xlPasteValuesAndNumberFormats)
Application.CutCopyMode = False
Application.ScreenUpdating = True
Set ShQ = Nothing
Set ShZ = Nothing
End Sub
Gruß Stefan