Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1900to1904
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
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle zufällig sortieren

Tabelle zufällig sortieren
20.10.2022 23:57:58
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 Zeile auftaucht.
Könnt Ihr mir da helfen? Ich verstehe von VBA leider nicht genug, um das alleine hinzubekommen.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Mit und ohne Ausgangsreihenfolge-Erinnerung:
21.10.2022 03:21:16
lupo1
ohne Erinnerung. D1:
=LET(v;A1:INDEX(B:B;VERGLEICH(WAHR;INDEX(A:A="";);)-1);
SORTIERENNACH(v;ZUFALLSMATRIX(ZEILEN(v))))
mit Erinnerung. D1:
=LET(v;A1:INDEX(B:B;VERGLEICH(WAHR;INDEX(A:A="";);)-1);
y;ZEILEN(v);z;SEQUENZ(y);x;HSTAPELN(v;z);
SORTIERENNACH(x;ZUFALLSMATRIX(y)))
Als Makro
21.10.2022 03:35:35
lupo1 

Sub WildSortieren()
Application.ScreenUpdating = 0
[D1].Formula2R1C1 = "=LET(v,RC[-3]:INDEX(C[-2],MATCH(TRUE,INDEX(C[-3]="""",),)-1),SORTBY(v,RANDARRAY(ROWS(v))))"
Range("D1#").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("D1#").Clear
Application.ScreenUpdating = 1
End Sub

Anzeige
AW: Danke. Funktioniert großartig.
21.10.2022 06:44:58
Ingo
Danke. Funktioniert großartig.
Mag sein (danke!), aber die VBA'ler ...
21.10.2022 07:49:00
lupo1
... bauen Dir da sicherlich noch etwas "State of the Art".
Leider doch ein fettes Problem
21.10.2022 08:54:35
Ingo
Leider gibt es doch noch ein Problem. Ich habe das erst jetzt bemerkt.
In der Spalte A meiner Tabelle sind Webseiten-Adressen. Und diese sind jeweils verlinkt.
Nach der Sortierung durch das Makro sind die Links aber alle nicht mehr passend.
Diese werden also anscheinend nicht mit sortiert.
Kann das sein?
Links werden nicht mitsortiert
21.10.2022 11:43:36
Ingo
Ich habe mal nach diesem Problem gegoogelt, dass die Links bei verlinkten Zelleninhalten von Exel nicht richtig mit sortiert werden. Und das scheint tatsächlich ein bekannter Fehler in Excel zu sein.
Anzeige
AW: Tabelle zufällig sortieren
21.10.2022 14:32:56
Daniel
Hi
also ich würde das Sortieren so machen, sortiert wird der erste Block, dh die Tabelle bis zu ersten leeren Zeile.
Wenn Zeile 1 die Überschrift ist, das xlNo in xlYes ändern.

Sub SortZufallFürErstenBlock()
With Cells(1, 1).CurrentRegion 'selektiert Zellen bis zur ersten Leerzeile
With .Columns(.Columns.Count + 1) 'erste freie Spalte am Tabellenende
.FormulaR1C1 = "=Rand()" 'Zufallszahlen in freie Spalte einfügen
.Offset(0, 1 - .Column).Resize(, .Column).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.ClearContents ' zufallszahlen löschen
End With
End With
End Sub
probier mal, ob das funktionert.
wenn nicht, kannst du die Datei mit den Links mal hochladen?
Anzeige
AW: Tabelle zufällig sortieren
21.10.2022 14:47:37
Ingo
Ja wunderbar. Jetzt bleiben auch die Verlinkungen korrekt. Vielen lieben Dank.

302 Forumthreads zu ähnlichen Themen

Zahl aus einer Liste auslesen (WVERWEIS)
Helmi

Hallo zusammen
Ich habe ein Problem, sonst würde ich keine Frage stellen :-)
Ich habe eine Liste mit Zahlen die in Spalte B stehen.
Ich möchte nun abhängig davon welche Zahl in A1 steht eine Zahl aus der Liste in B auslesen.
Bsp:
A1 = 5
Ich möchte den fünften Eintrag, re...
21.01.2009 12:13:48
Thread-ID: 1042124
5 Beiträge
Anzeige
Matrix Auswahl von 4 Werten aus Liste????
4

Hallo Zusammen,
leider ist mein Problem immer noch nicht behoben.
Ich habe mal eine Beispieltabelle hochgeladen.
https://www.herber.de/bbs/user/61508.xls
4 Eingabefelder in echt als dropdown. Es soll nur wenn alle Werte passen das entsprechende aus der Tabele ausgegeben werden.<...
29.04.2009 20:12:52
Thread-ID: 1071991
9 Beiträge
AddIn mit VBA aus der Liste entfernen
JogyB

Hallo zusammen.
Ich habe ein AddIn, das von einer größeren Anzahl von Nutzern verwendet wird und ab und an mal upgedatet werden muss. Bislang lief das von Hand, mittlerweile erledige ich das über folgenden Code: ' Tauscht das AddIn aus Private Sub ExchangeAddin(myAddIn As AddIn) Dim addInSt...
13.08.2009 14:20:41
Thread-ID: 1095600
7 Beiträge
Anzeige
Liste mit mehrfachauswahl soll Auswahl ausgeben
Sebastian

Hallo,
wie die Überschrift schon sagt, brauche ich dringend ein Listenfeld, in dem ich mehrere (aber nicht alle)Städte auswählen kann, die dann untereinander auftauchen in einer Tabelle stehen.
Kann ich das Realisieren?
geht das?
Vielen Dank für Hilfe.
Sebastian
23.07.2010 10:15:13
Thread-ID: 1168492
4 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
Liste aus Liste generieren Auswahlmöglichkeit
chris

Hallo zusammen
ich habe folgendes Problem: ich sollte aus einer bestehenden Liste eine neue Liste generieren.
Dabei habe ich Kontrollköstchen, welche ich anklicken kann. Somit kann ich die neu zu überführenden Werte auswählen. Aufgrund dessen kann ich dann auch eine Wahr/ Falsch Aussa...
17.11.2010 17:52:59
Thread-ID: 1187336
2 Beiträge
Auswahl aus Liste mit Kennwort
lutz

Hallo Excel-Profis,
ich habe mal eine Frage bzgl. Kennwortschutz:
Verschiedene Mitarbeiter sollen Eingaben in ein Tabellenblatt machen. Am Anfang wird per Makro aus einer Liste der Mitarbeiter abgefragt.
Kann ich irgendwie sicherstellen, dass jeder Mitarbeiter sich selber nur über K...
26.11.2010 10:17:28
Thread-ID: 1188878
7 Beiträge
Auszug Liste aus Liste - ohne Doppler ohne VBA
nontacky

Hallo Leute,
ich suche eine performante Lösung für ein kleines Problem, das leider meine Fähigkeiten übersteigt:
Ich habe in Tabellenblatt 1 eine Liste von 5000 Zeilen mit teilweise gleichen Einträgen in Spalte A. Jetzt möchte ich in Tabellenblatt 2 nur jene Einträge aus Tabellenblatt 1...
28.07.2011 11:48:24
Thread-ID: 1224038
4 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
4
19
8
6
3
3
2
1
6
3
6
2
14
6
2
4
5
4
3
5
13
9
7
6
1