Vergleiche Daten in vorangeganger Spalte mit <

Hi!
ich komme einfach nicht weiter... :
ich möchte Daten in 2 Spalten vergleichen A1, B1, manchmal steht dabei auch ein Dabei soll dann die Zeile B1 rot markiert werden wenn B1 > 2* A1 ist. soweit so gut, funktioniert immer, außer es steht in beiden Zeilen ein
Public Sub Vergleich_Cells() a = Cells(1, 1) b = Cells(1, 2) If Left(a, 1) = "= a * 2 Then Cells(1, 2).Interior.Color = vbRed End If End Sub

ich habe eine einfache Beispieldatei auch inklusive Code angehängt https://www.herber.de/bbs/user/85053.xlsx
hoffe es findet jemand den fehler, anscheinend seh ich den Wald vor lauter bäumen nicht...
Danke,
Lg
Julia

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ich muss leider nochmal nachfragen: ich wollte den oben stehenden code so erweitern, dass ich nicht nur "A1" mit "B1" vergleiche, sondern über eine Schleife durch eine Reihe bis nix mehr drinnen steht.
dachte an:
Public Sub Vergleich_Cells()
Dim a As Double
Dim b As Double
for j= 1 to 9 'Bsp bis spalte 9
a = Application.Substitute(Cells(1, j), "<", "")
b = Application.Substitute(Cells(1, j+1), "<", "")
If b >= a * 1.9 Then
Cells(1, j+1).Interior.Color = vbred
Else
Cells(1, j+1).Interior.Color = xlNone
End If
next j</i>
aber das funzt nicht .... markiert immer meine ganze zeile rot, egal was drinnen steht...
wichtig wäre auch, dass in den zellen das "kleiner" zeichen erhalten bleibt, da es sich um Analysedaten handelt....
ich werd noch zum Elch :(
Danke schonmal für alle Tips,
Lg
Julia

Dim a As Double Dim b As Double Dim j As Long For j = 1 To 9 'Bsp bis spalte 9 a = Application.Substitute(Cells(1, j), "= a * 1.9 Then Cells(1, j + 1).Interior.Color = vbRed Else Cells(1, j + 1).Interior.Color = xlNone End If Next j

Dim a As Double Dim b As Double Dim j As Long Dim letzteSpalte As Long letzteSpalte = Cells(1, Columns.Count).End(xlToLeft).Column - 1 'immer eine Spalte weniger For j = 1 To letzteSpalte 'Bsp bis spalte 9 a = Application.Substitute(Cells(1, j), "= a * 1.9 Then Cells(1, j + 1).Interior.Color = vbRed Else Cells(1, j + 1).Interior.Color = xlNone End If Next j

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E	F	G	H	I	J
1	<1	1	<3	<2	<3	7	<5	<6	<7	<8

Vergleiche Daten in vorangeganger Spalte mit <

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleiche Daten in vorangeganger Spalte mit <

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread