Hallo EXCEL-Freunde,
ich versuche, wenn zwei Zellen den gleichen Inhalt haben, eine Zelle farblich
zu markieren. Die drei bedingten Formatierungen von EXCEL reichen von der Anzahl nicht
aus. Nachstehend eine kurze Beschreibung und anschliessend ein erster Lösungs-
Ansatz, der aber sicher einfacher geht (mit Schleifen?). Dabei soll die Farb-
ermittlung immer dann erfolgen, wenn das Blatt neu berechnet wird:

A B C D E F G 4   Wert1           5 1 B5           6 2 B6           7 3 B7           8 4 B8           9 5 B9           10 6 B10           11 7 B11           12               13               14   Wenn Wert1 jeweils identisch mit   15   Wert 2 bis Wert 7, dann farblich.   16               17   ABER: immer nur in gleicher Zeile   18   hier numeriert mit 1 - 7   19               20               21               22               23               24   Wert2 Wert3 Wert4 Wert5 Wert6 Wert7 25 1 B5 nein B5 B5 B5 B5 26 2 nein B6 B6 B6 B6 B6 27 3 nein nein B7 B7 B7 B7 28 4 B8 nein B8 B8 B8 B8 29 5 nein B9 B9 B9 B9 B9 30 6 nein nein B10 B10 B10 B10 31 7 B11 nein B11 B11 B11 B11

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Private Sub Worksheet_Calculate()
Dim Wert1 As String, Wert2 As String, Wert3 As String
On Error Resume Next
'''''''''VERGLEICH SPALTE B'''''''''''''''''''''
' Vergleich B5 mit B25
Wert1 = Cells(5, 2)
Wert2 = Cells(25, 2)
If Wert1 = Wert2 Then
Cells(25, 2).Interior.ColorIndex = 3
Else
Cells(25, 2).Interior.ColorIndex = -4142
End If
' Vergleich B6 mit B26
Wert1 = Cells(6, 2)
Wert2 = Cells(26, 2)
If Wert1 = Wert2 Then
Cells(26, 2).Interior.ColorIndex = 3
Else
Cells(26, 2).Interior.ColorIndex = -4142
End If
' Vergleich B7 mit B27
Wert1 = Cells(7, 2)
Wert2 = Cells(27, 2)
If Wert1 = Wert2 Then
Cells(27, 2).Interior.ColorIndex = 3
Else
Cells(27, 2).Interior.ColorIndex = -4142
End If
''''''''''VERGLEICH SPALTE C'''''''''''''''''''''''
' Vergleich B5 mit C25
Wert1 = Cells(5, 2)
Wert3 = Cells(25, 3)
If Wert1 = Wert3 Then
Cells(25, 3).Interior.ColorIndex = 3
Else
Cells(25, 3).Interior.ColorIndex = -4142
End If
' Vergleich B6 mit C26
Wert1 = Cells(6, 2)
Wert3 = Cells(26, 3)
If Wert1 = Wert3 Then
Cells(26, 3).Interior.ColorIndex = 3
Else
Cells(26, 3).Interior.ColorIndex = -4142
End If
' Vergleich B7 mit C27
Wert1 = Cells(7, 2)
Wert3 = Cells(27, 3)
If Wert1 = Wert3 Then
Cells(27, 3).Interior.ColorIndex = 3
Else
Cells(27, 3).Interior.ColorIndex = -4142
End If
On Error GoTo 0
End Sub

Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
Private Tippgemeinschaft für Lotto oder KENO: http://www.kenostrategen.de