Beim Kopieren mit VBA Formatierung übernehmen

Computer: Software & Programmierung Visual Basic
#1

Hallo, ich würde gern in folgendem Programm beim Kopieren nicht nur die Werte der Zellen, sondern auch deren Formatierung (also speziell zb die Hintergrundfarbe) übernehmen. Habe schon einiges versucht wie zb

ActiveSheet.PasteSpecial x1PasteAll bzw. x1PasteFormats …

nichts funktioniert richtig.

Sub Wochenbestellung()

Dim KW, k As Integer

Workbooks.Open („C:\Users\MS\Desktop\Projekt_B\A1a.xls“)
'Sheets(„Bestellungen“).Activate

Range(„Kunden“).Select
Selection.Copy
ActiveWorkbook.Close

Sheets(„Bestell“).Select
Range(„A4“).Select
ActiveSheet.PasteSpecial

Würde mich über jede Hilfe freuen! Vielen Dank!!!

Melanie

#2

Hallo, ich würde gern in folgendem Programm beim Kopieren
nicht nur die Werte der Zellen, sondern auch deren
Formatierung (also speziell zb die Hintergrundfarbe)
übernehmen. Habe schon einiges versucht wie zb

Hallo melanie,

du warst schon sehr nah dran :smile:

Sub Wochenbestellung()
Workbooks.Open "C:\Users\MS\Desktop\Projekt\_B\A1a.xls"
Range("Kunden").Copy
Worksheets("Bestell").Range("A4").PasteSpecial Paste:=xlAll
Workbooks("A1a.xls").Close savechanges:=False
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,

vielen Dank für den Vorschlag, das Programm läuft soweit auch, nur leider werden die Farben immer noch nicht übernommen. Sehr komisch weil ich dachte eigentlich auch mit Paste:=xlAll müsste das doch klappen…

Grüße
Melanie

#4

vielen Dank für den Vorschlag, das Programm läuft soweit
auch, nur leider werden die Farben immer noch nicht
übernommen. Sehr komisch weil ich dachte eigentlich auch mit
Paste:=xlAll müsste das doch klappen…

Hallo Melanie,

gut, ich muß grad nochmal weg zu meinem Nikotindealer=kiosk :smile:

Aber an sich hatte ich das getestet. Und es funktionierte mit Farbübertragung *wunder daß es auf einmal nicht klappt*

Okay, wenn ich zurückkomme, bastle ich eine Beispielmappe wo es funktioniert und lad sie hoch. Wenn die dann bei dir nicht funktioniert, so liegt es an ähem halt an jmdn :smile:)

Gruß
Reinhard

#5

Hallo Melanie,

dieser Code ist nun nochmals getestet, der muß bei dir laufen, wenn nicht hast du da ein Umsetzungsproblem.

Sub Wochenbestellung()
Workbooks.Open "C:\test\melanietest.xls"
Range("A1:B2").Copy
ThisWorkbook.Worksheets("Tabelle1").Range("F4").PasteSpecial Paste:=xlAll
Workbooks("melanietest.xls").Close savechanges:=False
End Sub

Gruß
Reinhard

#6

^^aaah wunderbar :smile:) aus welchen gründen auch immer es nicht funktioniert hat, jetzt klappts endlich!!

Vielen Dank!!

Gruß
Melanie

#7

Hallo Melanie,

^^aaah wunderbar :smile:) aus welchen gründen auch immer es nicht
funktioniert hat, jetzt klappts endlich!!

so wie ich das sehe bist du kein vollkommend bei Null anfangender Vba Newbie, du konntest locker meinen Code umsetzen.
Um dein Wissen in Vba zu vertiefen, nimm meinen ersten Code, ggfs. gehe in mit F8 durch o.ä., wichtig ist, daß du herasufindest warum der Code bei dir nicht funktionierte, bei mir funktionierte er ja.

dadurch lernst du Vba.
Ist ja wurscht ob der Fehler ein Vertippsler war oder sonstwas.
Wichtig für dich ist bei Fehlern im Code suchen zu können wodran das denn liegt und das herausfinden.

Vielen Dank!!

Gerne, de nada.

Gruß
Reinhard