Wertevergleich mit Zeilenübertragung
janesch
ich möchte gerne ein Vergleich zeilenweise zw. 2 Tabellenblättern in der Spalte A machen. Wenn dieser nicht identisch ist, sollte die ganze Zeile (bzw. von A bis GC )aus der Tabelle A in die Tabelle B kopiert werden.
Habe dabei versucht folgenden Sub aus diesem Forum zu modifizieren, jedoch ohne erfolg.
Private Sub Vergleich
Dim zeile As Long
Dim spalte As Long
Wert1 As Long
Wert2 As Long
For zeile = 28 To 60
For spalte = 1 To 1
Wert1 = Worksheets("A").Cells(zeile, spalte)
Wert2 = ActiveSheet.Cells(zeile, sspalte)
If Wert1 = Wert2 Then GoTo Überspringen
spalte = spalte + 185
Worksheets("Vorlage").Range(zeile, spalte).Copy
ActiveSheet.Range(zeile, spalte).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Überspringen:
Next z
Next s
ActiveSheet.Range("A1").Select
End SubWäre toll, wenn jemand helfen könnte.
Gruß
Janesch
Anzeige