Ich habe eine Tabellen mit Sichtplanung (Soll Zeiten) und eine Tabelle mit „Ist Zeiten“ wann die Agenten gearbeitet haben.
Ich möchte gern einen Code haben, den die Abweichung hervorhebt am besten (nur wenn möglich ist) die Abweichung ab 6 Minuten hervorhebt.
Die 2 Tabellen haben folgende Werten:
Spalte A: Name
Spalte B: Anfang Schicht
Spalte C: Ende Schicht
Spalte D: Anfang Mittagspause
Spalte E: Ende Mittaspause
Ich habe im Netz einen Code gefunden, den aber die ganze Zeile markiert, bei nicht Übereinstimmungen:
Sub Vergleichen()
Dim rng As Range
Dim lRow As Long, lRowT As Long
Dim iCol As Integer
Dim bln As Boolean
Set rng = Worksheets(„Tabelle2“).Range(„A1“).CurrentRegion
For lRow = 1 To Range(„A1“).CurrentRegion.Rows.Count
bln = True
For lRowT = 1 To rng.Rows.Count
For iCol = 1 To 5
If Cells(lRow, iCol) rng(lRowT, iCol) Then
bln = False
Exit For
End If
Next iCol
If bln = True Then
Exit For
ElseIf lRowT