AW: einfachere Variante wäre...
22.02.2018 07:01:41
Burak
so langsam kommen wir deinen Wünschen näher.
Also gehe ich davon aus dass bei beiden Dateien, die Zellen sich im Tabellenblatt "Tabelle1" befindet.
Sub kopieren()
Dim i As Long
For i = 1 To 2
Workbooks("TabelleA.xlsm").Worksheets("Tabelle1").Range("B" & i).Copy
With Workbooks("TabelleB.xlsm").Worksheets("Tabelle1").Range("B" & i + 1)
.PasteSpecial Paste:=xlValues ' Werte
'.PasteSpecial Paste:=xlFormats ' Formate
.Interior.Color = Workbooks("TabelleA.xlsm").Worksheets("Tabelle1").Range("B" & i).Interior. _
Color 'Farbe
End With
Next i
Application.CutCopyMode = False
End Sub
Mit
.PasteSpecial Paste:=xlValues
werden Werte kopiert.
Mit
.PasteSpecial Paste:=xlFormats
Formate (was du ja nicht möchtest).
und mit
.Interior.Color = Workbooks("TabelleA.xlsm").Worksheets("Tabelle1").Range("B1:B2").Interior.Color
die Farbe ohne restliche Formate (Fettdruck, etc).
Hoffe das entspricht deinen Vorstellungen.