Microsoft Excel

Herbers Excel/VBA-Archiv

vergleiche zellen mit VBA dann färben

Betrifft: vergleiche zellen mit VBA dann färben von: helena
Geschrieben am: 11.09.2004 12:46:05

Hallo Excelianer

kleines Problem was mich quält

habe ins Spalte A3:A50 und B3:B50 Werte möchte
Zellen vergleichen und die gleichen Werte in Spalte A+B
einfärben.

DANKE für Lösungsansatz

gruss helena

  


Betrifft: upps was vergessen von: helena
Geschrieben am: 11.09.2004 13:26:07

die Werte sehen so aus 12_Rech_XXX.xls
der Vergleich sollte sich nur auf die nummerischen werte beziehen
also bis zum ersten _UNDERLINE, d.h. die Zahlen sind der eigentliche
Vergleichswert

DANKE

gruss helena


  


Betrifft: bedingte formatierung von: ransi
Geschrieben am: 11.09.2004 14:17:02

hallo

klappt mit der bedingten formatierung.


gruß ransi


  


Betrifft: AW: upps was vergessen von: GraFri
Geschrieben am: 11.09.2004 14:20:14

Hallo

wenn ich alles richtig verstanden habe:



Sub Vergleich()
Dim n           As Long
Dim Stelle      As Integer

For n = 3 To 50
    With Worksheets("Tabelle1").Range("A" & n)
        Stelle = InStr(.Value, "_")
        If Stelle <> 0 Then
            If Left(.Value, Stelle - 1) = _
               Left(.Offset(0, 1).Value, Stelle - 1) Then
                .Interior.ColorIndex = 3
                .Offset(0, 1).Interior.ColorIndex = 3
            End If
        End If
    End With
Next n
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Mit freundlichen Grüßen, GraFri


  


Betrifft: Danke Euch beiden einfach perfekt ...(o.T) von: helena
Geschrieben am: 11.09.2004 14:26:06

.


 

Beiträge aus den Excel-Beispielen zum Thema "vergleiche zellen mit VBA dann färben"