
Set FSO = CreateObject("Scripting.Filesystemobject")
ReDim Bilder(1 To FSO.getfolder(MeinOrdner).Files.Count)
'alle Fotos einlesen
For Each Bild In FSO.getfolder(MeinOrdner).Files
If LCase(Bild.Name) Like FilterFotos & "*.jpg" Then
L = L + 1
Bilder(L) = Bild
End If
Next
'Array kürzen
ReDim Preserve Bilder(1 To L)
'Bilder per Zufall neu sortieren

Gruß Andy

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Array per Zufall neu sortieren

21.01.2018 03:04:56

Daniel
AW: Array per Zufall neu sortieren

21.01.2018 20:32:43

Andy

AW: Array per Zufall neu sortieren

21.01.2018 03:04:56

Daniel

Hi
Tausche jede Position mit einer zufällig ausgewählten Position.

For i = 1 To L
x = WorksheetFunction.RandBetween(1, L)
Zwischenspeicher = Bilder(i)
Bilder(i) = Bilder(x)
Bilder(x) = Zwischenspeicher
Next

Gruß Daniel

AW: Array per Zufall neu sortieren

21.01.2018 20:32:43

Andy

Vielen Dank für den Tipp!

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn wort dann zahl

34081
excel feld farbe wenn andere zelle bestimmten wert hat

23512
excel anzahl zeichen bis zu einem bestimmten zeichen

16681

Weitere Forumthreads anzeigen

excel zelleninhalt um zeichen erweitern

16052

excel liste lässt sich nicht scrollen

15741

excel formeln kopieren ohne bezug ändern

15343

excel zeichen für enthält

14267

excel wenn dann andere zelle schreiben

12306

excel nach zeichen abschneiden

11938

excel erste drei zeichen löschen

11417

excel autosumme zeigt 0 an

10634

excel zelle färben wenn wert in anderer zelle

10521

excel zählenwenn mit oder bedingungen

9511

excel text abschneiden von links

9498

excel zelle enthält textteil

9480

excel wenn 0 dann leer formatierung

9079

excel vba text in zelle schreiben

8864

excel text in spalten nur erstes leerzeichen

8800

datum zählen excel

8428

excel duplikate nicht zählen

8178

excel wert zelle übernehmen ohne formel automatisch

8062

excel zelleninhalt ab einem bestimmten zeichen

7989

excel text nach zeichen ausgeben

7915

excel-formel größer als und kleiner als

7806

vba excel letzte zeile

7675

datum und uhrzeit in einer zelle excel

7521

excel ein und ausklappen button

7291

excel minuten in zeit umrechnen

7167

excel zeilen bedingt ausblenden

7070

excel mauszeiger kreuz statt pfeil

7068

excel kalenderwoche in monat

6935

wenn datum älter als x dann rot

6521

summewenn ungleich

6515

excel spalten untereinander zusammenführen

6294

excel vba zelle löschen

6182

excel negative werte als 0 anzeigen

6026

excel wenn mit uhrzeit

6006

excel zeichen aus zelle auslesen

5981

wenn zahl in spalte vorhanden dann

5920

excel 1. wort aus zelle

5910

shortcut tabellenblatt wechseln

5872

excel runterziehen nicht fortlaufend

5838

excel wenn bereich leer dann

5829

excel datei durch mich gesperrt obwohl nicht geöffnet

5734

excel letzte 4 zeichen entfernen

5705

=@ excel

5689

sverweis summewenn

5676

excel wenn feld leer dann

5582

excel textteil suchen

5539

excel uhrzeit addieren minuten

5492

excel vba suchfunktion

5379

excel suchkriterium nicht leer

5341

summe wenn mehrere spalten

5321

excel führende nullen löschen

5224

excel bedingte formatierung wenn andere zelle wert dann farbe

5182

msgbox vba ja nein

5105

excel namen aus email generieren

5082

#nv durch 0 ersetzen

5082

vba hintergrundfarbe

5053

excel wenn zelle grün dann

5053

excel text löschen, zahlen stehen lassen

4974

excel wert einfügen wenn bedingung erfüllt

4903

excel summewenn nicht

4847

anführungszeichen in excel formel

4841

vba teilstring suchen

4789

excel plus 6 monate

4769

excel summewenn datumsbereich

4754

excel makro schützen passwort

4727

finden excel von rechts

4710

vba excel if mehrere bedingungen

4679

excel liniendiagramm mehrere linien

4659

excel datum formatieren funktioniert nicht

4654

excel zelle an bildgröße anpassen

4588

punkt entfernen excel

4564

excel erste 3 zeichen löschen

4556

excel text aus zelle in andere zelle übernehmen

4516

excel zahl in text umwandeln grüne ecke

4508

vba textumbruch aktivieren

4482

excel zählenwenn bestimmter text

4469

excel spalte finden mit wert

4452

excel prüfen, ob wert in anderem tabellenblatt vorhanden

4430

vba programm abbrechen

4411

excel aktuelles datum einfügen ohne aktualisierung

4362

excel diagramm kopieren ohne verknüpfung

4360

excel formel summe runden auf 5 rappen

4357

excel zeit jetzt

4332

userform vba schließen

4327

