Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1476to1480
1476to1480
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-FileList randomisiert splitten

Forumthread: Excel-FileList randomisiert splitten

Excel-FileList randomisiert splitten
25.02.2016 10:00:40
Jaylan
Hallo XL'ler,
ich habe für ein Programm mehrere Filelists, in denen Bilddateien/XML-Dateien aufgelistet sind, die das Programm einlesen soll, um die entsprechenden Dateien in das Programm reinzunehmen. Hier ist ein Beispiel dieser FileLists:
https://www.herber.de/bbs/user/103869.xlsx
Die Liste hat 430 Zeilen, entspricht 430 Dateien. Der Ordnername, wo sich die Dateien befinden heisst "Studenten", nach dem "/" folgt der Dateiname mit der Endung .xml oder .tiff. Ich möchte aus dieser FileList randomisiert jeweils 50 Zeilen in eine neue Tabelle reinschreiben. Wichtig ist dabei, dass die Auswahl zufällig erfolgen soll.
Am Ende sollte ich also bei 430 Dateien, 8 Tabellen mit 50 Zeilen und 1 Tabelle mit den restlichen 30 Zeilen haben.
Ich hoffe mein Problem ist verständlich.
Vielleicht wäre hier ein Makro nützlich, kann dies jedoch nicht Einschätzen, da ich nur Basiskenntnisse in Excel habe.
Ich freue mich über jede Hilfe.
Vielen Dank im Voraus!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-FileList randomisiert splitten
25.02.2016 11:01:06
ChrisL
Hi
Sub Makro1()
Dim WS As Worksheet
Dim LetzteZeile As Long, i As Long
Application.ScreenUpdating = False
With Worksheets("studenten")
LetzteZeile = .Range("A65536").End(xlUp).Row
.Range("B1:B" & LetzteZeile).Formula = "=RAND()"
.Sort.SortFields.Add Key:=Range("B1"), SortOn:=xlSortOnValues, Order:=xlAscending
.Sort.SetRange .Range("A1:B" & LetzteZeile)
.Sort.Apply
.Columns(2).Delete
For i = 1 To LetzteZeile Step 50
Set WS = Worksheets.Add
.Range(.Cells(i, 1), .Cells(i + 49, 1)).Copy WS.Range("A1")
Next i
End With
Application.ScreenUpdating = True
End Sub

Zufälligkeit wird mittels =ZUFALLSZAHL() in Spalte B und anschliessendem sortieren erreicht.
cu
Chris

Anzeige
AW: Excel-FileList randomisiert splitten
25.02.2016 11:32:43
Jaylan
Funktioniert tadellos! Vielen Dank!
Beste Grüße
Jay

AW: Excel-FileList randomisiert splitten
25.02.2016 11:44:26
Jaylan
Eine Frage habe ich noch: Besteht die Möglichkeit die erstellten Tabellen jeweils getrennt als .txt-Datei abzuspeichern?
Viele Grüße

AW: Excel-FileList randomisiert splitten
25.02.2016 13:02:47
Jaylan
Hab ich bereits erledigt! :)
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige