Daten zusammenfassen - mit Formelbezug
18.04.2017 17:28:06
lutz
leider komme ich mal wieder nicht mehr weiter.
Ich habe ein Makro das mir verschiedene Daten ausliest und mit einer Schleife durch ein wählbares Verezichnis läuft.
Die Daten werden immer als Werte in die Zieldatei eingefügt.
Nun benötige ich aber nicht mehr die Werte sondern die Verknüpfung zur Quelldatei (als wenn man + drückt und in die Querlldatei wechselt und dann diese Formel einfach in den Zielbereich kopiert.
So sieht das heute aus:
wksInput.Visible = xlSheetVisible
wksInput.Activate
wksInput.Range("A6:V" & Cells(Rows.Count, 22).End(xlUp).Row).Copy
meins.Activate
MySheet.Activate
With MySheet
.Range("A" & .Cells(Rows.Count, 5).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Hier müsste man wahrschenlich nur die erste Zelle also A6 kopieren?
wksInput.Range("A6:V" & Cells(Rows.Count, 22).End(xlUp).Row).Copy
Aber nach dem Wechsel in das Zielsheet weiß ich nicht , wie ich das machen kann/soll.
Weiß jemand Rat?
Vielen Dank und viele Grüße Lutz