vor einiger Zeit hat mir das Forum sehr hilfreich bei der unten stehen Programmierung super geholfen.
Ziel ist, dass alle Daten in einer Datei, die aus mehreren Registerkarten besteht, jeweils in Spalte "M" (also 13) miteinander verglichen und doppelte Daten rot markiert werden sollen.
Nun zum Problem: Da sich die Datei geändert hat, zwei Spalten weniger, war die ursprüngliche Programmierung auf "O" (15) ausgelegt und hat wunderbar funktioniert.
Habe ich beim Ändern auf "M" und die 13 eventuell irgendetwas übersehen? Bin Programmierlaie.
Vielen Dank, parza
Nun der Code:
Dim strVergleich As String
Dim intActiveSheet As Integer
Dim intAnzahl As Integer
Dim lngLast As Long
Dim i As Long
Dim x As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
'Vergleichen und farbig stellen
With ThisWorkbook
For intAnzahl = 1 To .Worksheets.Count
lngLast = .Worksheets(intAnzahl).Cells(Rows.Count, 13).End(xlUp).Row
For intActiveSheet = 1 To .Worksheets.Count
If intActiveSheet intAnzahl Then
For i = 1 To lngLast
If .Worksheets(intAnzahl).Cells(i, 13).Value "" Then
strVergleich = .Worksheets(intAnzahl).Cells(i, 13).Value
For x = 1 To Worksheets(intActiveSheet).Cells(Rows.Count, 13).End(xlUp).Row
If strVergleich = Worksheets(intActiveSheet).Range("M" & x).Value Then
.Worksheets(intAnzahl).Cells(i, 13).Font.Color = vbRed
GoTo ENDE
End If
Next x
End If
ENDE:
Next i
End If
Next intActiveSheet
Next intAnzahl
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub