eine Zelle B5 im Tabellenblatt2 besitzt einen numerischen Wert, eine Musterfarbe und eine Schriftfarbe.
Wie kann man in VBA diesen Wert mit den Formaten in die Zelle A3 des Tabellenblatts 1 übertragen?
Besten Dank für Hilfen.
Gruß
Jean
Sub Übertragen()
Sheets("Tabelle1").Range("B5").Value = _
Sheets("Tabelle2").Range("B5").Value
Sheets("Tabelle1").Range("B5").Font.ColorIndex = _
Sheets("Tabelle2").Range("B5").Font.ColorIndex
Sheets("Tabelle1").Range("B5").Interior.ColorIndex = _
Sheets("Tabelle2").Range("B5").Interior.ColorIndex
End Sub
Gruß
Sigi
Sub Übertragen()
Sheets("Tabelle2").Range("B5").Copy Destination:=Sheets("Tabelle1").Range("A3")
End Sub
Gruß
Nepumuk
Sub Uebertragen()
With Sheets("Tabelle1").Range("B5")
Sheets("Tabelle2").Range("B5").Copy .Cells
.Value = .Value
End With
End Sub
Je nach Erfordernis kann es vor- oder ein nachteilig sein, dass dabei alle Formate
(z. B. auch Rahmen) mitkopiert werden.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort