Daten dynamisch einfügen VBA
16.06.2006 11:20:06
Wolfgang
mit dem nachfolgenden Code füge ich aus dem Tabellenblatt "Daten" die jeweiligen Spalten in ein aktives Tabellenblatt. Nun ist mir bewußt geworden, dass ja Daten, die sich schon im aktiven Tabellenblatt befinden, überschrieben werden. Wie kann ich den Code umstellen, dass einerseits aus "Daten" die tatsächlichen Datensätze kopiert und diese dann in das aktive Datenblatt zum Schluß an vorhandene Datensätze eingefügt werden ? Im Anschluß wäre dann schön, wenn die Eingaben alphabetisch (Spalte A) sortiert würden und noch in Spalte H jeweils ein Text hineinkopiert wird, der sich in Zelle F1 befindet. Ich weiß, das ist wie bei der Werbung mit den Süßigkeiten (was Gesundes, was zum Naschen und was zum Spielen); Wäre trotzdem schön, wenn ich Hilfestellung erhalten könnte, habe mir als Laie/Anfänger schon die Zähne daran ausgebissen. Danke daher schon Allen, die sich mit meinem Problem befassen.
Herzliche Grüße
Wolfgang
Sub Spaltenübertrag()
Worksheets("Daten").Range("B3:B200").copy Destination:=ActiveSheet.Range("I3")
Worksheets("Daten").Range("D3:D200").copy Destination:=ActiveSheet.Range("A3")
Worksheets("Daten").Range("E3:E200").copy Destination:=ActiveSheet.Range("B3")
Worksheets("Daten").Range("G3:G200").copy Destination:=ActiveSheet.Range("C3")
Worksheets("Daten").Range("C3:C200").copy Destination:=ActiveSheet.Range("L3")
Worksheets("Daten").Range("K3:K200").copy Destination:=ActiveSheet.Range("E3")
Worksheets("Daten").Range("U3:U200").copy Destination:=ActiveSheet.Range("L3")
Worksheets("Daten").Range("R3:R200").copy Destination:=ActiveSheet.Range("F3")
Worksheets("Daten").Range("P3:P200").copy Destination:=ActiveSheet.Range("J3")
Worksheets("Daten").Range("T3:T200").copy Destination:=ActiveSheet.Range("M3")
End Sub