MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 19.06.2017, 13:46   #16
Hias
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Habe ich gemacht - nun funktioniert es.

Tut mir leid, ich habe etwas rumprobiert, da anfangs der kopierte Code nicht lief. Vielleicht lag es daran dass ich unter Extras/Verweise im VBE Microsoft Scripting Runtime nicht ausgewählt habe.


Auf jeden Fall Danke!!

Wie würde denn der Code aussehen wenn man nicht nur eine Zahl hinzufügt, sondern den Namen Komplett ändert zum Beispiel:

101 Allgemein zu 500 XYZ


Viele Grüße
Hias
Hias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 19.06.2017, 14:34   #17
Storax
MOF Profi
MOF Profi
Standard

Wie lautet die Regel für das Umbenennen?
Hinweis: Deine erste Regel war, jeweils eine 1 an das Verzeichnis vorne zu hängen. Und jetzt?

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2017, 09:17   #18
Hias
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Oh Entschuldigung:

Die Regel würde dann sozusagen eigentlich lauten:

Lösche die Alte Beschriftung und benenne Sie neu

Gibt es vielleicht einen "Replace-Code" ?

Viele Grüße
Hias
Hias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2017, 09:52   #19
Storax
MOF Profi
MOF Profi
Standard

Die Regel ist zu allgemein. Das war ja auch die Regel im ersten Fall
Wenn Du das nicht beschreiben kannst, kann man Dir nicht helfen.

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2017, 15:00   #20
Hias
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

okay ich versuche es genauer:

In jeden dieser Unterordner (wie vorher auch schon) soll der Ordner 101 Allgemein unbenannt werden zu 500 XYZ


Code:

sngFolder.Move sngFolder.ParentFolder.Path & "Hier kann man dann den neuen Namen reinschreiben: 500 XYZ" 

So und jetzt müsste man noch sagen mit welchen Ordner er es machen sollte und dann noch die alte Beschriftung löschen& sngFolder.Name  & ""


Um den Ordner umzubenennen würde ich folgenden Code verwenden:

Code:

Alt = "C:/test/01/2585/101 Allgemein"
Neu = "C:/test/01/2585/500 XYZ"
Name Alt As Neu
Da dieser Code aber nur für den Überordner 2585 gilt und nicht alle Ordner durchläuft, komme ich hier nicht weiter.


Grüße Hias

Geändert von Hias (20.06.2017 um 15:06 Uhr).
Hias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.06.2017, 15:27   #21
Storax
MOF Profi
MOF Profi
Standard

Ok, ich glaube, ich habe es verstanden, dann so
Code:

Option Explicit

Sub SpecialRenameSubfolder(myFolder As folder)
Const OLD_DIR = "101 Allgemein"
Const NEW_DIR = "500 XYZ"
Dim fso As New FileSystemObject
Dim sngFolder As folder
    
    For Each sngFolder In myFolder.SubFolders
        If sngFolder.Name = OLD_DIR Then
        sngFolder.Move sngFolder.ParentFolder.Path & "" & NEW_DIR
        End If
    Next

End Sub

Sub LoopThroughMainDir()
Const MainDir = "c:Userswulfg2DocumentsMicrosoftExcelvba"

Dim fso As New FileSystemObject

Dim mainFolder As folder
Dim subFolder As folder
Dim sngFolder As folder

    Set mainFolder = fso.GetFolder(MainDir)
    
    For Each sngFolder In mainFolder.SubFolders
        
        Debug.Print sngFolder.Path
        SpecialRenameSubfolder sngFolder
    Next
    
End Sub

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.06.2017, 06:57   #22
Hias
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Guten Morgen,

Vielen Dank! ich denk mir gerade, da hätt ich auch selber drauf kommen können..

Ich habe in dieser Zeile noch einen / eingefügt, sonst verschiebt er die Dateien in den Oberordner:

Code:

sngFolder.Move sngFolder.ParentFolder.Path & "/" & NEW_DIR

Jetzt funktionierts!


Gruß Hias
Hias ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.06.2017, 07:59   #23
Storax
MOF Profi
MOF Profi
Standard

Ups, richtig, Backslashes ( \ ) werden immer verschluckt, wenn man da nicht dran denkt, das richtig aufzubereiten

__________________

This isn't a code writing service, you need to do some research and have a go at writing some of your own code.
Storax ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:15 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.