Thema Datum  Von Nutzer Rating
Antwort
25.04.2018 21:57:51 Tinka
Solved
Blau Tabelle mehrfach kopieren und mit aufsteigendem Datum ohne Wochenenden beschriften
 25.04.2018 23:25:28 xlKing
Solved
02.05.2018 11:29:15 Tinka
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
25.04.2018 23:25:28		 Views:
541		 Rating:
     
Antwort:
 Nein
Thema:
Tabelle mehrfach kopieren und mit aufsteigendem Datum ohne Wochenenden beschriften

Hallo Tinka,

etwa so?

Sub Kopieren()
    
    Dim Datum As Date
    
    Kopiersheet = 3 'Das dritte Sheet soll kopiert werden
    Anzahl = 24     'Es solle 24 neue Blätter angelegt werden
    
    Do
      Eingabe = InputBox("Geben Sie ein Datum ein", "Kopieren", Date)
    Loop Until IsDate(Eingabe)
    
    i = 1: k = Kopiersheet - 1
    
    Do
      k = k + 1
      Sheets(k).Copy After:=Sheets(k)
      Datum = CDate(Eingabe) + i - 1
      If Weekday(Datum) = vbSaturday Then
        Datum = Datum + 2
        i = i + 2
      ElseIf Weekday(Datum) = vbSunday Then
        Datum = Datum + 1
        i = i + 1
      End If
      Sheets(k + 1).Name = Format(Datum, "ddd. dd.MM.yy")
      i = i + 1
    Loop Until k = 3 + Anzahl - 1
      
End Sub

Gruß Mr. K.

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.04.2018 21:57:51 Tinka
Solved
Blau Tabelle mehrfach kopieren und mit aufsteigendem Datum ohne Wochenenden beschriften
 25.04.2018 23:25:28 xlKing
Solved
02.05.2018 11:29:15 Tinka
Solved