Fehler Paste - Methode
28.01.2017 15:12:36
Johannes
ich habe vollgendes Problem, unzwar möchte ich Daten aus einer Excel Tabelle in einer andere kopieren. Das Ganze soll innerhalb einer Mappe auf einen Befehl hin passieren, aber ich möchte, dass vor dem kopieren zwei Sachen überprüft werden sollen.
Ich will nämlich eine historische Tabelle mit Daten füttern, deswegen müssen zwei Zellen pro Reihe auf Redundanz geprüft werden. Habe mir da auch schon was überlegt, allerdings führt Excel das immer nur einmal aus, danach wird an der Paste Methode rumgemeckert... PasteSpecial habe ich auch schon probiert, funktioniert auch nicht.
Wenn ihr mir helfen könnt, wäre das echt super, verzweifle so langsam daran!
Private Sub CommandButton2_Click()
Dim wksz As Worksheet, wksq As Worksheet 'wksq = Quelltabelle, wksz = Zieltabelle
Dim i As Integer, j As Integer
Set wksq = Worksheets("Prozent_Export")
Set wksz = Worksheets("historische Tabelle")
For i = 2 To 50
For j = 2 To 50
If Not wksq.Cells(i, 1) = wksz.Cells(j, 1) And wksq.Cells(i, 5) = wksz.Cells(j, 5) Then
wksq.Rows(i).Copy
End If
Next j
wksz.Range("A" & Rows.Count).End(xlUp).Offset(1).Select
wksz.Paste
Next i
End Sub