Code Problem
04.02.2004 17:37:04
stefan
Ziel ist es den den wert aus tabelle 1 mit dem aus tabelle 2 zu vergleichen und bei übereinstimmung, die beiden zeilen auszuschneiden und in tabelle 3 einzufügen. das wird auch gemacht, nur leider wird nicht die komplette zeile aus tabelle 2 kopiert sondern nur eine enzige zelle.
im prinzip müsste doch
Range(.Cells(r, 1), .Cells(r, 10)).Cut Destination:=Sheets(3).Cells(I, 1)
die komplette zeile kopieren und nicht nur einen zellwert ?
kann mir ja jeamnd helfen ??
gruss
stefan
Sub doppelte_DS_ausschneiden()
For r = 1 To Cells(65536, 6).End(xlUp).Row
Wert = Cells(r, 6)
' Suchspalte und Tabelle definieren
With Sheets(2).Columns(7)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
I = Sheets(3).Cells(65536, 1).End(xlUp).Row + 1
Range(Cells(r, 1), Cells(r, 10)).Cut Destination:=Sheets(3).Cells(I, 1)
I = I + 1
Range(.Cells(r, 1), .Cells(r, 10)).Cut Destination:=Sheets(3).Cells(I, 1)
End If
End With
Next r
End Sub