Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Programm für eine Rechenaufgabe mit VBA	09.02.2022 13:59:57	Paul93
Programm für eine Rechenaufgabe mit VBA	09.02.2022 17:46:54	Gast97307
Programm für eine Rechenaufgabe mit VBA	10.02.2022 07:12:43	Paul93
Programm für eine Rechenaufgabe mit VBA	09.02.2022 17:51:34	Gast38675
Programm für eine Rechenaufgabe mit VBA	09.02.2022 20:06:35	Gast16733
Programm für eine Rechenaufgabe mit VBA	15.02.2022 11:42:58	Paul93

Ansicht des Beitrags:

Von:
Gast38675

Datum:
09.02.2022 17:51:34

Views:
358

Rating:

Antwort:

Thema:
Programm für eine Rechenaufgabe mit VBA

Wenn in einer Tabelle eine Reihe von Zahlen mit 9 Feldern mit einem Namen "ZahlenA" benannt werden, dann werden mit dem nachstehenden Befehl die Felder mit zufälligen eindeutigen Zahlen ausgefüllt:

Sub ZufallsZahlen()
    Dim rngNumbers As Range
    Dim rng As Range, Num As Integer
    Set rngNumbers = ThisWorkbook.Names("ZahlenA").RefersToRange
    rngNumbers.Clear
    For Each rng In rngNumbers.Cells
        Do
            Num = Int((Rnd() * 48) + 1)
            If rngNumbers.Find(Num) Is Nothing Then
                rng.Value = Num
                Exit Do
            End If
        Loop
    Next
End Sub

Wenn nun am Ende in zwei weiteren Zellen eine "0" und eine "50" eingetragen wird und die ganze Zahlenreihe mit "arrFuenzig" benannt wird, hat man eine Zahlenreihe mit dem Namen "arrFuenfzig". Soweit so gut...

Was nun mit den 2er-Kombinationen zu verstehen ist, weiß ich nicht so recht.

Hier wäre ein Beispiel recht hilfreich.

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
Programm für eine Rechenaufgabe mit VBA	09.02.2022 13:59:57	Paul93
Programm für eine Rechenaufgabe mit VBA	09.02.2022 17:46:54	Gast97307
Programm für eine Rechenaufgabe mit VBA	10.02.2022 07:12:43	Paul93
Programm für eine Rechenaufgabe mit VBA	09.02.2022 17:51:34	Gast38675
Programm für eine Rechenaufgabe mit VBA	09.02.2022 20:06:35	Gast16733
Programm für eine Rechenaufgabe mit VBA	15.02.2022 11:42:58	Paul93