Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste zufällig sortieren

Liste zufällig sortieren
23.06.2004 15:18:37
Mario
Hallo zusammen,
ich habe folgendes Problem, das ich mit VBA lösen möchte:
Ich habe eine Liste, in der in Spalte A Zahlen von 1 bis 30 aufsteigend sortiert sind (=laufende Nummer). In Spalte B sind diesen Zahlen Namen zugeordnet. Nun möchte ich diese Zeilen zufällig sortieren lassen, so dass die chronologische Reihen folgen 1,2,3,usw. nicht mehr vorhanden ist. Kann mir jemand dabei helfen? Vielen Dank schon mal
Viele Grüße
Mario

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste zufällig sortieren
Andreas
In VBA kannst Du folgendes machen
Nutz mal eine freie Spalte, z.B. C
Trag in C1 bis C30 die Formel =ZUFALLSZAHL() ein
sortier Spalten A+B+C nach Spalte C
und lösch mal C1 bis C30
Voila
AW: Liste zufällig sortieren
23.06.2004 15:28:32
Mario
Hallo Viola,
wenns so leicht wäre!
Die Funktion Zufallszahl gibt Dezimalzahlen wieder. Selbst über einen umständlichen Weg in Kombination mit der Funktion Ganzezahl bekomme ich nicht mein Ergebnis. Denn: Excel weiß dann nicht, ob die zufällige Zahl schon vergeben wurde. Doppelte Zahlen sind die
Folge. Muss also weitersuchen...
Trotzdem danke
Grüße
Mario
AW: Liste zufällig sortieren
Ulf
Die Doppler bei der Funktion ZUFALLSZAHL() möchte ich sehen.
Der Weg ist völlig ok und deine Einwände grundlos.
Ulf
Anzeige
AW: Liste zufällig sortieren
23.06.2004 15:53:00
Mario
Hallo Ulf,
das sind ja keine Einwände. Ich weiß nur nicht, wie das mit der Zufallszahl-Funktion klappten soll.
Kannst du mir helfen?
Grüße
Mario
AW: Liste zufällig sortieren
Andreas
Mach mal folgendes
In Excel
Extras/Macro/Aufzeichnen
(Du zeichnest ein Makro auf)
Schreib in C1 die Formel
=Zufallszahl()
markier C1
STRG-C in die Zwichenablage
markier c2 bis c30
Strg-V einfügen aus der Zwischenbalge
Markier A1 bis C30
Daten/Sortieren/
und wähl mal Spalte C als Sortierbegriff
Sortier
markier C1 bis C30 und
Rechte Maustaste "Inhalte löschen"
Jetzt Aufzeichnung anhalten.
Mit Alt-F8 kannst Du Dein Makro ansehen
Voila (wie die Franzosen sagen)
Anzeige
AW: Liste zufällig sortieren
Ulf
Schreib einfach in die nächste freie Spalte in die oberste zu sortierende Zelle,
nehmen wir einfach an, es wäre Zeile 1, Spalte C:
Also in C1: =ZUFALLSZAHL()
Kopier dies soweit wie nötig nach unten
Markier alle zu sortierenden Spalten
Sortier nach Spalte C
Zufallszahlen kannst du wieder löschen.
Ulf
@Ulf: Ob Mario uns jetzt glaubt? ;-) (nT)
Andreas
@Ulf: Ob Mario uns jetzt glaubt? ;-) (nT)
AW: @Ulf: Ob Mario uns jetzt glaubt? ;-) (nT)
23.06.2004 16:12:27
Mario
Hallo zusammen,
hat klick gemacht!
Merci et pardon, Andreas!!
Mario
reine VBA-Lösung
23.06.2004 16:14:12
Nepumuk
oder so:


Public Sub zufall()
    Const strrange As String = "A1:B30"
    Dim intindex As Integer, intrnd As Integer
    Dim strtemp1 As String, strtemp2 As String
    Dim vararray As Variant
    vararray = Range(strrange)
    For intindex = UBound(vararray) To 1 Step -1
        Randomize Timer
        intrnd = Int((intindex * Rnd) + 1)
        strtemp1 = vararray(intrnd, 1)
        strtemp2 = vararray(intrnd, 2)
        vararray(intrnd, 1) = vararray(intindex, 1)
        vararray(intrnd, 2) = vararray(intindex, 2)
        vararray(intindex, 1) = strtemp1
        vararray(intindex, 2) = strtemp2
    Next
    Range(strrange) = vararray
