Bereich anpassen
03.04.2006 15:17:14
Sebi
hab ein Makro über die Recherche gefunden, dass auch fast das macht was es soll; allerdings noch nicht ganz. Viellicht kann mir einer von euch Excel-Cracks weiterhelfen das Makro anzupassen. Das MAkro soll die Zellen der Spalte "A" vom Blatt "Calc_GF" mit den Zellen der Spalte "K" vom Blatt "Ctrl" vergleichen und bei einer Übereinstimmung, die komplette Spalte des Blattes "Calc_GF" auf das Blatt "TC" kopieren. Ok. Das funzt auch alles. Jetzt soll das Makro aber nur die Zellen "0-2000" auf dem Blatt "Calc_GF" vergleichen und das Ergebnis auch nur in den Bereich zwischen Zeile 0 und 2000 auf dem Blatt "TC" kopieren. KAnn mir bitte jemand helfen das MAkro anzupassen.
Danke. Grüße Sebi
Sub Vergleich1()
Dim I As Integer
Dim J As Integer
For I = 5 To Worksheets("Ctrl").Cells(Rows.Count, 11).End(xlUp).Row
For J = 11 To Worksheets("Calc_GF").Range("C1999").End(xlUp).Row
If Worksheets("Calc_GF").Cells(J, 1) = Worksheets("Ctrl").Cells(I, 11) Then
Worksheets("Calc_GF").Rows(J).COPY _
Destination:=Worksheets("TC").Range("A" & Worksheets("TC").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
Next J
Next I
End Sub
Anzeige