Hallo liebe Community,
ich habe eine Prozedur geschrieben bei der bestimmte Daten aus einer Tabelle ausgelesen werden und in eine neue Tabelle anders dargestellt werden bzw. nach anderen Gesichtspunkten. Nun wusste ich nicht, da die Daten die auszuwerten sind sich immer ändern wie ich diesen variablen Bereich kopieren soll, also habe ich einfach mehrer tausend Zeilen kopiert und ins andere Tabellenblatt eingefügt, ehe es dann sortiert wurde.
Also so etwa:
Worksheets("Tabelle1").Select
ActiveSheet.Range("K11:K1000").Select
Selection.copy
Worksheets("Fertigungsaufwand").Select
Range("B6:B1000").Select
ActiveSheet.Paste
Worksheets("Tabelle1").Select
ActiveSheet.Range("L11:M1000").Select
Selection.copy
Worksheets("Fertigungsaufwand").Select
Range("G6:H1000").Select
ActiveSheet.Paste
und zum Sortieren und Zusammenfassen verwende ich diesen code:
For i = 6 To Cells(Rows.Count, "I").End(xlUp).Row
For k = 7 To Cells(Rows.Count, "I").End(xlUp).Row
If i k And Cells(i, "G") = Cells(k, "G") And Cells(i, "H") = Cells(k, "H") And _
Cells(i, "I") = Cells(k, "I") Then
Cells(i, 2) = Cells(i, 2) + Cells(k, 2)
Cells(k, 2).EntireRow.Delete
i = 6
k = 6
If Cells(k + 1, 2) = "" Then
i = 5
End If
End If
Next k
Next i
Wie kann ich diesen dynamischen Bereich erfassen und Kopieren bzw. auslesen?
Vielen Dank!
Lieben Gruß,
Nermin