Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Umbenennen von Windows-Ordnern aus VBA

Forumthread: Umbenennen von Windows-Ordnern aus VBA

Umbenennen von Windows-Ordnern aus VBA
07.04.2009 13:21:31
Windows-Ordnern
Hallo!
Ich habe ein Problem mit umbenennen von Windows-Ordnern aus VBA.
In einem Ordner befinden sich viele Vorlagen-Ordner z.B Vorlage1, Vorlage2 usw.
Wie kann man immer den ersten (alphabetisch) Vorlage-Ordner zur Laufzeit umbenennen.
Da ich ja den vollen Ordnernamen vorher nicht genau kenne ist das doch schwierig.
Ein Teile des Ordnernamens ("Vorlage") ist allerdings bekannt und auch immer gleich.
Vieleicht habt ihr ja ne gute Idee dazu.
Gruß Pierre
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 13:52:12
Windows-Ordnern
Hi Pierre
Hier n kleiner Denkanstoß:
- mit Hilfe des geeigneten Codes alle Ordnernamen aus dem gewünschten Verzeichnis in eine freie Spalte einlesen - in Zeile 1 beginnen
- die Einträge in dieser Spalte dann mit VBA sortieren (Daten/Sortieren mit Makro aufzeichnen und Code anpassen)
- jetzt hast du in der ersten Zelle den im Alphabet an erster Stelle stehenden Ordnernamen
- diesen Ordner nun mit VBA umbenennen
- Spalte löschen
fertig
Hilfts?
Ciao
Thorsten
Anzeige
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 13:58:45
Windows-Ordnern
Danke Thorsten,
interessanter Ansatz, ist keine schlechte Idee.
Wenn es nichts besseres kommt werde ich auf diese Lösung zurückgreifen.
Zumindestens habe schon mal eine Möglichkeit das Problem zu lösen.
Gruß Pierre
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 14:32:29
Windows-Ordnern
Hallo,

Sub tt()
Dim fs As Object, oF As Object, oSF As Object, vntFS(), n As Integer
Const strPfad As String = "n:\Test"
Set fs = CreateObject("scripting.filesystemobject")
Set oF = fs.getfolder(strPfad)
ReDim vntFS(1 To oF.subfolders.Count)
For Each oSF In oF.subfolders
n = n + 1
vntFS(n) = oSF.Name
Next
QuickSort vntFS
Name strPfad & "\" & vntFS(1) As strPfad & "\" & "MeinNeuerOrdnerName"
End Sub




