habe ein Problem! Ich möchte grau hinterlegte Zelle aus einem Blatt in ein anderes Blatt übertragen!
Funktioniert soweit einwandfrei! Bis auf, dass er mir nur die Werte einfügt, die Formatierung aber nicht mitnimmt! (Das ist kritisch, da ich gerne die grau hinterlegten Felder, welche auch umrahmt sind gerne mitkopiert hätte!)
Weiss jemand vielleicht, wie ich folgendes Makro umändern sollte!?
Option Explicit
Sub Zellen_kopieren()
Dim Zelle As Object
Dim Datei1 As Worksheet, Datei2 As Worksheet
Set Datei1 = Workbooks("Mappe1").Worksheets("Personalstammdaten")
Set Datei2 = Workbooks("Mappe2").Worksheets("Datenblatt")
For Each Zelle In Datei1.UsedRange
If Zelle.Interior.ColorIndex = 15 Then _
Datei2.Range(Zelle.Address) = Zelle
Next Zelle
End Sub
Danke im Voraus!
Gruß Chris