Herbers Excel/VBA-Archiv
vergleiche zellen mit VBA dann färben
- vergleiche zellen mit VBA dann färben von helena vom 11.09.2004 12:46:05
- upps was vergessen - von helena am 11.09.2004 13:26:07
- bedingte formatierung - von ransi am 11.09.2004 14:17:02
- AW: upps was vergessen - von GraFri am 11.09.2004 14:20:14
- Danke Euch beiden einfach perfekt ...(o.T) - von helena am 11.09.2004 14:26:06
- Danke Euch beiden einfach perfekt ...(o.T) - von helena am 11.09.2004 14:26:06
- bedingte formatierung - von ransi am 11.09.2004 14:17:02
 |
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
.
| |