Thema Datum  Von Nutzer Rating
Antwort
25.08.2017 13:08:41 Moto Uan
NotSolved
26.08.2017 13:54:29 Ben
NotSolved
27.08.2017 12:27:29 Gast63625
NotSolved
27.08.2017 12:27:58 Gast77187
NotSolved
27.08.2017 13:58:48 Gast82141
NotSolved
Blau Bei Druckausgabe Tagesdatum hochzählen
 27.08.2017 16:47:07 Gast70117
NotSolved
27.08.2017 20:51:48 Gast96417
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
27.08.2017 16:47:07		 Views:
598		 Rating:
     
Antwort:
  Ja
Thema:
Bei Druckausgabe Tagesdatum hochzählen		 
Option Explicit

Sub StartPrintOut()
'Datum von, bis, in Zelle - nur Werktag
DoIt "26.08.2017", "28.08.2017", "B3"
End Sub

Private Sub DoIt(sDate As Date, eDate As Date, dAdress As String)

   Do While sDate <= eDate
      If WorksheetFunction.Weekday(sDate) <> vbSunday Then
         Range(dAdress) = Format(sDate, "DDDD") & ", den " & Format(sDate, "DD.MM.YY")
         ActiveSheet.PrintOut 1, 1, 1
      End If
      sDate = sDate + 1
   Loop

End Sub

Für dein Seitenlayout musste selbst sorgen - LG

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
25.08.2017 13:08:41 Moto Uan
NotSolved
26.08.2017 13:54:29 Ben
NotSolved
27.08.2017 12:27:29 Gast63625
NotSolved
27.08.2017 12:27:58 Gast77187
NotSolved
27.08.2017 13:58:48 Gast82141
NotSolved
Blau Bei Druckausgabe Tagesdatum hochzählen
 27.08.2017 16:47:07 Gast70117
NotSolved
27.08.2017 20:51:48 Gast96417
NotSolved