Hallo H27!.... Danke für Deine Antwort, jetzt klappt es und die Werte werden in die Umsatzliste übergeben.

könntest Du mir bitte noch zeigen wie ich jetzt prüfe ob die Zeile aus der Zieldatei schon befüllt ist. So das automatisch die nächste Zeile verwendet wird.

Option Explicit

Sub CopyValue4Turnover()
'----------------------
'Varablen Deklarieren
'----------------------
'Quell Datei
Dim WbSource As Workbook    'aktuelle Leistungsbestätigung "LBOfflineV2.1.xlsm"
Dim WsSource As Worksheet   'Register1 "LB Offline"
'Zieldatei
Dim StrPath As String       'Dateipfad der Umsatzliste (D:\LB_Offline\LB_2014\Entwurf)
Dim WbTarget As Workbook    'Umsatzliste.xlsm
Dim WsTarget As Worksheet   'Register1 --> "2014"
'Zellen Leistungsbestätigung
Dim rngSource10 As Range    'Kundennummer
Dim rngSource20 As Range    'Kunde
Dim rngSource30 As Range    'Ansprechpartner
Dim rngSource40 As Range    'Ansprechpartner eMail
Dim rngSource50 As Range    'Summe Gesamtpreis
Dim rngSource60 As Range    'Datum der ausgestellten Leistungsbestätigung
Dim rngSource70 As Range    'Gesamtpreis Anreisepauschale
Dim rngSource80 As Range    'Gesamtpreis Übernachtungspauschale
'Zellen Umsatzliste
Dim rngTarget10 As Range    'Kundennummer
Dim rngTarget20 As Range    'Kunde
Dim rngTarget30 As Range    'Ansprechpartner
Dim rngTarget40 As Range    'Ansprechpartner eMail
Dim rngTarget50 As Range    'Datum der ausgestellten Leistungsbestätiigung
Dim rngTarget60 As Range    'Summe Gesamtpreis
Dim rngTarget70 As Range    'Gesamtpreis Anreisepauschale
Dim rngTarget80 As Range    'Gesamtpreis Übernachtungspauschale
'Dim varZelle As Variant
Dim rngZielAnfang As Range

'--------------------------
'Zuweisung Variablen Quelle
'--------------------------
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")

'-----------------
'Zieldatei öffnen
'Zuweisung Variablen Ziel
'-----------------
Set WbTarget = Workbooks.Open("D:\LB_Offline\LB_2014\Entwurf\Umsatzliste.xlsm")
Set WsTarget = WbTarget.Sheets("2014")

'alternativ kann man oben einen constanten Pfad angeben "Const strPath = "D:\LB_Offline\LB_2014\Entwurf"
'und dann das Workbook deklarieren mit "Set WbTarget = Application.Workbooks.Open(StrPath & "\Umsatzliste.xlsm")"

'Zuweisung Variablen Ziel
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")

'andere schreibweise: Set rngZiel = wsZiel.Cells(5, 5)
'Set rngQuelle = wsQuelle.Range("A1")

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