Sub QuickSort(ByRef VA_Array, Optional V_Low1, Optional V_High1)
On Error Resume Next
Dim V_Low2 As Long, V_High2 As Long
Dim V_Val1, V_Val2 As Variant
If IsMissing(V_Low1) Then
V_Low1 = LBound(VA_Array, 1)
End If
If IsMissing(V_High1) Then
V_High1 = UBound(VA_Array, 1)
End If
V_Low2 = V_Low1
V_High2 = V_High1
V_Val1 = VA_Array((V_Low1 + V_High1) / 2)
While (V_Low2  V_Val1 And _
V_High2 > V_Low1)
V_High2 = V_High2 - 1
Wend
If (V_Low2  V_Low1) Then Call _
QuickSort(VA_Array, V_Low1, V_High2)
If (V_Low2


Gruß
Dierk

Anzeige
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 14:56:23
Windows-Ordnern
Hallo Dierk!
Danke für den Code, ich werde das mal testen.
Gruß Pierre
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 15:08:38
Windows-Ordnern
Hallo Dierk!
Dein Code funktioniert soweit prima, allerdings habe ich vergessen zu sagen, dass neben den Vorlage-Ordnern auch andere Ordner vorhanden sind. Diese sollen aber nicht berücksichtigt werden.
Umbenennen möchte ich nur immer den ersten der Vorlage-Ordner.
z. B. "Vorlage1" als "NeuerOrdnerName" , nächstes Mal "Vorlage2" als "WiederNeuerOrdnerName"
Wie schon gesagt die Vorlage-Ordner fangen immer mit "Vorlage" an und haben dann am Ende ne Zahl.
Gruß Pierre
Anzeige
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 15:39:25
Windows-Ordnern
Hallo,
dann fülle das Array doch entsprechend eingegrenzt.
For Each oSF In oF.subfolders
if oSF.Name like "Vorlage*" Then
n = n + 1
vntFS(n) = oSF.Name
end if
Next
AW: Umbenennen von Windows-Ordnern aus VBA
07.04.2009 15:50:11
Windows-Ordnern
Hi Dierk,
genau das ist es, funktioniert super.
Vielen Dank
Gruß Pierre
;

Forumthreads zu verwandten Themen

Datein aus Ordner in Listbox
Markus

Hallo,
brauch wieder mal eure Hilfe.
Möchte über ein UserForm nach bestimmte Dateien eines Ordners inkl. Unterordner suchen.
Button: Ordner wählen öffnet Msg Box such dort mein Ordner aus klappt schon.
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDispla...
30.09.2008 12:45:47
Thread-ID: 1013354
2 Beiträge
Dateinamen-Übertrag aus Verzeichnis in Excelspalte
Joerschi

Hallo liebe Excel-Freunde,
folgendes Excel-Problem kann ich nicht lösen:
ich möchte aus einem beliebigen Verzeichnis auf meiner Festplatte die vollständigen Namen aller darin enthaltenen Dateien in eine Excel-Tabelle übertragen. Die Sortierung sollte dabei alphabetisch/nummerisch aufste...
10.10.2008 14:46:00
Thread-ID: 1015594
9 Beiträge
Anzeige
Dateinamen aus Zelle mit Bedingung
Daniel

Hallo Leute,
ich brauche mal wieder Eure Hilfe:
Mit dem folgenden Makro (hier aus dem Forum) bilde ich den Dateinamen aus dem Zellinhalt; das klappt soweit ganz gut:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True Application.EnableEvent...
18.12.2008 14:02:47
Thread-ID: 1033865
3 Beiträge
Auslesen Ordnerinhalte
Thomas

Hallo zusammen,
ich habe folgendes Problem und bitte um Hilfe.
Ich will eine Datei erstellen die Ordnerinhalte wiedergeben soll.
Beispiel:
Es gibt einen Datei-Ordner "Kunden", der beinhaltet weitere Ordner die nach Städten sortiert sind. In den Städteordnern befinden sich Exceld...
19.12.2008 22:25:05
Thread-ID: 1034294
21 Beiträge
Dateien aus Unterverzeichnissen auslesen
Michael

Hallo zusammen,
ich habe ein Verzeichnis mit mehreren Unterverzeichnissen und möchte alle Dateien inkl. der Filestruktur ausgelesen bekommen. Habt ihr sowas schon mal gesehen?
Viele Grüße
Michael
05.02.2009 18:28:00
Thread-ID: 1047464
4 Beiträge
Dateinamen auslesen (aus Ordnernamen in Spalte)
Tobias

Dieses Script sollte eine Dateiliste erstellen, wenn der Ordner- bzw. Verzeichnisname in der Spalte A steht.
Quelle: https://www.herber.de/mailing/072499h.htm
Ich bekomme aber Laufzeitfehler 445. Objekt unterstützt diese Aktion nicht.
Woran kann das liegen? Benutze Excel 2007
08.02.2009 21:31:46
Thread-ID: 1048494
6 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Dateinamen aus .rar auslesen
Jochen

Hallo zusammen,
in den letzten Tagen habe ich mein Archiv an Anleitungen etc. mal gepackt und zwar alphabetisch (also ein Archiv "A.rar", eins "B.rar" ...) Was ich vorher nicht bedacht hatte: Ohne Inhaltsverzeichnis, weiß ich nicht, ob ich z.B. die ISBN-FAQ unter "T" Telefon oder unter "I"...
18.04.2009 11:53:30
Thread-ID: 1069463
3 Beiträge
Excel Dateien aus Ordner auslesen (Fragebogen)
Bene

Hallo zusammen!
Ich schreibe momentan an meiner Diplomarbeit und brauche in dem Zusammenhang unbedingt eure Unterstützung in Sachen VBA-Programmierung.
Ich habe nicht wirklich Ahnung von VBA und bastel jetzt schon seit einer ganzen Weile an meinem Problem herum. Im Forum konnte ich lei...
05.08.2009 11:36:40
Thread-ID: 1093693
6 Beiträge
Ordner auswählen und dateinamen in listbox eintrag
Thomas

Hallo VBAler
Besteht die Möglichkeit über einen Button den Ordnerdialog aufzurufen, einen Ordner auswählen und anschließend die Dateinamen in diesem Ordner in eine Listbox einzutragen.
Ziel ist es dann in der Listbox einen Eintrag auszuwählen und über einen weiteren Button diese Dateie...
03.12.2009 14:06:51
Thread-ID: 1121529
2 Beiträge
Anzeige
Dateinamen+Pfade auslesen und in neues Tabellenbl.
Helmut

hallo liebe vba'ler,
ich habe schon im online-archiv nachgesehen, aber nichts genau passendes für mein "problem" gefunden, obwohl das thema oft behandelt wurde.
ich möchte aus einem verzeichnis, auch aus einer partition (also z.b. komplettes laufwerk c:), alle dateien mit einer bestimmt...
16.03.2010 10:20:46
Thread-ID: 1146119
13 Beiträge
Alle Html-Tabellen eines Ordners auslesen
Knut

Liebe Experten,
ich stehe vor einem mittelgroßen VBA-Problem.
Ich muss aus einem Ordner eine größere Anzahl Dateien (Tischrechnungen Gastro) auslesen und bestimmte Zellwerte in das aktive Tabellenblatt kopieren.
Bei den Dateien handelt es sich um html-Dateien, die von Excel anstan...
30.12.2010 22:44:20
Thread-ID: 1193411
5 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