29.01.2019, 10:39
Hallo liebes Clever Excel Forum,
ich habe zwei identische Dateien, die sich lediglich in der Füllfareb bestimmter Zellen unterscheiden. Da hierbei parallel gearbeitet wurde, möchte ich gerne eine Datei daraus machen, die von beiden Datein die Farbfüllungen enthält.
Jetzt ist es leider so, das aktuell einfach die eine Datei die andere ersetzt, sprich die Prüfung ob die Zelle bereitsgefüllt ist in der Ursprungsdatei schläft fehl. Somit werden bereits markierte Zellen mit weiß versehen, obwohl die Farbe, sofern diese besteht, bleiben soll. Mein Code sieht aktuell so aus:
Über Tipps und Hilfe freue ich mich! [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
ich habe zwei identische Dateien, die sich lediglich in der Füllfareb bestimmter Zellen unterscheiden. Da hierbei parallel gearbeitet wurde, möchte ich gerne eine Datei daraus machen, die von beiden Datein die Farbfüllungen enthält.
Jetzt ist es leider so, das aktuell einfach die eine Datei die andere ersetzt, sprich die Prüfung ob die Zelle bereitsgefüllt ist in der Ursprungsdatei schläft fehl. Somit werden bereits markierte Zellen mit weiß versehen, obwohl die Farbe, sofern diese besteht, bleiben soll. Mein Code sieht aktuell so aus:
Code:
Sub Farben_kopieren()
Dim rng As Range
Dim Zeile As Integer
Dim WsCount As Integer
Dim n As Integer
Dim Pfad As String
Application.ScreenUpdating = False
Set mybook = ActiveWorkbook
Pfad = (mybook.Worksheets("Pfad").Cells(1, 1))
Set book = Workbooks.Open(Filename:=Pfad, ReadOnly:=True)
WsCount = book.Worksheets.Count
For n = 1 To WsCount
For Each rng In book.Sheets(n).Range("A2:L5000")
If Not mybook.Sheets(n).Cells(rng.Row, rng.Column).Interior.Color = None Then
mybook.Sheets(n).Cells(rng.Row, rng.Column).Interior.Color = book.Sheets(n).Cells(rng.Row, rng.Column).Interior.Color
End If
Next
Next n
MsgBox "Dateien wurden zusammengeführt"
book.Close
End Sub
Über Tipps und Hilfe freue ich mich! [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]