Sub
übernehmen()
Dim
iRow
As
Integer
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"
)
iRow = wksD.UsedRange.Rows.Count + 1
wksD.Cells(iRow, 2).Value = wksE.Cells(2, 2).Value
wksD.Cells(iRow, 3).Value = wksÜ.Cells(6, 4).Value
wksD.Cells(iRow, 4).Value = wksÜ.Cells(6, 5).Value
wksD.Cells(iRow, 5).Value = wksÜ.Cells(6, 6).Value
wksD.Cells(iRow, 6).Value = wksÜ.Cells(7, 5).Value
wksD.Cells(iRow, 7).Value = wksÜ.Cells(8, 4).Value
wksD.Cells(iRow, 8).Value = wksÜ.Cells(9, 4).Value
wksD.Cells(iRow, 9).Value = wksÜ.Cells(11, 5).Value
wksD.Cells(iRow, 10).Value = wksÜ.Cells(13, 5).Value
wksD.Cells(iRow, 11).Value = wksÜ.Cells(14, 5).Value
wksD.Cells(iRow, 12).Value = wksÜ.Cells(16, 5).Value
wksD.Cells(iRow, 13).Value = wksÜ.Cells(18, 5).Value
wksD.Cells(iRow, 14).Value = wksÜ.Cells(19, 4).Value
wksD.Cells(iRow, 15).Value = wksÜ.Cells(20, 4).Value
wksD.Cells(iRow, 16).Value = wksÜ.Cells(21, 5).Value
wksD.Cells(iRow, 17).Value = wksÜ.Cells(22, 5).Value
wksD.Cells(iRow, 18).Value = wksÜ.Cells(23, 5).Value
wksD.Cells(iRow, 19).Value = wksÜ.Cells(24, 5).Value
wksD.Cells(iRow, 20).Value = wksÜ.Cells(25, 5).Value
wksD.Cells(iRow, 21).Value = wksÜ.Cells(27, 5).Value
wksD.Cells(iRow, 22).Value = wksÜ.Cells(29, 5).Value
wksD.Cells(iRow, 23).Value = wksÜ.Cells(31, 5).Value
wksD.Cells(iRow, 24).Value = wksÜ.Cells(32, 5).Value
wksD.Cells(iRow, 25).Value = wksÜ.Cells(33, 5).Value
wksD.Cells(iRow, 26).Value = wksÜ.Cells(35, 5).Value
wksD.Cells(iRow, 27).Value = wksÜ.Cells(36, 5).Value
wksD.Cells(iRow, 28).Value = wksÜ.Cells(38, 5).Value
wksD.Cells(iRow, 29).Value = wksÜ.Cells(40, 5).Value
wksD.Cells(iRow, 30).Value = wksÜ.Cells(41, 5).Value
wksD.Cells(iRow, 31).Value = wksÜ.Cells(42, 5).Value
wksD.Cells(iRow, 32).Value = wksÜ.Cells(43, 5).Value
wksD.Cells(iRow, 33).Value = wksÜ.Cells(44, 5).Value
wksD.Cells(iRow, 34).Value = wksÜ.Cells(45, 5).Value
End
Sub