Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
24.04.2024 08:01:34
Textbox Inhalt prüfen und Code abbrechen
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1668to1672
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich zufällig fortlaufend nummerieren

Bereich zufällig fortlaufend nummerieren
28.01.2019 07:43:31
Steffen
Hallo,
ich möchte gerne einen Bereich z.B. A1:J10 in einer zufälligen Reihenfolge fortlaufend nummerieren.
Also zufälliges Feld 1 (z.B. B7) erhält Eintrag "1", zufälliges Feld 2 (z.B. G9) erhält Eintrag "2" usw bis der gesamte Bereich gefüllt ist. Ich hoffe, es ist klar, wie es gemeint ist. Wie könnte man so etwas umsetzen? Ich nutze Excel 16.21.1 auf einem Mac.
Vielen Dank für eure Tipps
Ciao Steffen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit ZUFALLSZAHL und RANG
28.01.2019 09:13:21
lupo1
K1:T10: =ZUFALLSZAHL()
A1:J10: =RANG(K1;$K$1:$T$10)
AW: mit ZUFALLSZAHL und RANG
28.01.2019 11:07:57
Steffen
Genial, danke für die schnelle Hilfe.
Ciao Steffen
AW: Bereich zufällig fortlaufend nummerieren
28.01.2019 09:30:17
UweD
per VBA
Modul1 
Option Explicit 
 
Sub Zufall() 
    Dim RNG1 As Range, RNG2 As Range, Z 
    Dim TB 
     
    Set TB = Sheets("Tabelle1") 
    Set RNG1 = TB.Range("A1:J10") 
     
    With Sheets.Add 'Temporäres Blatt erzeugen 
     
        Set RNG2 = .Range("A1:J10") 
         
        'Zufallszahlen eintragen 
        RNG2.FormulaR1C1 = "=RAND()" 
         
        'Rangfolge der Zufallszahlen 
        RNG1.FormulaR1C1 = "=RANK(" & .Name & "!RC," & .Name & "!R1C1:R10C10)" 
         
        'Formel in Werte umwandeln 
        RNG1.Value = RNG1.Value 
         
        'Temp. Blatt löschen 
        Application.DisplayAlerts = False 
        .Delete 
        Application.DisplayAlerts = False 
         
    End With 
     
     
End Sub

LG UweD
Anzeige
das 2. soll Application.DisplayAlerts = True
28.01.2019 09:32:07
UweD
AW: das 2. soll Application.DisplayAlerts = True
28.01.2019 11:11:19
Steffen
Vielen Dank für die schnelle Hilfe.
Ciao Steffen

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige