Code geschnitzt nur er läuft nicht
14.03.2006 15:44:53
Josef
Hallo Harald!
Habe jetzt den Code beisammen, nur leider läuft er nicht.Ohne If Then Else werden alle Werte richtig eingetragen.
Mit ActiveWorkbook.Worksheets("Februar").Range("B226") spreche ich die Zelle B226 im Arbeitsblatt ja an, oder?
Also wenn es keinen 29.2. gibt dann sollte ja nach Else alles weitergehen und der code für den 28.2. eingetragen werden.
Wo könnte hier bitte der Fehler meinerseits liegen?
Danke
Josef
Public
Sub Formel_Rückstand_29_3() 'März > Februar 29 Tage
Dim lZeile As Long
Sheets("März").Select
If Day(ActiveWorkbook.Worksheets("Februar").Range("B226")) = 29 And Month(ActiveWorkbook.Worksheets("Februar").Range("B226")) = 2 Then
For lZeile = 2 To 9
Range("C" & lZeile).FormulaR1C1 = _
"=IF(AND(MONTH(Februar!R226C2)=2,DAY(Februar!R226C2)=29,Februar!R[224]C[4]=""""),IF(Februar!R[216]C[4]="""",Februar!R[208]C[4],Februar!R[216]C[4]),IF(AND(MONTH(Februar!R226C2)=2,DAY(Februar!R226C2)=29,Februar!R[224]C[4]=""""),Februar!R[216]C[4],Februar!R[224]C[4]))"
Next lZeile
For lZeile = 2 To 9
Range("H" & lZeile).FormulaR1C1 = _
"=IF(AND(MONTH(Februar!R226C2)=2,DAY(Februar!R226C2)=29,Februar!R[224]C[4]=""""),IF(Februar!R[216]C[4]="""",Februar!R[208]C[4],Februar!R[216]C[4]),IF(AND(MONTH(Februar!R226C2)=2,DAY(Februar!R226C2)=29,Februar!R[224]C[4]=""""),Februar!R[216]C[4],Februar!R[224]C[4]))"
Next lZeile
For lZeile = 2 To 9
Range("M" & lZeile).FormulaR1C1 = _
"=IF(AND(MONTH(Februar!R226C2)=2,DAY(Februar!R226C2)=29,Februar!R[224]C[4]=""""),IF(Februar!R[216]C[4]="""",Februar!R[208]C[4],Februar!R[216]C[4]),IF(AND(MONTH(Februar!R226C2)=2,DAY(Februar!R226C2)=29,Februar!R[224]C[4]=""""),Februar!R[216]C[4],Februar!R[224]C[4]))"
Next lZeile
Else
If Day(ActiveWorkbook.Worksheets("Februar").Range("B226")) = "" And _
Month(ActiveWorkbook.Worksheets("Februar").Range("B226")) = "" And _
Day(ActiveWorkbook.Worksheets("Februar").Range("B218")) = 28 And _
Month(ActiveWorkbook.Worksheets("Februar").Range("B218")) = 2 Then
For lZeile = 2 To 9
Range("C" & lZeile).FormulaR1C1 = _
"=IF(AND(MONTH(Februar!R218C2)=2,DAY(Februar!R218C2)=28,Februar!R[216]C[4]=""""),IF(Februar!R[208]C[4]="""",Februar!R[200]C[4],Februar!R[208]C[4]),IF(AND(MONTH(Februar!R218C2)=2,DAY(Februar!R218C2)=28,Februar!R[216]C[4]=""""),Februar!R[208]C[4],Februar!R[216]C[4]))"
Next lZeile
For lZeile = 2 To 9
Range("H" & lZeile).FormulaR1C1 = _
"=IF(AND(MONTH(Februar!R218C2)=2,DAY(Februar!R218C2)=28,Februar!R[216]C[4]=""""),IF(Februar!R[208]C[4]="""",Februar!R[200]C[4],Februar!R[208]C[4]),IF(AND(MONTH(Februar!R218C2)=2,DAY(Februar!R218C2)=28,Februar!R[216]C[4]=""""),Februar!R[208]C[4],Februar!R[216]C[4]))"
Next lZeile
For lZeile = 2 To 9
Range("M" & lZeile).FormulaR1C1 = _
"=IF(AND(MONTH(Februar!R218C2)=2,DAY(Februar!R218C2)=28,Februar!R[216]C[4]=""""),IF(Februar!R[208]C[4]="""",Februar!R[200]C[4],Februar!R[208]C[4]),IF(AND(MONTH(Februar!R218C2)=2,DAY(Februar!R218C2)=28,Februar!R[216]C[4]=""""),Februar!R[208]C[4],Februar!R[216]C[4]))"
Next lZeile
End If
End If
End
Sub