Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1388to1392
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nettoarbeitstage Excel VBA ermitteln

Nettoarbeitstage Excel VBA ermitteln
03.11.2014 10:48:03
braun
Guten Morgen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nettoarbeitstage Excel VBA ermitteln
03.11.2014 11:16:31
Rudi
Hallo,
Sub Makro1()
Dim Spalte As Long, Letzte_Zeile As Long
Spalte = 19
Letzte_Zeile = Range(Cells(Rows.Count, Spalte), Cells(Rows.Count, Spalte)).End(xlUp).Row
Columns("N:N").Insert Shift:=xlToRight
With Range(Cells(2, 14), Cells(Letzte_Zeile, 14))
.NumberFormat = "0"
.FormulaR1C1 = "=If(RC[1]="""",99,NETWORKDAYS(RC[-1],RC[1]))"
End With
Range("N1") = "Laufzeit"
End Sub
Gruß
Rudi

AW: Nettoarbeitstage Excel VBA ermitteln
07.11.2014 14:52:22
braun
Klappt super, danke :)
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige