Könntest du bitte beschreiben (oder einen Link auf den Beitrag verlinken, indem dieser Quelltext entstand) was du genau bezweckst.
Ich sehe da spontan einen groben Schnitzer (bzw. Anfängerfehler) der zu merkwürdigen Verhalten und im schlimmsten Fall sogar Excel zum Absturz bringen könnte.
Zum Thema selber:
ich vermute es geht um die Zeile (recht weit unten):
If TARGET.Address = "$T$" & t And IsEmpty(TARGET) = True Then
Range("T" & t).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-9]>0,0.0001,(RC[-5]-RC[-6])*24)"
Kürzer:
If TARGET.Address = "$T$" & t And IsEmpty(TARGET) = True Then
Range("T" & t).FormulaR1C1 = "=IF(RC[-9]>0,0.0001,(RC[-5]-RC[-6])*24)"
Das auf die U-Spalte umgemünzt und mit neuer Formel [ =WENN(K7>0;0,0001;T7) ]:
If TARGET.Address = "$U$" & t And IsEmpty(TARGET) = True Then
Range("U" & t).FormulaR1C1 = "=IF(RC[-10]>0,0.0001;RC[-1])"
Aber wie schon gesagt. Da lauert der Teufel im Detail an ganz anderen Stellen.
|