Spalten Vergleich
27.09.2006 14:34:35
Cigo
Ich habe da ein Problem mit vergleichen von 2 Spalten, ich habe mir zwar ein VBA Script zusammengebastelt der zwei Spalten vergleicht und die werte die sich in der Spalte (H) aber nicht in der Spalte (I) wieder finden ROT in der Spalte (H) markiert und wiederum die Werte die sich in beider Spalten befinden in der Spalte (I) GRÜN Markiert.
Hier derCode:
Sub Tabellen_Vergleichen ()
Dim LoI As Long
Dim LoJ As Long
Dim LoLetzte1 As Long
Dim LoLetzte2 As Long
Dim BoNein As Boolean
LoLetzte1 = 65536
With Worksheets("Tabelle1")
If .Range("H65536") = "" Then LoLetzte1 = .Range("H65536").End(xlUp).Row
End With
LoLetzte2 = 65536
With Worksheets("Tabelle1")
If .Range("I65536") = "" Then LoLetzte2 = .Range("I65536").End(xlUp).Row
End With
For LoI = 1 To LoLetzte1
For LoJ = 1 To LoLetzte2
' Leerzellen nicht kennzeichnen
If Worksheets("Tabelle1").Cells(LoI, 8) <> "" Then
If Worksheets("Tabelle1").Cells(LoI, 8) = Worksheets("Tabelle1").Cells(LoJ, 9) Then
Worksheets("Tabelle1").Cells(LoJ, 9).Interior.ColorIndex = 4
BoNein = True
End If
End If
Next LoJ
If BoNein = False Then
If Worksheets("Tabelle1").Cells(LoI, 8) <> "" Then
Worksheets("Tabelle1").Cells(LoI, 8).Interior.ColorIndex = 3
End If
End If
BoNein = False
Next LoI
End Sub
Es gibt aber da noch ein Problem und zwar wenn sich z.B. in der Spalte (H) zweimal wert 100 befindet und in der Spalte (I) der Wert 100 nur einmal vorkommt markiert der Script den Wert in der Spalte (I) GRÜN und in der Spalte (H) werden die Werte nicht ROT markiert bzw. der Wert.
Denn es sollte der eine 100-er ROT markiert werden da er nur einmal in der Spalte (H) vorkommt.
Siehe Bild:
https://www.herber.de/bbs/user/37053.jpg"
Ich hoffe es ist nicht zu kompliziert und ihr könnt mir helfen.
Danke im Voraus.