19.10.2020, 16:31
Hallo zusammen,
ich schreibe zurzeit eine große Projektarbeit.
Mein zusammengefügtes Makro funktioniert bis zu einen gewissen Punkt, dann wird die Formel zwar noch berechnet aber zeigt kein Ergebnis mehr an.
Es wurden diverse Möglichkeiten geprüft, leider hat keine geholfen. Auch wenn man das Makro einzeln auslöst wird kein Ergebnis angezeigt. Dies gilt auch für die nachfolgende Formel. Im Laufe des Makros wurde die Formel bereits des öfteren verwendet und funktionierte dort ohne Probleme.
Begrenzt man die Formel auf die Spalte "LA", funktioniert diese.
An was kann dies liegen? Evtl. maximale Anzahl von Formeln erreicht oder maximale Berechnungsanzahl?
Evtl. auch an was anderen?
Für Eure Hilfe wär ich dankbar.
With Worksheets("Sheet1")
x = .Range("LA1").Column
y = .Range("BOJ1").Column
For i = x To y
If .Cells(i, 59).Value2 = .Cells(ggge, 60) And _
.Cells(i, 3).Value2 = "0" And _
.Cells(i, 14).Value2 = "1" And _
.Cells(i, 1).Value2 >= .Cells(i, 36) And _
.Cells(i, 1).Value2 <= .Cells(i, 37) Then
.Cells(i, 5).Value2 = "1"
Else: .Cells(i, 5).Value2 = "0"
End If
Next
End With
MfG
ich schreibe zurzeit eine große Projektarbeit.
Mein zusammengefügtes Makro funktioniert bis zu einen gewissen Punkt, dann wird die Formel zwar noch berechnet aber zeigt kein Ergebnis mehr an.
Es wurden diverse Möglichkeiten geprüft, leider hat keine geholfen. Auch wenn man das Makro einzeln auslöst wird kein Ergebnis angezeigt. Dies gilt auch für die nachfolgende Formel. Im Laufe des Makros wurde die Formel bereits des öfteren verwendet und funktionierte dort ohne Probleme.
Begrenzt man die Formel auf die Spalte "LA", funktioniert diese.
An was kann dies liegen? Evtl. maximale Anzahl von Formeln erreicht oder maximale Berechnungsanzahl?
Evtl. auch an was anderen?
Für Eure Hilfe wär ich dankbar.
With Worksheets("Sheet1")
x = .Range("LA1").Column
y = .Range("BOJ1").Column
For i = x To y
If .Cells(i, 59).Value2 = .Cells(ggge, 60) And _
.Cells(i, 3).Value2 = "0" And _
.Cells(i, 14).Value2 = "1" And _
.Cells(i, 1).Value2 >= .Cells(i, 36) And _
.Cells(i, 1).Value2 <= .Cells(i, 37) Then
.Cells(i, 5).Value2 = "1"
Else: .Cells(i, 5).Value2 = "0"
End If
Next
End With
MfG