Microsoft Excel

Herbers Excel/VBA-Archiv

gleichbleibende Werte markieren

Betrifft: gleichbleibende Werte markieren von: Susanne Zettl
Geschrieben am: 24.08.2004 20:20:41

Mtrn 01 02 03
123 3 3 3
321 4 3 5
456 1 4 6
654 5 5 5
789 9 7 6
987 7 8 9

es sollen die Werte markiert werden die ueber die 3 Perioden gleich bleiben
z. B. hier bei Mtrnr 123 und 654

  


Betrifft: AW: gleichbleibende Werte markieren von: Roland Hochhäuser
Geschrieben am: 24.08.2004 21:29:09

Hallo Susanne,
den nachfolgenden Code in ein Modul eingeben und starten:
Sub Markieren()
Dim i As Integer
i = 1
Do While Range("A" & i) <> ""
If Range("B" & i).Value = Range("C" & i).Value And _
Range("B" & i).Value = Range("D" & i).Value Then
Range("A" & i).Interior.ColorIndex = 4
End If
i = i + 1
Loop
End Sub

Gruß
Roland


  


Betrifft: AW: gleichbleibende Werte markieren ohne VBA von: EtoPHG
Geschrieben am: 24.08.2004 22:09:29

Hallo Susanne,
Das geht auch ohne VBA, mit bedingter Formatierung

Zelle B2 Formel ist gleich =(C2+D2)/2
Zelle C2 Formel ist gleich =(B2+D2)/2
Zelle D2 Formel ist gleich =(B2+C2)/2

Anschliessend Formate der Spalten B,C,D kopieren.

Gruss Hansueli


 

Beiträge aus den Excel-Beispielen zum Thema "gleichbleibende Werte markieren"