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