Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen von 200 Dateien per Makro umbenennen ?

Dateinamen von 200 Dateien per Makro umbenennen ?
02.07.2008 13:10:00
200
hallo,
kann mithilfe eines Makros Dateien umbenennen?
Ich habe ca. gleichartige 200 Dateien deren Name so aufgebaut ist:
JJJJMMTTtext.xls
Jetzt möchte man die Trennung von Jahr Monat und Tag per Bindetsrich, damit das dann so aussieht:

JJJJ-MM-TTtext.xls
Kann man sowas mithilfe eines makros realisieren?

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen von 200 Dateien per Makro umbenennen ?
02.07.2008 13:57:53
200
Hallo
hier ein abgeändertes Makro:


Option Explicit
Sub alle_Dateien_Verzeichnis() '
    Dim dlg As FileDialog
    Dim Si, Ext$, Datei$, PfadDatei$, Datum$, Rest$, NeuName$
    Set dlg = Application.FileDialog(msoFileDialogFolderPicker) 'Verzeichnis wählen
    If dlg.Show = True Then
        For Each Si In dlg.SelectedItems 'Die Abfrage für den selektierten Eintrag
            Ext = "*.xls*"       'Dateiextension ggf. anpassen
            Si = IIf(Right(Si, 1) = "\", Si, Si & "\")
            Datei = Dir(Si & Ext)
            Do While Len(Datei) > 0
                Datum = Left(Datei, 6)
                Rest = Right(Datei, Len(Datei) - 6)
                NeuName = Si & Format(Datum, "00-00-00") & Rest
                PfadDatei = Si & Datei
                Name PfadDatei As NeuName
                Datei = Dir() ' nächste Datei
            Loop
        Next
    End If
End Sub
Ggf. erst eine Sicherung der Dateien vornehmen.
Gruß UweD
Anzeige
das war leider falsch
03.07.2008 08:17:00
greenhorn
da hab ich mir leider einen fehler eingehandelt.
jetzt sehen die namen so aus:
Userbild
Kein Beinbruch, aber wie kann man es nochmal ins gewünschte ändern?
christian

AW: das war leider falsch
03.07.2008 10:29:53
UweD
Hallo
ups...
Ich hab die Jahreszahl nur 2stellig angenommen... sorry
so muß die Zeile richtige lauten. (bezogen auf die ursprünglichen Namen)
NeuName = Si & Format(Datum, "0000-00-00") & Rest
Gruß UweD

AW: das war leider falsch
03.07.2008 12:43:12
UweD
Hi
diese Zeilen müssen natürlich mit geändert werden...
Datum = Left(Datei, 8)
Rest = Right(Datei, Len(Datei) - 8)
NeuName = Si & Format(Datum, "0000-00-00") & Rest
Gruß UweD

Anzeige
so passts
03.07.2008 15:58:00
greenhorn
danke.

AW: Dateinamen von 200 Dateien per Makro umbenennen ?
02.07.2008 14:04:00
200
Hallo,
ich hab mal ein mehr oder weniger universelles Umbenennungstool geschrieben:
https://www.herber.de/bbs/user/53526.xls
Liest aus einem anzugebenden Verzeichnis eine Liste von Dateien mit anzugebendem Suchmuster (z.B. *.xls)
Dann muss man im Blatt "Dateien" in Spalte C eine Formel eingeben und runterkopieren, die die neuen Dateinamen ergeben.
Dann Klick auf Umbenennen und fertig.
Allerdings muss man selbst schauen, dass Dateinamen in Spalte C nicht doppelt vorkommen.
Gruß Matthias

Anzeige
noch ein kleines problem meinerseits...
03.07.2008 08:14:00
greenhorn
hallo,
erstmal danke für deine mühe. Das man dies universell anwenden kann ist super.
Ich habe aber noch ein kleines pronlem mit der formel-eingabe des neuen dateinamens.
Ich habe das runterkopieren wollen, allerdings macht er es nicht wie gewünscht, es sieht so aus:
Userbild
Was mache ich falsch?
christian

AW: noch ein kleines problem meinerseits...
03.07.2008 08:20:08
Matthias
Hallo Christian,
welche Formel hast du denn verwendet?
Gruß Matthias

AW: noch ein kleines problem meinerseits...
03.07.2008 08:22:55
greenhorn
im prinzip gar keine (bin ja so gut wie gar nicht VBA-bewandert)
ich hatte es einfach manuell rüberkopiert, modifiziert und nach unten ausfüllen wollen.
Aber das hatte ich mir wohl zu leicht vorgestellt, oder?

Anzeige
AW: noch ein kleines problem meinerseits...
03.07.2008 08:26:00
Matthias
Hi,
na es ist eigentlich so gedacht, dass man in C1 eine Formel schreibt, z.B.:
=A1 & ".txt"
und diese dann nach unten zieht:
Tabelle2
  
 ABC
1Datei1.xls Datei1.xls.txt
2Datei2.xls Datei2.xls.txt
3Datei3.xls Datei3.xls.txt
4Datei4.xls Datei4.xls.txt
5Datei5.xls Datei5.xls.txt
6Datei6.xls Datei6.xls.txt
Formeln der Tabelle
C1 : =A1&".txt"

C2 : =A2&".txt"

C3 : =A3&".txt"

C4 : =A4&".txt"

C5 : =A5&".txt"

C6 : =A6&".txt"


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Sonst klappt es ja nicht mit den Dateinamen. Das ist doch einfach ne Formel und hat mit VBA nix zu tun...

Gruß Matthias




		

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: noch ein kleines problem meinerseits...
                                            

                    

                                                    03.07.2008 08:29:50
                                            

                                

                                            greenhorn
                                    

            

        

        

                            
stimmt, was hab ich mir bloß dabei gedacht. Wahrscheinlich nichts.

Mein Bild zeigt bereits einen konkreten Fall, könntest du mir da mit einer Formel weiterhelfen?

christian




		

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: noch ein kleines problem meinerseits...
                                            

                    

                                                    03.07.2008 08:35:34
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hi Christian,

so?


=TEIL(A1;1;2)&TEIL(A1;4;2)&"-"&TEIL(A1;7;2)&"-"&TEIL(A1;9;100)



Gruß Matthias




		

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            SPITZENMÄßIG .... !!!!!
                                            

                    

                                                    03.07.2008 09:06:00
                                            

                                

                                            greenhorn
                                    

            

        

        

                            
ich danke vielmals.

Ich denke damit hab ich auch meine VBA-Kenntnisse auch ein bischen erweitert.

christian




		

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: SPITZENMÄßIG .... !!!!!
                                            

                    

                                                    03.07.2008 09:09:38
                                            

                                

                                            Matthias
                                    

            

        

        

                            
Hallo Christian,

Ich denke damit hab ich auch meine VBA-Kenntnisse auch ein bischen erweitert.

Mit der Formel?

;-)

