Hallo,
ich möchte dass Excel Werte aus der jetzigen Datei nimmt und in eine andere Datei überträgt.
Dabei sollen nur Daten übertragen werden, wenn die ausgewählten Zellen ausgefüllt sind.
Aktuell sieht es so aus:
Dabei sollen nur der Wert aus der Zelle Q2 übertragen werden, wenn auch etwas drinnen steht. Ansonsten soll einfach nichts passieren. Der Code funktioniert auch, nur scheitere ich an der Wenn Funktion.
Kann da jemand helfen?
Set wssource = ThisWorkbook.Sheets("Project Scope")
wssource.Range("Q2").Copy
Set wstarget = wbtarget.ActiveSheet
EndLine = 0
Do Until Cells(EndLine + 1, 3) = ""
EndLine = EndLine + 1
Loop
wstarget.Cells(EndLine + 1, "C").PasteSpecial xlPasteValues
|