Ich habe jetzt nochmal 2 Formeln, in denen habe ich versucht Range und Cells zu beachten, was genau mache ich hier noch falsch?
Immer wenn ich mehre If Vergleiche und Bereiche habe funktioniert es leider noch nicht.
With Worksheets("Sheet1")
gggg = .Range("LA1").Column
gggh = .Range("BOJ1").Column
For gggi = gggg To gggh
If .Cells(gggi, 5).Value = "1" Then
.Cells(gggi, 6).Value = "1"
ElseIf .Cells(gggi, 1).Value < .Cells(ggi, 36).Value Then
.Cells(gggi, 6).Value = "1"
ElseIf .Cells(gggi, 1).Value > .Cells(ggi, 37).Value Then
.Cells(gggi, 6).Value = "1"
Else: .Cells(gggi, 6).Value = "0"
End If
Next
End With
With Worksheets("Sheet1")
Dim gggp As Long
Dim gggq As Long
For gggp = 13 To 14
For gggq = 12 To 13
gggj = .Range("LA1").Column
gggk = .Range("BOJ1").Column
gggl = .Range("BQC1").Column
gggm = .Range("DTL1").Column
For gggn = gggj To gggk
For gggo = gggl To gggm
If .Cells(gggn, 3).Value = "1" And _
.Cells(gggn, 12).Value > "" Then
.Range(gggo, gggp).Value = .Range(gggn, gggq).Value
End If
Next
End With
Wäre super, wenn es sich nochmal jemand anschauen könnte.
Danke
|