Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Erweiteter Zufallsgenerator
zurück: Fehlermeldung "von Excel wurden unbekannte Inhalte gefu weiter: Do Until Loop mit If Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Kladden
Gast


Verfasst am:
14. Jan 2014, 14:17
Rufname:

Erweiteter Zufallsgenerator - Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

Hallo,

ich möchte einen Zufallsgenerator für Excel erstellen, der erweiterte Bedingungen benutzt. Die reine Ausgabe zufälliger Zahlen bekomme ich hin aber habe keine Idee, wie ich das Andere mir rein bringe. Für Hilfe oder Denkanstöße wäre ich dankbar.

In einer Pension sollen 50 Zimmer sporadisch durch den Hausmeister kontrolliert werden. Innerhalb eines Monats aber alle Zimmer. Samstags nur 1 oder 2, unter der Woche die Restlichen. Es soll nie die gleiche Reihenfolge ergeben.

Ist das möglich?
Danke im Voraus.
Phelan XLPH
Fortgeschritten


Verfasst am:
14. Jan 2014, 17:28
Rufname: Phelan


AW: Erweiteter Zufallsgenerator - AW: Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

Hallo,

sowas vielleicht?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



ZimmerKontrolle.jpg
 Beschreibung:
 Dateigröße:  65.13 KB
 Angeschaut:  176 mal

ZimmerKontrolle.jpg



ZimmerKontrolle.xlsm
 Beschreibung:

Download
 Dateiname:  ZimmerKontrolle.xlsm
 Dateigröße:  22.57 KB
 Heruntergeladen:  59 mal

Kladden
Gast


Verfasst am:
14. Jan 2014, 22:04
Rufname:

AW: Erweiteter Zufallsgenerator - AW: Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

Wow, vielen Dank für die schnelle Hilfe! Shock
Bei VBA stehe ich noch ziemlich am Anfang Crying or Very sad

Könntest du mir zu den einzelnen Codes noch sagen, was er bewirkt, damit ich das anpassen kann?
Kladden
Weiterhin Einsteiger


Verfasst am:
14. Jan 2014, 22:14
Rufname:

AW: Erweiteter Zufallsgenerator - AW: Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

...
Phelan XLPH
Fortgeschritten


Verfasst am:
14. Jan 2014, 22:41
Rufname: Phelan

AW: Erweiteter Zufallsgenerator - AW: Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

Hallo,

Kladden.

Hier der Code mit Kommentaren:

Code:
Sub KontrollTermineSetzen()
    Dim Zimmer As Variant
    Dim i As Long
    Dim j As Long
    Dim z As Long
    Dim tmp As Variant
    Dim Zelle As Range
    Dim Fertig As Boolean
   
   
    With Tabelle2.Range("A1").CurrentRegion
        ' Alle Zimmer-Bezeichnungen in ein Datenfeld lesen
        Zimmer = .Resize(.Rows.Count - 1, 1).Offset(1).Value
    End With
   
    ' Positionen des Datenfeldes, die zufällig bestimmt werden, tauschen
    For i = LBound(Zimmer) To UBound(Zimmer)
        Randomize Timer
        z = Int((UBound(Zimmer) - LBound(Zimmer) + 1) * Rnd + LBound(Zimmer))
        tmp = Zimmer(i, 1)
        Zimmer(i, 1) = Zimmer(z, 1)
        Zimmer(z, 1) = tmp
    Next
   
    z = 0
   
    Application.ScreenUpdating = False
   
    With Tabelle1
       
        ' Ausgabe-Bereicg säubern
        .Range("C5:Z35").ClearContents
       
        ' Start der Ausgabe in Spalte 3
        i = 3
        Do
            ' Zuerts folgen Ausgaben in alle Wochentagen (nicht Sa u. So)
            For j = 5 To 35
                ' Prüfen, ob Spalte 1 ein Zahlenwert (Datum) steht
                If Val(.Cells(j, 1).Value) > 0 Then
                ' Prüfen, ob Wochentag nicht 'Sa' oder 'So'
                If Weekday(.Cells(j, 1).Value, 2) <= 5 Then
                    ' Prüfen, ob aller Zimmer bereits augegeben, falls ja,
                    ' Merker setzen und Schleife verlassen
                    If z >= UBound(Zimmer) Then Fertig = True: Exit For
                    ' Datenfeld-Aausgabe-Zähler hochzählen
                    z = z + 1
                    ' Ausgabe der Zimmer-Bezeichnung
                    .Cells(j, i) = Zimmer(z, 1)
                End If
                End If
            Next
            ' ...dann folgt die Ausgabe an 'Samstagen'.
            For j = 5 To 35
                ' Prüfen, ob Spalte 1 ein Zahlenwert (Datum) steht
                If Val(.Cells(j, 1).Value) > 0 Then
                ' Prüfen, ob Wochentag = 'Samstag'
                If Weekday(.Cells(j, 1).Value, 2) = 6 Then
                    ' Prüfen, ob aller Zimmer bereits augegeben, falls ja,
                    ' Merker setzen und Schleife verlassen
                    If z >= UBound(Zimmer) Then Fertig = True: Exit For
                    ' Datenfeld-Aausgabe-Zähler hochzählen
                    z = z + 1
                    ' Ausgabe der Zimmer-Bezeichnung
                    .Cells(j, i) = Zimmer(z, 1)
                End If
                End If
            Next
            ' Falls Merker gesetzt (d.h. alle Zimmer ausgegeben), wird die Schleife verlassen
            If Fertig Then Exit Do
            ' Hochzählen der Ausgabe-Spalte
            i = i + 1
        Loop
    End With
   
    Application.ScreenUpdating = True
   
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Kladden
Weiterhin Einsteiger


