Bedingte Formatierung bei doppelter Wert
30.08.2019 12:25:39
Nico
ich habe eine Avis-File für meine Spediteure erstellt. Am Vortag schicke ich ein Avis mit Referenz-Nummern für den Folgetag. Am Folgetag morgens schicke ich das finale Avis dann erneut.
Mein Ziel ist es, dass ich in meinem automatischen Avis einen button habe, mit dem
1. das bereits gespeicherte Avis vom Vorabend importiert wird
2. eine bedingte Formatierung mir doppelte Werte farblich markiert im Blatt "Input" Bereich D10:E34; di im Blatt "Import" vorkommen.
Den Code für den Import habe ich bereits und der funktioniert auch soweit. lediglich die _ _ bedingte Formatierung bin ich etwas ratlos.
Sub FileSelection()
Dim chbo As CheckBox
Dim ws As Worksheet, datei1 As String
Dim dat1 As Date, dat2 As String
Application.ScreenUpdating = False
For Each ws In Worksheets(Array("Import"))
ws.Cells.Clear
For Each chbo In ws.CheckBoxes
If chbo.Name "" Then chbo.Delete
Next chbo
Next ws
'prüfen ob Datei vorhanden ist, falls ja dann import Sheet Input
If Dir(Range("C8").Value) & ".xlsm" "" Then
datei1 = Range("C8").Value & ".xlsm"
Workbooks.Open datei1, UpdateLinks:=False
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
With ActiveWorkbook.Worksheets("Input")
.Cells.Select
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells.Copy ThisWorkbook.Sheets("Import").Cells(1, 1)
ActiveWorkbook.Close savechanges:=False
End With
Else
datei1 = "Kein bestehendes Avis gefunden"
End If
End Sub