Hallo zusammen,
meine VBA Kentnisse sind noch rudimentär und bitte hier um Unterstützung.
Die Anforderung lautet wie folgt:
Ich habe eine Exceldatei nr1 ( D:\LB_Offline\LBOfflineV2.1.xlsm) hier werden bestimmte Felder gefüllt.
Diese Felder sollen dann in eine ander Exeldatei nr2 (D:\LB_Offline\LB_2014\Umsatzliste.xlsm) überstellt werden.
Exceldatei nr1 wird immer wieder befüllt, anschliessend sollen die Werte Zeile für Zeile in der Exceldatei nr2 geschrieben werden
Ich komme hier nicht weiter. Vielleicht hat jemand auch einen anderen Lösungsansatz
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)
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 = Application.Workbook.Open("StrPath & \Umsatzliste.xlsm")
Set WsTarget = WbTarget.Sheets("2014")
'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
|