AW: VBA werte aus einer Mappe in eine andere Mappe kopieren
20.02.2024 21:11:46
Piet
Hallo Mirko
ich denke für den 1. Fall habe ich eine Lösung, bitte selbst testen, ohne Gewähr das es klappt.
Den Monat der Quell Datei kann man aus der InputBox generieren, oder aus einem Sheet laden.
Beim 2. Fall ist mir noch einiges unklar. WKH soll in Spalte D stehen, aber in welcher Zeile??
Und stehen die Tätigkeiten in Spalte H immer in derselben Zelle, oder alle untereinander??
Wenn Spalte D und H gefunden wurde, wird dann immer in dieselbe Zelle kopiert??
Da ist mir noch einiges unklar. Gibt es dazu eine Beispieldatei mit anonymen Daten?
Am besten mit Lösung von Hand, geprüft und was wo genau hinkopiert werden soll.
mfg Piet
Sub Datei_kopieren()
Dim Monat As String, ok As String
Dim QVgb As String, ZVgb As String
Dim Quelle As String, Ziel As String
QVgb = "JDS_UREI_Abrech_SW26_"
ZVgb = "UREI_SW26_2024-Mü-WKH "
Quelle = InputBox("Quell Dateiname: (Monat ergänzen)", , QVgb)
'Ziel = InputBox("Ziel Dateiname: (Monat ergänzen)", , ZVgb)
'If Quelle = "" Or Ziel = "" Then MsgBox "Abbruich!": Exit Sub
'Monat aus Dateinamen generieren
Datum = Replace(Right(Quelle, 7), "_", ".")
Monat = Format(Datum, "mmmm")
'Oder Monat aus Sheet laden. Welche Zelle?
'** bitte nur eine Möglichkeit von beiden nehmen!!
'Monat = Workbooks(Quelle).Worksheets("Joh").Range("???")
Ziel = Ziel & ".xlsx"
Quelle = Quelle & ".xlsm"
'Monat in allen Sheets suchen, Zelle L5
For j = 1 To Workbooks(Ziel).Worksheets.Count
If Workbooks(Ziel).Worksheets(j).Range("L5") = Monat Then ok = "ok": Exit For
Next j
'Welche Zeile ist die passende Zeile im aktuellen Monat ???
Workbooks(Quelle).Worksheets("Joh").Range("N8").Copy
Workbooks(Ziel).Worksheets(Monat).Range("???").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub