Ja, ein Zahl ändern. :-D Habe aus versehen zuviel geändert. Hatte in der Zeile hier
ActiveSheet.Cells(13, 1 + i) = ActiveSheet.Cells(13, 1 + i) * 8
ausversehen auch auf die Zeile 13 gesetzt. Muss aber 10 sein, weil dort ja die Tage eingetragen werden. Hab das unten nochmal geändert. Jetzt sollte es aber klappen. VG
Sub arbeitstage()
Dim wert
Dim i
wert = ActiveSheet.Range("A1")
'Eintrag in A3
For i = 1 To 12
If ActiveSheet.Cells(10, 1 + i) <> "" Then
ActiveSheet.Cells(10, 1 + i) = ""
ActiveSheet.Cells(13, 1 + i) = ""
Else
ActiveSheet.Cells(10, 1 + i).FormulaLocal = "=(NETTOARBEITSTAGE(" & Chr(34) & DateSerial(wert, i, 1) & Chr(34) & ";" & Chr(34) & DateSerial(wert, i + 1, 1) - 1 & Chr(34) & "))"
ActiveSheet.Cells(13, 1 + i) = ActiveSheet.Cells(10, 1 + i) * 8
End If
Next i
End Sub
|