|
Hallo,
ich bin schon "halb" fertig mit meinem Vorhaben.
Und zwar möchte ich bestimmte Zellen in ein anderes Tabellenblatt kopieren, ABER den nächsten Datensatz in die nächste Zeile kopieren.
Evtl. könnte man meinen "Codeschnipsel" auch eleganter lösen, aber mit VBA hatte ich bislang nicht viel zu tun, deshalb konnte ich es selbst nur so lösen:
"Sub übernehmen()
Dim wksÜ As Worksheet
Dim wksD As Worksheet
Dim wksE As Worksheet
Set wksÜ = ActiveWorkbook.Worksheets(" über Verkauf")
Set wksD = ActiveWorkbook.Worksheets("Datenbank")
Set wksE = ActiveWorkbook.Worksheets("Eingabemaske")
wksD.Cells(9, 2).Value = wksE.Cells(2, 2).Value
wksD.Cells(9, 3).Value = wksÜ.Cells(6, 4).Value
wksD.Cells(9, 4).Value = wksÜ.Cells(6, 5).Value
wksD.Cells(9, 5).Value = wksÜ.Cells(6, 6).Value
wksD.Cells(9, 6).Value = wksÜ.Cells(7, 5).Value
wksD.Cells(9, 7).Value = wksÜ.Cells(8, 4).Value
wksD.Cells(9, 8).Value = wksÜ.Cells(9, 4).Value
wksD.Cells(9, 9).Value = wksÜ.Cells(11, 5).Value
wksD.Cells(9, 10).Value = wksÜ.Cells(13, 5).Value
wksD.Cells(9, 11).Value = wksÜ.Cells(14, 5).Value
wksD.Cells(9, 12).Value = wksÜ.Cells(16, 5).Value
wksD.Cells(9, 13).Value = wksÜ.Cells(18, 5).Value
wksD.Cells(9, 14).Value = wksÜ.Cells(19, 4).Value
wksD.Cells(9, 15).Value = wksÜ.Cells(20, 4).Value
wksD.Cells(9, 16).Value = wksÜ.Cells(21, 5).Value
wksD.Cells(9, 17).Value = wksÜ.Cells(22, 5).Value
wksD.Cells(9, 18).Value = wksÜ.Cells(23, 5).Value
wksD.Cells(9, 19).Value = wksÜ.Cells(24, 5).Value
wksD.Cells(9, 20).Value = wksÜ.Cells(25, 5).Value
wksD.Cells(9, 21).Value = wksÜ.Cells(27, 5).Value
wksD.Cells(9, 22).Value = wksÜ.Cells(29, 5).Value
wksD.Cells(9, 23).Value = wksÜ.Cells(31, 5).Value
wksD.Cells(9, 24).Value = wksÜ.Cells(32, 5).Value
wksD.Cells(9, 25).Value = wksÜ.Cells(33, 5).Value
wksD.Cells(9, 26).Value = wksÜ.Cells(35, 5).Value
wksD.Cells(9, 27).Value = wksÜ.Cells(36, 5).Value
wksD.Cells(9, 28).Value = wksÜ.Cells(38, 5).Value
wksD.Cells(9, 29).Value = wksÜ.Cells(40, 5).Value
wksD.Cells(9, 30).Value = wksÜ.Cells(41, 5).Value
wksD.Cells(9, 31).Value = wksÜ.Cells(42, 5).Value
wksD.Cells(9, 32).Value = wksÜ.Cells(43, 5).Value
wksD.Cells(9, 33).Value = wksÜ.Cells(44, 5).Value
wksD.Cells(9, 34).Value = wksÜ.Cells(45, 5).Value
End Sub
Das funktioniert so auch ganz prima, aber da ich die Zellen im Code fest mit den entsprechenden Werten eingetragen habe, überschreibt er logischerweise den Datensatz immer wieder.
Da fehlt wohl eine Art "IF" A9 voll, dann dann nächste Zeile.
Doof zu beschreiben, aber ich hoffe ihr könnt mir folgen?
ich wäre Euch sehr verbunden, wenn mir dabei jemand helfen kann!
Besten Dank,
Dominik |