VBA Kopie verrutscht ?!?!?
22.01.2009 18:31:45
Sascha
Bitte mal folgenden Code unter die Lupe nehmen:
Private Sub Worksheet_Activate()
'Zielblatt muss immer die höchste Nr. haben!
Dim i As Long
Dim j As Long
On Error GoTo Fehler
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
ActiveSheet.Columns("B").ClearContents
ActiveSheet.Columns("C").ClearContents
With ActiveSheet
For i = 1 To ActiveWorkbook.Sheets.Count - 1 Step 1
Sheets(i).Range("C122:C218").Copy
.Cells(Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Sheets(i).Range("N122:N218").Copy
.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Sheets(i).Range("L122:L218").Copy
.Cells(Rows.Count, "D").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Next i
End With
Fehler:
Application.CutCopyMode = False
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ActiveSheet.Range("A1").Select
End Sub
der Code kopiert mir alle Daten aus bestimmten Spalten auf das letzte Tabellenblatt in die Spalten B:B / C:C / D:D.
Bei D:D klappt das wunderbar
Nur die Spalten B und C verrutschen um die erste Zeile, was für die weitere Berechnung keinen Sinn macht.
Kann mir jemand helfen?
LG und Danke
Sascha