Verfasst am:
17. Jan 2014, 18:54
Rufname:

AW: Erweiteter Zufallsgenerator - AW: Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

Cool, vielen Dank Exclamation
Kladden
Weiterhin Einsteiger


Verfasst am:
21. Feb 2014, 23:41
Rufname:


AW: Erweiteter Zufallsgenerator - AW: Erweiteter Zufallsgenerator

Nach oben
       Version: Office 2010

Ich nochmal...

Muss an der Arbeit einige Tabellen und Listen überarbeiten und neu schreiben, da diese nicht gepflegt wurden... Konnte die Vorlage leider nicht so anpassen, wie wir es brauchen. Sad

In der Ergebnisliste müssten die Zimmer pro Etage und Flügel ausgegeben werden, die Zimmer müssen im Abstand von max. 14 Tagen Rolling Eyes kontrolliert werden aber ohne ersichtliches Muster. Das ehemalige Programm hat wohl ausgewertet, ob ein Zimmer in den letzten 14 Tagen auf der Liste war und die restlichen verteilt oder so. Schwer zu beschreiben.



Beispiel.xlsx
 Beschreibung:

Download
 Dateiname:  Beispiel.xlsx
 Dateigröße:  10.22 KB
 Heruntergeladen:  8 mal

Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zufallsgenerator Wahrscheinlichkeiten und variable Anzahl 7 jira 286 28. Sep 2013, 17:41
lupo1 Zufallsgenerator Wahrscheinlichkeiten und variable Anzahl
Keine neuen Beiträge Excel VBA (Makros): Zufallsgenerator für Abfragen erstellen 1 DanielSperling 177 08. Jul 2013, 16:49
bst Zufallsgenerator für Abfragen erstellen
Keine neuen Beiträge Excel Formeln: Zufallsgenerator bzw Passwortgenerator 6 offiboy 4730 03. Nov 2012, 15:05
slowboarder Zufallsgenerator bzw Passwortgenerator
Keine neuen Beiträge Excel Formeln: Zufallsgenerator fuer eine bestimmte Anzahl von Namen 5 No-Excel-Genie 497 16. Okt 2012, 17:20
shift-del Zufallsgenerator fuer eine bestimmte Anzahl von Namen
Keine neuen Beiträge Excel Hilfe: Zufallsgenerator Excel 2 drm300 689 09. Jul 2012, 15:44
drm301 Zufallsgenerator Excel
Keine neuen Beiträge Excel VBA (Makros): Zufallsgenerator ohne doppelte 9 grava 394 24. Jun 2012, 17:27
grava Zufallsgenerator ohne doppelte
Keine neuen Beiträge Excel VBA (Makros): Zufallsgenerator in Excel 7 Gast 1205 18. Dez 2011, 19:58
Gast Zufallsgenerator in Excel
Keine neuen Beiträge Excel Formeln: Zufallsgenerator für 2 Behandlungsmethoden 3 mawi 380 26. Sep 2011, 13:39
Hydronaut Zufallsgenerator für 2 Behandlungsmethoden
Keine neuen Beiträge Excel VBA (Makros): Zufallsgenerator für Multiple-Choice Fragenkatalog 3 Imprezaner-my01 1089 22. Feb 2011, 00:33
r.mueller Zufallsgenerator für Multiple-Choice Fragenkatalog
Keine neuen Beiträge Excel Formeln: Zufallsgenerator Excel 8 2nd Runner 2310 04. Feb 2011, 18:23
FCH Zufallsgenerator Excel
Keine neuen Beiträge Excel Formeln: Wert zuweisen und Zufallsgenerator 3 Gast 496 31. Jan 2011, 10:07
Gast Wert zuweisen und Zufallsgenerator
Keine neuen Beiträge Excel Hilfe: *T*EXCEL Zufallsgenerator für eine Verlosung 4 tobias81 9487 01. Nov 2010, 14:12
Gast *T*EXCEL Zufallsgenerator für eine Verlosung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum