Thema Datum  Von Nutzer Rating
Antwort
29.01.2016 18:29:27 kaba
NotSolved
29.01.2016 19:46:42 Gast88407
NotSolved
30.01.2016 15:24:33 kaba
NotSolved
30.01.2016 15:30:39 Gast28693
NotSolved
Rot =NETTOARBEITSTAGE("1.01.2016";"31.01.2016")
 30.01.2016 19:42:30 Gast60001
NotSolved
30.01.2016 21:38:55 kaba
NotSolved
30.01.2016 22:08:36 Gast2964
NotSolved
30.01.2016 22:21:40 kaba
NotSolved
31.01.2016 09:05:38 Gast46244
*****
Solved
31.01.2016 16:16:25 kaba
NotSolved
31.01.2016 19:51:50 Gast72341
NotSolved

Ansicht des Beitrags:
Von:
Gast60001		 Datum:
30.01.2016 19:42:30		 Views:
987		 Rating:
     
Antwort:
  Ja
Thema:
=NETTOARBEITSTAGE("1.01.2016";"31.01.2016")

Hallo!

Also habe mal den Code erweitert. Auf die Zelleneingabe beziehe ich mich da nicht. Du hast ja 12 folgende Spalten die nur 1 bis 12 darsellen. Wenn man das weiß, kann man da auch gleich eine Schleife von 1 bis 12 nutzen.

HAbe es jetzt so gemacht, dass in Zeile 10 die Arbeitstage und darunter die Zahl mal 8 geschrieben wird. Könnte man auch in eine Zeile packen. So hast du aber die Tage auch noch separat. Zudem gibt es die FUnktin bei meinem Excel noch nicht. Kann deshalb nur grob programmieren ohne zu testen. Schau mal ob es so geht oder alles zusammen in einer Spalte erfasst werden soll?

Eins aber noch. Laut Beschreibung der Funktion berechnet die dir die Arbeitstage vom ersten bis letzten Tag des Monats. Feiertage werde nicht abgezogen. Die kann man als dritten Parameter übergeben. Die müssen aber irgendwo vermerkt sein. Weiß nicht, ob du so was schon hast oder die noch eingetragen werden müssen bzw. du die abgezogen haben willst.

VG

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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) = ""
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(11, 1 + i) = ActiveSheet.Cells(10, 1 + i) * 8
End If
  
Next i
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
29.01.2016 18:29:27 kaba
NotSolved
29.01.2016 19:46:42 Gast88407
NotSolved
30.01.2016 15:24:33 kaba
NotSolved
30.01.2016 15:30:39 Gast28693
NotSolved
Rot =NETTOARBEITSTAGE("1.01.2016";"31.01.2016")
 30.01.2016 19:42:30 Gast60001
NotSolved
30.01.2016 21:38:55 kaba
NotSolved
30.01.2016 22:08:36 Gast2964
NotSolved
30.01.2016 22:21:40 kaba
NotSolved
31.01.2016 09:05:38 Gast46244
*****
Solved
31.01.2016 16:16:25 kaba
NotSolved
31.01.2016 19:51:50 Gast72341
NotSolved