|
VBA - 3 Bereiche vergleichen |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Sonntag, 27. April 2008 um 16:22 Uhr |
Zellinhalt nebenander liegender Zellen in 3 Bereichen vergleichenHier werden in 3 Bereichen jeweils 2 neben einander liegende Zellinhalte miteinander verglichen.
| Tabelle1 | th {font-weight:normal} | | A | B | C | D | E | F | | 3 | wird verglichen | wird verglichen | wird verglichen |
|---|
| 4 | 2 | 2 | 2 | 3 | 1 | 1 | | 5 | 1 | 2 | 6 | 6 | 4 | 7 | | 6 | | | | | | | | 7 | | | | | | | | 8 | | | | | | | | 9 | 1 | 2 | 3 | 3 | 4 | 5 | | 10 | 2 | 2 | 4 | 5 | 6 | 6 | | 11 | Wenn der Inhalt 2 nebeneinander liegenden Zellen ungleich ist, so werden diese |
|---|
| 12 | Rot eingefärbt. |
|---|
| | |
Option Explicit
Sub Tabellen_Vergleichen()
Dim LoI As Long
Dim LoLetzte1 As Long
Dim i As Integer
For i = 1 To 5 Step 2
LoLetzte1 = 65536
With Worksheets("Tabelle1")
If .Cells(65536, i) = "" Then LoLetzte1 = .Cells(65536, i).End(xlUp).Row
End With
For LoI = 1 To LoLetzte1
If Worksheets("Tabelle1").Cells(LoI, i) <> "" Then
If Worksheets("Tabelle1").Cells(LoI, i) <> Worksheets("Tabelle1").Cells(LoI, i + 1) Then
Worksheets("Tabelle1").Cells(LoI, i).Interior.ColorIndex = 3
Worksheets("Tabelle1").Cells(LoI, i + 1).Interior.ColorIndex = 3
Else
Worksheets("Tabelle1").Cells(LoI, i).Interior.ColorIndex = 0
Worksheets("Tabelle1").Cells(LoI, i + 1).Interior.ColorIndex = 0
End If
End If
Next LoI
Next i
End Sub
|
VBA Makro Beispiele 