Gruß Matthias




		

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: SPITZENMÄßIG .... !!!!!
                                            

                    

                                                    03.07.2008 09:16:08
                                            

                                

                                            greenhorn
                                    

            

        

        

                            
auch, aber hauptsächlich mit dem was im Modul steht.

=)




		

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: Dateinamen von 200 Dateien per Makro umbenennen ?
                                            

                    

                                                    02.07.2008 15:10:00
                                            

                                

                                            200
                                    

            

        

        

                            
Hallo

folgenden Code solltest du aber zuerst in einem Testordner ausführen! Es ist noch keine Fehlerroutine eingebaut:


Sub Dateien_umbenennen()
Dim Pfad As String
Pfad = "Z:\Documents and Settings\TSISADA1\My Documents\Test VBA\Dateien umbenennen\"
Name = Dir(Pfad)
Do Until Name = ""
Name Pfad & Name As Pfad & Left(Name, 4) & "-" & Mid(Name, 5, 2) & "-" & Mid(Name, 7, 2) &  _
Right(Name, Len(Name) - 8) & ".xls"
Name = Dir()
Loop
End Sub



Viel Erfolg

Dani



		

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


            
    
            


    

        
                37 Forumthreads zu ähnlichen Themen
    

    
    

        

            
                
        

                           
                

                    

                        

                            
                            Vba Markro für mehrere Dateien ermöglichen | Herbers Excel-Forum
                        

                                                    

                                BENNY
                            

                                            

                    

                                                
Hallo,

habe ein riesen Problem: Ich soll für meinen Arbeitgeber folgenden VBA Code umbauen. Momentan kann man mit Hilfe dieses Codes eine .fdf Datei einlesen und sie wir in Excel in Zeile 1 (Überschrift) und 2 (Werte) ausgelesen.

Mein Chef möchte nun, dass man mehrere Dateien einlesen kann...
                    

                    

                        

                                                            13.01.2010 14:52:54
                                                    

                        

                            Thread-ID:
                            1129510
                        

                        

                            5
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                            

                    


    
Anzeige

    

        
                    
            
                
    



                

                    

                   
                
        

                           
                

                    

                        

                            
                            VBA: mehrere Dateien nacheinander einlesen
                        

                                                    

                                H.Benitz
                            

                                            

                    

                                                

Hallo,

da meine VBA-Kenntnisse zur Zeit noch recht bescheiden sind, habe ich mir das Script für mein Vorhaben aus verschiedenen Beiträgen zusammengebastelt.

