Thema Datum  Von Nutzer Rating
Antwort
17.11.2011 09:50:52 kay
NotSolved
17.11.2011 18:28:30 Till
NotSolved
21.11.2011 08:47:21 Kay
NotSolved
21.11.2011 14:26:29 Kay
NotSolved
Rot Zuweisung Datum pro Zeile
21.11.2011 17:51:51 Till
NotSolved

Ansicht des Beitrags:
Von:
Till
Datum:
21.11.2011 17:51:51
Views:
976
Rating: Antwort:
  Ja
Thema:
Zuweisung Datum pro Zeile

Wenn du da eh konstante Werte haben willst ist das Ganze sehr viel einfacher, dann brauchst du auch kein Array und keine zwei Schleifen:

Sub datumeintragen()
  
Dim a&, I&, E&, LetzteZeile&
Dim d1 As Date
    
    d1 = Date
    E = 3 * 2 'Multiplikation von Personen und Besuchen pro Datum
    For I = 1 To 100
                
        Cells(I, 1) = d1   'Ausgabe von d1 als Datum
        a = a + 1
        If a = E Then 'intervall
            a = 0
            d1 = d1 + 1 'Addiere 1 Tag zu d1
            If Weekday(d1) = vbSaturday Then d1 = d1 + 2 'sonntag=1, samstag=7...
        End If
    Next
    
End Sub

Bei deiner Funktion addiert er 2 Tage wenn der aktuelle Mittwoch ist, macht also bei Freitag weiter und überspringt Donnerstag, ansonsten addiert das Programm normal einen Tag.


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
17.11.2011 09:50:52 kay
NotSolved
17.11.2011 18:28:30 Till
NotSolved
21.11.2011 08:47:21 Kay
NotSolved
21.11.2011 14:26:29 Kay
NotSolved
Rot Zuweisung Datum pro Zeile
21.11.2011 17:51:51 Till
NotSolved