title image


Smiley Code in allen Mappen im Verzeichnis ändern
Guten Morgen Hermann,



in diesem Makro werden alle Excel-Mappen im angegebenen Verzeichnis behandelt.

Der Code in "DieseArbeitsmappe" wird gelöscht (!) und durch den angegebenen Code ersetzt. Teste es mal an einer Kopie. Wenn du das Makro nur ändern willst, würde ich nur ganz bestimmte Zeilen löschen und diese ersetzen.







Sub Workbookopen_aendern() '

    strPath = "C:\Test\" 'Pfad des Verzeichnisses ggf. anpassen

    strExt = "*.xls"       'Dateiextension ggf. anpassen

    Dim strFile As String

    Application.EnableEvents = False

    Application.ScreenUpdating = False

    If strPath = "" Then

        Exit Sub

    Else

        strFile = Dir(strPath & strExt)

        Do While Len(strFile) > 0

            Workbooks.Open Filename:=strPath & strFile

        With ActiveWorkbook.VBProject.VBComponents(ThisWorkbook.CodeName).CodeModule

            .DeleteLines 1, .countoflines

            .InsertLines 1, "Private Sub Workbook_Open()"

            .InsertLines 2, "MsgBox ""Mahlzeit"""

            .InsertLines 3, "End Sub"

        End With

            Workbooks(strFile).Close savechanges:=True

            strFile = Dir() ' nächste Datei

        Loop

    End If

    Application.ScreenUpdating = True

    Application.EnableEvents = True

End Sub





Code eingefügt mit Syntaxhighlighter 4.0






Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: