Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA um in Ordnern best. Dateieigenschaften anzeig

Forumthread: VBA um in Ordnern best. Dateieigenschaften anzeig

VBA um in Ordnern best. Dateieigenschaften anzeig
02.02.2018 23:21:44
Urs
Guten Abend
Ich habe etliche Ordner mit Musik. Ich möchte nun, mit VBA diese Ordner so einrichten, dass die von mir gewünschten Dateieigenschaften in der richtigen Reihenfolge und Breite erscheinen.
z.B.
Titel Stimmung Genre BPM Dateiname Interpret Komponist
Kann man das programmieren.
Vielen Dank für Hilfe und Typs
Anzeige

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

Betreff
Datum
Anwender
Anzeige
VBA um in Ordnern best. Dateieigenschaften anzeig
04.02.2018 15:24:01
Anton
Hallo Urs,
probier es hiermit: 
Dim i As Long
Sub dateien_auflisten()
Dim objShell As Object, objFolder As Object
Dim BrowseDir, varName, k As Integer
Set objShell = CreateObject("Shell.Application")
Set BrowseDir = objShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
If Not BrowseDir Is Nothing Then
Application.ScreenUpdating = False
i = Tabelle1.UsedRange.Rows.Count
Set objFolder = objShell.Namespace(BrowseDir.self.Path)
If i  "Dateiordner" Then
i = i + 1
Cells(i, 1) = varName.Path
Cells(i, 2) = objFolder.GetDetailsOf(varName, Cells(1, 2))
Cells(i, 3) = objFolder.GetDetailsOf(varName, Cells(1, 3))
Cells(i, 4) = objFolder.GetDetailsOf(varName, Cells(1, 4))
Cells(i, 5) = objFolder.GetDetailsOf(varName, Cells(1, 5))
Cells(i, 6) = objFolder.GetDetailsOf(varName, Cells(1, 6))
Cells(i, 7) = objFolder.GetDetailsOf(varName, Cells(1, 7))
End If
Next
Set objFolder = Nothing
Set objShell = Nothing
End Function
mfg Anton
Anzeige
AW: VBA um in Ordnern best. Dateieigenschaften anzeig
04.02.2018 16:26:52
urs
Hallo Anton
vielen Dank für Deine Hilfe. Ich komme erst im laufe der Woche dazu dies umzusetzen und zu testen. Ich werde mich wieder melden. Noch einen schönen Sonntag und morgen einen guten Wochenstart.
Gruss Urs
;

Forumthreads zu verwandten Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
csv.Dateien Format
Katja27

Hallo Forum,
folgendes Problem: Ich will durch ein Makro ein Tabellenblatt in eine csv.Datei umwandeln lassen. Die csv brauche ich im Format "Daten in einer Zeile hintereinander und durch Semikola getrennt". Das Makro habe ich durch Aufzeichnen erstellt und es funktionierte auf meinem Rechn...
29.08.2008 10:45:42
Thread-ID: 1005730
4 Beiträge
Anzeige
Bedingte Formatierung - Datenbalken bei neg Werten
Gianleandro

Ich suche nach einer Möglichkeit die Datenbalken bei der bedingten Formatierung auch für negative Werte zu nutzen. Dabei schwebt mir eine Art Spielgelung der Datenbalken bei negativen Werten vor.
Wer hat dazu eine Idee?
https://www.herber.de/bbs/user/55283.xlsx
09.09.2008 14:22:24
Thread-ID: 1008498
3 Beiträge
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 Beiträge
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Datenquelle eines Diagramms mit VBA verändern
mgr

hallo, ihr excel-götter!
leider hab ich im archiv nichts entsprechendes gefunden und werfe mein anliegen daher hier ein.
ich habe eine datei, die daten statistisch aufbereitet, unter anderem in form eines torten-diagramms.
dieses tortendiagramm wird mit daten befüllt, die durch eine...
21.11.2008 11:45:45
Thread-ID: 1026676
4 Beiträge
Produktdaten aus einer Liste mit VBA verwenden
Niklas

Hello Leute!
Ich arbeite gerade an einem Programm, welches mit Excel VBA programmiert wurde!
Das Programm dient dem Berechnen einer Übertemperatur in Schaltschränken!
Jetzt ist es notwendig, dass man verschiedene Einsätze ( Die Dinge die im Schaltschrank drinnen sind) auswählen kann...
03.12.2008 14:37:00
Thread-ID: 1029841
2 Beiträge
Anzeige
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Einlesen von Musikdaten in VBA
Musikdaten

Hallo Excel-Freunde,
ich möchte mit meinen Musikdaten in Excel-VBA weiterarbeiten und diese zu diesem Zweck importieren. Als Musikdatenbank dient mir Magix MP3-Maker 11. Mit dem Musiktitel geht das mit Hilfe von Application.FileSearch.FoundFiles(iCounter) recht einfach. Aber wie kommt man a...
10.03.2009 16:03:41
Thread-ID: 1058759
5 Beiträge
Anzeige
VBA - Bedingte Formatierung mit For-Next-Schlaufe
Martin

Hallo zusammen
Ich habe ein Makro geschrieben und komme mit der bedingten Formatierung nicht weiter:
Ich habe eine For-Next-Schlaufe, die von unten die Zeilen rauffährt (For i = lezeile To 7 Step -1), unter anderem sollte am Ende der Schlaufe die Spalte A bis J auf der Zeile i jeweils...
12.03.2009 17:38:23
Thread-ID: 1059597
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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