Nettoarbeitstage Excel VBA ermitteln
03.11.2014 10:48:03
braun
Dieser Code klappt super, allerdings steht in der Spalte Enddatum manchmal nichts drin, wenn diese leer ist, möchte ich die Zahl 99 einfügen.
Ich weiß nicht wie ich die WENN-Fkt. mit der Fkt Nettoarbeitstage kombiniere.
Freue mich über jede Hilfe!
Sub Makro1()
spalte = 19
letzte_zeile = Range(Cells(65536, spalte), Cells(65536, spalte)).End(xlUp).Row
Columns("N:N").Select
Selection.Insert Shift:=xlToRight
Range("N2").Select
ActiveCell.FormulaR1C1 = "=NETWORKDAYS(RC[-1],RC[1])"
Range("N:N,N1").Select
Selection.NumberFormat = "0"
Range("N2").Select
Selection.AutoFill Destination:=Range("N2:N" & letzte_zeile), Type:=xlFillDefault
Range("N1").Select
ActiveCell.FormulaR1C1 = "Laufzeit"
End Sub
Anzeige