excel mittelwert von prozentzahlen

4327

kalenderwoche in datum excel

4324

excel in welcher zeile steht der wert

4308

verketten datum excel

4300

excel auf andere sheet zugreifen in rechung

4285

excel spalten gruppieren und benennen

4260

excel autogliederung kann nicht erstellt werden

4229

=$ excel

4199

vbs zeilenumbruch

4182

excel dropdown liste leere zellen ignorieren funktioniert nicht

4158

excel zellen sperren aber filtern zulassen

4142

excel gestrichelte linien druckbereich ausblenden

4075

aktuelles jahr in excel einfügen

4025

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn wort dann zahl

34081
excel feld farbe wenn andere zelle bestimmten wert hat

23512
excel anzahl zeichen bis zu einem bestimmten zeichen

16681

Weitere Forumthreads anzeigen

excel zelleninhalt um zeichen erweitern

16052

excel liste lässt sich nicht scrollen

15741

excel formeln kopieren ohne bezug ändern

15343

excel zeichen für enthält

14267

excel wenn dann andere zelle schreiben

12306

excel nach zeichen abschneiden

11938

excel erste drei zeichen löschen

11417

excel autosumme zeigt 0 an

10634

excel zelle färben wenn wert in anderer zelle

10521

excel zählenwenn mit oder bedingungen

9511

excel text abschneiden von links

9498

excel zelle enthält textteil

9480

excel wenn 0 dann leer formatierung

9079

excel vba text in zelle schreiben

8864

excel text in spalten nur erstes leerzeichen

8800

datum zählen excel

8428

excel duplikate nicht zählen

8178

excel wert zelle übernehmen ohne formel automatisch

8062

excel zelleninhalt ab einem bestimmten zeichen

7989

excel text nach zeichen ausgeben

7915

excel-formel größer als und kleiner als

7806

vba excel letzte zeile

7675

datum und uhrzeit in einer zelle excel

7521

excel ein und ausklappen button

7291

excel minuten in zeit umrechnen

7167

excel zeilen bedingt ausblenden

7070

excel mauszeiger kreuz statt pfeil

7068

excel kalenderwoche in monat

6935

wenn datum älter als x dann rot

6521

summewenn ungleich

6515

excel spalten untereinander zusammenführen

6294

excel vba zelle löschen

6182

excel negative werte als 0 anzeigen

6026

excel wenn mit uhrzeit

6006

excel zeichen aus zelle auslesen

5981

wenn zahl in spalte vorhanden dann

5920

excel 1. wort aus zelle

5910

shortcut tabellenblatt wechseln

5872

excel runterziehen nicht fortlaufend

5838

excel wenn bereich leer dann

5829

excel datei durch mich gesperrt obwohl nicht geöffnet

5734

excel letzte 4 zeichen entfernen

5705

=@ excel

5689

sverweis summewenn

5676

excel wenn feld leer dann

5582

excel textteil suchen

5539

excel uhrzeit addieren minuten

5492

excel vba suchfunktion

5379

excel suchkriterium nicht leer

5341

summe wenn mehrere spalten

5321

excel führende nullen löschen

5224

excel bedingte formatierung wenn andere zelle wert dann farbe

5182

msgbox vba ja nein

5105

excel namen aus email generieren

5082

#nv durch 0 ersetzen

5082

vba hintergrundfarbe

5053

excel wenn zelle grün dann

5053

excel text löschen, zahlen stehen lassen

4974

excel wert einfügen wenn bedingung erfüllt

4903

excel summewenn nicht

4847

anführungszeichen in excel formel

4841

vba teilstring suchen

4789

excel plus 6 monate

4769

excel summewenn datumsbereich

4754

excel makro schützen passwort

4727

finden excel von rechts

4710

vba excel if mehrere bedingungen

4679

excel liniendiagramm mehrere linien

4659

excel datum formatieren funktioniert nicht

4654

excel zelle an bildgröße anpassen

4588

punkt entfernen excel

4564

excel erste 3 zeichen löschen

4556

excel text aus zelle in andere zelle übernehmen

4516

excel zahl in text umwandeln grüne ecke

4508

vba textumbruch aktivieren

4482

excel zählenwenn bestimmter text

4469

excel spalte finden mit wert

4452

excel prüfen, ob wert in anderem tabellenblatt vorhanden

4430

vba programm abbrechen

4411

excel aktuelles datum einfügen ohne aktualisierung

4362

excel diagramm kopieren ohne verknüpfung

4360

excel formel summe runden auf 5 rappen

4357

excel zeit jetzt

4332

userform vba schließen

4327

excel mittelwert von prozentzahlen

4327

kalenderwoche in datum excel

4324

excel in welcher zeile steht der wert

4308

verketten datum excel

4300

excel auf andere sheet zugreifen in rechung

4285

excel spalten gruppieren und benennen

4260

excel autogliederung kann nicht erstellt werden

4229

=$ excel

4199

vbs zeilenumbruch

4182

excel dropdown liste leere zellen ignorieren funktioniert nicht

4158

excel zellen sperren aber filtern zulassen

4142

excel gestrichelte linien druckbereich ausblenden

4075

aktuelles jahr in excel einfügen

4025

Array per Zufall neu sortieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread