Syntaxfehler oder falsche Ausgabe bei IF Anweisung

[Basti567]

Hallo,

kann mir jemand sagen was in diesem Code falsch ist?

Ich bekomme immer die Meldung "Syntaxfehler" und wenn ich nach dem Else noch ein If hinsetze bekomme ich immer nur
"Ja" ausgegeben. Obwohl die Spalte nur 1439, 99 geht - also müsste ja bei 5000 eigentlich ein Nein stehen.

Dim i As Integer
For i = 5 To 30


If Worksheets("Tabelle1").Cells(i, 5).Value <= Worksheets("Tabelle1").Range("M4") Then
Range("M5") = "ja"

Else

Worksheets("Tabelle1").Range("M4") > Worksheets("Tabelle1").Cells(i, 5).Value Then
Worksheets("Tabelle1").Range("M5") = "Nein"
End If

Next i



End Sub

[Kuwer]

Hallo,

Code:

For i = 5 To 30
  If Worksheets("Tabelle1").Cells(i, 5).Value <= Worksheets("Tabelle1").Range("M4") Then
    Worksheets("Tabelle1").Range("M5") = "ja"
  Else
    Worksheets("Tabelle1").Range("M5") = "Nein"
  End If
Next i

Gruß Uwe

[Basti567]

Leider nicht - ursprünglich hatte ich das auch so,

aber er gibt nur Ja aus. Auch dann wenn die Zahl in M4 größer ist als die Zahlen in i.

Auch bei deinem- ich weiß nur nicht warum?

[Kuwer]

Hallo,

so ist die Anweisung in Deinem Code.

Gruß Uwe

[ReginaR]

Hi,
grätsch mal rein:

Was mir auffält, Du arbeitest die Zeilen 5 bis 30 ab und lässt das Ergebnis, also Ja oder Nein immer in M5 ausgeben. D.h., wenn in der letzten abgearbeiteten Zeile ein Wert kleiner als in M4 steht, ist das Ergebnis "Ja", auch wenn zwischen drinnen mal Werte stehen, die größer als in M4 sind.
Ist das so beabsichtigt?

Falls der Vergleich nicht hinhaut, lohnt es such auch mal zu überprüfen, ob in den Zellen wirklich Zahlen stehen.

Gruß Regina

[Basti567]

Hallo Regina,

nein das is so nicht beachsichtigt- Eigentlich sollten die Zellen in Spalte F von 5 - 30 geprüft werden, mir ist aber aufgefallen,
dass so nicht passiert wie gedacht.

Wenn in Zelle 1 1200 steht und in Zelle 2 1250 dann müsste bei einer abfrage von 1220 eigentlich auch ja rauskommen, tut es aber nicht.

Die Spalte geht bis 1439,99 bei 5000 müsste also nein stehen, tut es aber auch nicht.

Keine Ahnung warum, muss ich anders machen.

[ReginaR]

... lade doch mal eine Beispielmappe hoch, damit man den Fehler nachvollziehen kann.

Gruß Regina

[Basti567]

hier - bitte schön - Button 3

[Klaus-Dieter]

Hallo,

du lässt die Daten mit einer Schleife prüfen, die über 25 Zeilen läuft. Das Ergebnis hat eine feste Zelle, also wird da immer der Zustand aus Zeile 30 eingetragen. So wäre das aus meiner Sicht richtiger:

Tabelle1

	D	E	F	G	H	I	J	K	L	M
4	0	1.179,99	0	0	0	0	0	0		1.250,00
5	1.180,00	1.189,99	0,99	0	0	0	0	0		ja
6	1.190,00	1.199,99	7,99	0	0	0	0	0		ja
7	1.200,00	1.209,99	14,99	0	0	0	0	0		ja
8	1.210,00	1.219,99	21,99	0	0	0	0	0		ja
9	1.220,00	1.229,99	28,99	0	0	0	0	0		ja
10	1.230,00	1.239,99	35,99	0	0	0	0	0		ja
11	1.240,00	1.249,99	42,99	0	0	0	0	0		ja
12	1.250,00	1.259,99	49,99	0	0	0	0	0		Nein
13	1.260,00	1.269,99	56,99	0	0	0	0	0		Nein
14	1.270,00	1.279,99	63,99	0	0	0	0	0		Nein
15	1.280,00	1.289,99	70,99	0	0	0	0	0		Nein
16	1.290,00	1.299,99	77,99	0	0	0	0	0		Nein
17	1.300,00	1.309,99	84,99	0	0	0	0	0		Nein
18	1.310,00	1.319,99	91,99	0	0	0	0	0		Nein
19	1.320,00	1.329,99	98,99	0	0	0	0	0		Nein
20	1.330,00	1.339,99	105,99	0	0	0	0	0		Nein
21	1.340,00	1.349,99	112,99	0	0	0	0	0		Nein
22	1.350,00	1.359,99	119,99	0	0	0	0	0		Nein
23	1.360,00	1.369,99	126,99	0	0	0	0	0		Nein
24	1.370,00	1.379,99	133,99	0	0	0	0	0		Nein
25	1.380,00	1.389,99	140,99	0	0	0	0	0		Nein
26	1.390,00	1.399,99	147,99	0	0	0	0	0		Nein
27	1.400,00	1.409,99	154,99	0	0	0	0	0		Nein
28	1.410,00	1.419,99	161,99	0	0	0	0	0		Nein
29	1.420,00	1.429,99	168,99	0	0	0	0	0		Nein
30	1.430,00	1.439,99	175,99	0	0	0	0	0		Nein

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8

---

Hallo,

der geänderte Quelltext:

Code:

For i = 5 To 30
  If Worksheets("Tabelle1").Cells(i, 5).Value <= Worksheets("Tabelle1").Range("M4") Then
    Worksheets("Tabelle1").Cells(i, 13) = "ja"
  Else
    Worksheets("Tabelle1").Cells(i, 13) = "Nein"
  End If
Next i