Hallo,
Ich habe mehrere Dateien mit unterschiedlich vielen Worksheets. In WKS 1 sind meine gesamten Daten abgelegt. Diese sind über die ersten drei Zellen eindeutig definiert. In den WKS 2-X sind die Daten aus WKS 1 sortiert, es ist also nur eine Auswahl der Daten aus WKS 1, jedoch nur die ersten drei Zellen mit dem man sie eindeutig identifizieren kann. Jetzt möchte ich die darauffolgenden Zellen aus WKS1 ind das aktuelle WKS kopieren, wenn die ersten drei Zellen identisch sind.
Ich habe mich schonmal an eine Code versucht, der funktioniert aber leider nicht. Er springt immer bei "wks2.Column(1).Select" raus.
Sub Test()
Dim dValue As Double
Dim iCounter As Integer
Dim i As Integer
Dim yCounter As Integer
Dim y As Integer
Dim wscounter As Integer
Dim ws As Integer
Set wks1 = Worksheets(1)
wscounter = Worksheets.Count
Range("A1").Select
iCounter = Selection.CurrentRegion.Rows.Count
For ws = 2 To wscounter
Set wks2 = Worksheets(ws)
wks2.Column(1).Select
yCounter = Selection.CurrentRegion.Rows.Count
For y = 2 To yCounter
For i = 2 To iCounter
If wks2.Range("A" & y) = wks1.Range("A" & i) And wks2.Range("B" & y) = wks1.Range("B" & i) And wks2.Range("C" & y) = wks1.Range("C" & i) Then
wks1.Rows(i).Copy wks2.Rows(y)
End If
Next
Next
End
Next
End
End Sub
Vielen Dank für die Hilfe
Gruß Christian
|