End Sub


Gruß
Nepumuk
Anzeige
AW: reine VBA-Lösung
Ulf
Du bist der Größte!
Ulf

10 Forumthreads zu ähnlichen Themen

Namen aus Liste auswählen
Volker

Hallo liebe Excelgemeinde.
Wie nennt man es eigendlich, wenn man z. B. im Bereich a5 bis a25 Namen stehen hat und wenn man im Bereich d30 bis d 55 dann bein Eintagen diese o.g. Namen sozusagen "vorgeschlagen" werden. Wenn man z.b. eine " E" eingibt, sollen alle Namen mit "E" als Anfangsbuch...
02.12.2009 18:55:16
Thread-ID: 1121470
3 Beiträge
Anzeige
Zellen zufällig sortieren und kopieren
Tom

Hallo an Alle, die das lesen :-)
Ich habe folgenden vba-Code gefunden:
Sub til() Sheets("Tabelle1").Select Range("a1").Clear Dim ar_rng(), i ar_rng = Range("A1:A33") For i = 1 To 33 ar_rng(i, 1) = Cells(Int(Rnd() * 33 + 1), "E").Value Next [A1:A33] = ar_rng() End Sub Es werden also die...
16.03.2013 16:03:02
Thread-ID: 1304348
3 Beiträge
1. Wert Auswahlliste auswählen
Stefan

Hallo zusammen,
ich erstelle mit u.a. Code eine Auswahlliste.
Weiß jemand wie man danach auch automatisch den 1. Wert der Auswahlliste wählt?
Bei mir ist die Zelle dann nämlich leer, die Auswahlliste ist aber selektierbar.
Sheets("Auswertung").Select
Range("ai7").Select
...
25.03.2017 11:43:27
Thread-ID: 1549431
3 Beiträge
Anzeige
Zahlen zufällig anordnen
WalterK

Hallo und schönen Abend,
ich suche eine VBA-Lösung für ein Problem, das sich besser mit der Beispieltabelle erklären lässt.
Hier vorarb eine Kurzbeschreibung:
Der Bereich ist immer gleich, er umfasst die Zellen B4:C183.
Darin sind unterschiedlich viele Zahlen angeführt, immer 2...
07.11.2017 19:51:18
Thread-ID: 1590080
3 Beiträge
Aus Liste maximal 20 auswählen und in neues Blatt
Hans

Hallo Forum,
ich habe in meiner Tabelle rund 47 Kontrollkästchen (ActiveX Steuerelemente) wovon ich gerne MAXIMAL 20 auswählen und den Text in ein neues Blatt (Rechnung) übernehmen möchte. (Das ganze hab ich mit "wenn-dann-sonst" versucht, bin aber kläglich gescheitert)
Neben den Namen...
05.12.2017 19:38:12
Thread-ID: 1595477
26 Beiträge
Zufälliger Eintrag aus Liste in neue Zeile ausgebe
Patrick

Hallo!
ich habe ein relativ einfaches Problem, das ich aber leider mit der Suchfunktion noch nicht lösen konnte.
In den Tabellenblättern "Tracks" und "Cars" stehen jeweils in Spalte A 151 bzw. 226 Texteinträge. Nun möchte ich, dass Excel per Button in ein neues Tabellenblatt "Combinatio...
25.06.2018 10:52:01
Thread-ID: 1630352
7 Beiträge
Zufällige Ausgabe eines Listenwertes
Alex

Hallo liebe Forums-Gemeinde,
mal wieder habe ich ein für mich schwer zu lösendes Problem.
Ich möchte mir aus einer Liste (Daten alle in einer Spalte) einen zufälligen Wert per Formel angeben lassen.
Ich hänge noch eine Datei mit an.
Alex
29.03.2020 08:36:17
Thread-ID: 1748875
4 Beiträge
Tabelle zufällig sortieren
Ingo
Ich habe eine Tabelle mit 2 Spalten.
Die Anzahl der Zeilen ändert sich regelmäßig.
Es gibt in der Tabelle ein paar leere Zeilen
Ich möchte die Zeilen der Tabelle per Makro in zufälliger Reihenfolge sortieren lassen.
Es sollen nur die Zeilen berücksichtigt werden, bis die erste leere...
20.10.2022 23:57:58
Thread-ID: 1903808
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
2
2
4
2
25
6
3
8