Funktioniert soweit schon ganz gut, aber ein Problem gibt es noch!

Das Ziel ist:

Es sollen aus einem vom Anwender vorgegeb...
                    

                    

                        

                                                            06.12.2012 11:06:13
                                                    

                        

                            Thread-ID:
                            1289572
                        

                        

                            3
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            Kopieren&umbenennen von Dateien mit VBA
                        

                                                    

                                Dateien
                            

                                            

                    

                                                

Moin,

verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.


Dim sr As Scripting.FileSystemObject
v0 = "c:\prog\testfiles"
TNetzCopy "\\pc1\i1\*T ", v0, "1"
und dann weiter mit der SUB
Private Sub TNetzCopy(QuellPC As...
                    

                    

                        

                                                            02.09.2013 08:49:00
                                                    

                        

                            Thread-ID:
                            1329147
                        

                        

                            2
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                            

                    


    
Anzeige

    

        
                    
            
                
    



                

                    

                   
                
        

                           
                

                    

                        

                            
                            VBA: Formel auslesen und verändern
                        

                                                    

                                Sabine
                            

                                            

                    

                                                

Hallo Profis,

ich habe in Zelle P7 folgende Formel: =[RWH 2013-01.xls]Jahreswerte'!$O$20

Ich würde gerne mittels VBA die 01 in meiner Formel um jeweils 1 erhöhen. 

Ergebnis soll dann sein: =[RWH 2013-02.xls]Jahreswerte'!$O$20, beim nächsten Durchlauf

=[RWH 2013-03.xls]Jahreswert...
                    

                    

                        

                                                            17.02.2014 12:26:41
                                                    

                        

                            Thread-ID:
                            1349972
                        

                        

                            4
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            Dateiendung ändern, Dateinamen variabel
                        

                                                    

                                dEllE
                            

                                            

                    

                                                

Hallo an alle,

zum Thema Umbennen habe ich einiges gefunden was funktioniert, allerdings wird dort immer nur mit statischen Pfad- und Dateiangaben gewerkelt.

Ich möchte eine Datei, die täglich in einem Ordner erstellt und nach Datum und Uhrzeit benannt wird, von .csv in .txt ändern.
...
                    

                    

                        

                                                            14.05.2014 13:32:36
                                                    

                        

                            Thread-ID:
                            1361553
                        

                        

                            6
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            vba Ein pdf-Dokument aus mehreren worddateien
                        

                                                    

                                Livio
                            

                                            

                    

                                                

Hallo

Ich möchte von einer Exceldatei aus durch einen klick auf einen Button, im Explorer im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\1. Installation Protocols" und im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\2. Comissioning Protocols" dass alle 100-150 Worddateien...
                    

                    

                        

                                                            15.12.2014 14:44:29
                                                    

                        

                            Thread-ID:
                            1398119
                        

                        

                            2
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            Excel VBA mehrere Dateien öffnen problematisch
                        

                                                    

                                Oskar
                            

                                            

                    

                                                

Hallo liebes Forum,

ich möchte Werte von einer Datei in eine andere kopieren. Dabei habe ich das Problem, dass sich nicht alle Dateien öffnen.

1. Es gibt ein Template (Zieldatei), in das ich alle Werte einkopieren möchte. Dieses öffne ich mit Workbooks.Open gleich zu Beginn des Makros.<...
                    

                    

                        

                                                            11.09.2016 21:44:38
                                                    

                        

                            Thread-ID:
                            1513821
                        

                        

                            2
                            Beiträge
                        

                    

                

                
                    

                   
                
        

                           
                

                    

                        

                            
                            VBA Excel: mehrere .txt Dateien importieren in eig
                        

                                                    

                                Micheal
                            

                                            

                    

                                                

Guten morgen,

kurz zu mir: ich bin eher Anfänger bzgl. VBA Programmierung und arbeite viel mit dem Makrorekorder und google-suchen. Hat bisher auch gut geklappt, allerdings brauche in nun etwas spezielles was ich nicht finde.

Folgendes: ich habe mehrer Textdateien die ich in excel über...
                    

                    

                        

                                                            17.12.2016 11:47:30
                                                    

                        

                            Thread-ID:
                            1530609
                        

                        

                            5
                            Beiträge
                        

                    

                

                
                    

         

    


    

 

    
    
                        


    
Anzeige

    

        
                    
            
                
    



                


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

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

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                                    

                        

    

        
        Archiv - Verwandte Themen
    

    

        

            

                

                    Forumthread
                

                

                    Beiträge
                

            

        

        
                    

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            5
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            3
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            6
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            15
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            10
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            7
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            1
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            4
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            8
                        
                    


                

            

                                

                

                    

                        
                        
                    

                

                

                    

                        
                            2