Thema Datum  Von Nutzer Rating
Antwort
02.10.2015 14:08:06 Matthias
NotSolved
Blau Stunden zufällig auf Tage Verteilen
 04.10.2015 22:29:27 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
04.10.2015 22:29:27		 Views:
1342		 Rating:
     
Antwort:
  Ja
Thema:
Stunden zufällig auf Tage Verteilen

Hallo,

die Anforderung ist ja sehr schwammig formuliert.

Die folgende Lösung verteilt die in der ersten Spalte angegebenen Stunden rechts auf mehrere zufällige Zellen:

Sub FillRandomize()
    Dim sh As Worksheet
    
    Dim iRw As Integer
    Dim dblHour As Double, dblNewValue As Double, dblRest As Double, dblSum As Double, dblTMP As Double
    Dim iCnt As Integer
    Dim iMxMonth As Integer
    Set sh = ActiveSheet
    
    For iRw = 2 To sh.UsedRange.Rows.Count
        sh.Range(sh.Cells(iRw, 2), sh.Cells(iRw, sh.UsedRange.Columns.Count)).Delete
        dblHour = Val(sh.Cells(iRw, 1).Formula)
        iMxMonth = (Rnd() * 15) + 15
        dblSum = 0
        For iCnt = 1 To iMxMonth
            dblRest = dblHour - dblSum
            dblNewValue = Rnd() * dblRest
            If Rnd() > 0.5 Then
                sh.Cells(iRw, iCnt + 1) = dblNewValue
                dblSum = dblSum + dblNewValue
            End If
        Next
        If dblSum < dblHour Then
            sh.Cells(iRw, iCnt + 1) = dblHour - dblSum
        End If
    Next
    
End Sub

Vor der Ausführung muss im Aktiven Tabellenblatt in der ersten Spalte ab Zeile 2 die Stunden eingetragen worden sein.

VG, BigBen

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
02.10.2015 14:08:06 Matthias
NotSolved
Blau Stunden zufällig auf Tage Verteilen
 04.10.2015 22:29:27 BigBen
NotSolved