|
*grummel* (das wievielte Thema zu der gleichen Sache ist das inzwischen - 2. / 3. oder schon der 4.?)
Und wir sind erneut bei der Verständlichkeitssache:
Option Explicit
Sub Test()
Dim i As Long
With Worksheets("Sheet1")
For i = .Columns("LA").Column To .Columns("BOJ").Column
If .Cells(i, "BG").Value = .Cells(i, "BH").Value _
And .Cells(i, "C").Value = 0 _
And .Cells(i, "N").Value = 1 _
And .Cells(i, "A").Value >= .Cells(i, "AJ").Value _
And .Cells(i, "A").Value <= .Cells(i, "AK").Value _
Then
.Cells(i, "E").Value = 1
Else
.Cells(i, "E").Value = 0
End If
Next
End With
End Sub
-
DAS ist KEINE FORMEL, sondern ein Makro! Das Makro besteht aus einer Prozedur mit dem Namen Test.
-
Du willst hier über die Spaltenindizes iterieren: LA -> BOJ.
Jetzt verwendest du aber jenen Index, um eine Zeile anzusprechen! Aus dem Spalten-Index LA (->313) wird jetzt Zeilen-Index 313.
Im ersten Schleifendurchgang ist also i = 313 und du prüfst
BG313 = BH313
AND C313 = 0
AND N313 = 1
AND A313 >= AJ313
AND A313 <= AK313
und abhängig davon setzt (verdeutliche ich hier mit := ) du
E313 := 1 'oder 0
Stimmt das jetzt oder nicht?! >:|
Außerdem, wenn du Text ("1") und Zahlen (1) verwendest, dann wisse das beides in einem Vergleich zwei verschiedene paar Schuhe sind.
Wenn du Zahlen im Tabellenbatt stehen hast, dann schreib auch Zahlen wie oben im Makro gezeigt.
|