Ich sammle Daten aus mehreren Arbeitsmappen in Master-Arbeitsmappe. Ich möchte das Format des Texts in meiner Arbeitsmappe wie in meinen Quellarbeitsmappen beibehalten. Kann jemand helfen?Preserve-Formatierung in Master-Arbeitsmappe
So, hier ist, wie Sie von einer Arbeitsmappe zu einer anderen kopieren, die Quellformatierung beibehalten. Sie können den Bereich und den Namen der Arbeitsmappe nach Bedarf anpassen.
Workbooks("source").Worksheets("Sheet1").Range("A1").Copy
Workbooks("destination").Worksheets("Sheet1").Range("A1").PasteSpecial paste:=xlPasteAllUsingSourceTheme
Vielen Dank Jungs. Ich bin erfolgreich :) –
Froh, zu helfen! Wenn Sie dies als die richtige Antwort markieren könnten, versuche ich meinen Ruf aufzubauen und es würde viel helfen. Vielen Dank! –
Beim Einfügen der Daten verwenden Sie einfach "Paste Special" & "Value". Wenn Sie dies mit VBA tun, sollte die Einfügezeile Range ("A1") sein. PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False –
Kopieren Sie Blätter aus mehreren Arbeitsmappen in ein Arbeitsblatt oder ein separates Arbeitsblatt für jede Arbeitsmappe, die kopiert wird? Hast du irgendeinen Code, den du posten kannst? – Clusks
@J.B. Sie haben gerade das genaue Gegenteil beschrieben, was das OP erreichen möchte. Er möchte das Format "... wie es in meiner Quellarbeitsmappe steht" beibehalten. Daher sollte er es kopieren einschließlich das Format (ein nicht nur die Werte, wie Sie beschrieben) und jede mögliche bedingte Formatierung. Der Weg dorthin ist jedoch ziemlich gleich. Verwenden Sie einfach folgendes: 'wbSource.Range (" A1: C10 "). Kopieren Ziel: = wbDestination.Range (" A1: C10 ")' – Ralph