Sub CopyValue4Turnover()
Dim WbSource As Workbook
Dim WsSource As Worksheet
Dim StrPath As String
Dim WbTarget As Workbook
Dim WsTarget As Worksheet
Dim rngSource10 As Range
Dim rngSource20 As Range
Dim rngSource30 As Range
Dim rngSource40 As Range
Dim rngSource50 As Range
Dim rngSource60 As Range
Dim rngSource70 As Range
Dim rngSource80 As Range
Dim rngTarget10 As Range
Dim rngTarget20 As Range
Dim rngTarget30 As Range
Dim rngTarget40 As Range
Dim rngTarget50 As Range
Dim rngTarget60 As Range
Dim rngTarget70 As Range
Dim rngTarget80 As Range
Dim rngZielAnfang As Range
Set WbSource = ActiveWorkbook
Set WsSource = WbSource.Worksheets("LB Offline")
Set rngSource10 = WsSource.Range("LBvalKDNr")
Set rngSource20 = WsSource.Range("LBvalKDName")
Set rngSource30 = WsSource.Range("LBvalAP")
Set rngSource40 = WsSource.Range("LBvalAPmail")
Set rngSource50 = WsSource.Range("B55")
Set rngSource60 = WsSource.Range("F33")
Set rngSource70 = WsSource.Range("F37")
Set rngSource80 = WsSource.Range("F38")
Set WbTarget = Application.Workbook.Open("StrPath & \Umsatzliste.xlsm")
Set WsTarget = WbTarget.Sheets("2014")
Set rngTarget10 = WsTarget.Range("A2")
Set rngTarget20 = WsTarget.Range("B2")
Set rngTarget30 = WsTarget.Range("C2")
Set rngTarget40 = WsTarget.Range("D2")
Set rngTarget50 = WsTarget.Range("E2")
Set rngTarget60 = WsTarget.Range("F2")
Set rngTarget70 = WsTarget.Range("G2")
Set rngTarget80 = WsTarget.Range("H2")
rngTarget10.Value = rngSource10.Value
rngTarget20.Value = rngSource20.Value
rngTarget30.Value = rngSource30.Value
rngTarget40.Value = rngSource40.Value
rngTarget50.Value = rngSource50.Value
rngTarget60.Value = rngSource60.Value
rngTarget70.Value = rngSource70.Value
rngTarget80.Value = rngSource80.Value
End Sub