Thema Datum  Von Nutzer Rating
Antwort
29.01.2016 18:29:27 kaba
NotSolved
Blau =NETTOARBEITSTAGE("1.01.2016";"31.01.2016")
29.01.2016 19:46:42 Gast88407
NotSolved
30.01.2016 15:24:33 kaba
NotSolved
30.01.2016 15:30:39 Gast28693
NotSolved
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:
Gast88407
Datum:
29.01.2016 19:46:42
Views:
746
Rating: Antwort:
  Ja
Thema:
=NETTOARBEITSTAGE("1.01.2016";"31.01.2016")

Hallo!

Füge deinem Button den Code hinzu. In A1 steht das Jahr in A3 wird das Ergebnis eingetragen. Beim nochmaligen anklicken, sollte es wieder weg. sein.

VG

 

Sub arbeitstage()

Dim wert

wert = ActiveSheet.Range("A1")

'Eintrag in A3
If ActiveSheet.Range("A3") <> "" Then
ActiveSheet.Range("A3") = ""
Else
ActiveSheet.Range("A3").FormulaLocal = "=(NETTOARBEITSTAGE(" & Chr(34) & CDate("01.01." & wert) & Chr(34) & ";" & Chr(34) & CDate("31.01." & wert) & Chr(34) & "))"
End If


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:



  • 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
Blau =NETTOARBEITSTAGE("1.01.2016";"31.01.2016")
29.01.2016 19:46:42 Gast88407
NotSolved
30.01.2016 15:24:33 kaba
NotSolved
30.01.2016 15:30:39 Gast28693
NotSolved
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