Kopierte Werte in entsprechende Zelle
11.12.2020 09:36:34
Marco
Ich habe eine Zieldatei mit Kalenderwochen und möchte von anderen Quelldateien die kopierten Werte in der entsprechenden KW einfügen.
Aktuell kriege ich es hin dass ich die Werte aus der einer Quelldatei kopiere und in der Zieldatei in der KW einfüge wenn ich es direkt zu weise.
Wie kann ich zum Beispiel 3 Quelldateien KW49-01/ KW48-01/KW47-01 öffnen?
und dann die gewünschten Werte die Kopiert werden in der Zieldatei in der entsprechenden KW einfügen.
Könnt ihr mir da helfen?
MFG Marco
https://www.herber.de/bbs/user/142249.xlsm
Sub Dateiöffnen()
Set wbZiel = ThisWorkbook.Worksheets("Geplante Zeiten Programm")
Jahr = Right(Year(Cells(44, 26).Value), 2)
KW = Cells(2, 26).Value
Dim FileName As String
'DateiName = S:\Planung20" & Jahr & "\KW" & KW & "-01.xlsm"
Workbooks.Open FileName:=DateiName
Dim Min As String
Dim Max As String
Set wbQuelle = ActiveWorkbook.Worksheets("Wochenplan")
Formel1 = "=min(C:C)"
Formel2 = "=max(C:C)"
Worksheets("Wochenplan").Select
Min = Range("D80")
Max = Range("D81")
Worksheets("Wochenplan").Select 'aktivieren des Arbeitsblattes
Worksheets("Wochenplan").Range("D80").Select
ActiveCell = Formel1 'hier wird in der Zelle Z4 die Formel 1 eingefügt
Worksheets("Wochenplan").Range("D81").Select
ActiveCell = Formel2 'hier wird in der Zelle Z5 die Formel 2 eingefügt
'....aktionen
wbZiel.Range("Z4").Value = wbQuelle.Range("D80") 'wie kriege ich die Kopierten werte in die _
entsprechende Zelle KW in der Tabelle1?
wbZiel.Range("Z5").Value = wbQuelle.Range("D81") 'wie kriege ich die Kopierten werte in die _
entsprechende Zelle KW in der Tabelle1?
wbZiel.Range("Z4").NumberFormat = "dd.mm.yyyy hh:mm"
wbZiel.Range("Z5").NumberFormat = "dd.mm.yyyy hh:mm"
Workbooks("KW2-01.xlsm").Close False
End Sub