title image


Smiley Re: Aber gerne!
Hallo,



kommst du damit weiter?







Sub bouncer() '

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

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

    D1 = "Mappe1.xls" 'Name anpassen, 1. Datei mit Makro B

    D2 = "Mappe2.xls" 'Name anpassen, 2. Datei mit Makro B

    D3 = "Mappe3.xls" 'Name anpassen, 1. Datei mit Makro C

    D4 = "Mappe4.xls" 'Name anpassen, 2. Datei mit Makro C

    Dim strFile As String

    If strPath = "" Then

        Exit Sub

    Else

        strFile = Dir(strPath & strExt)

        Application.ScreenUpdating = False

        Application.DisplayAlerts = False

        Do While Len(strFile) > 0

            Workbooks.Open Filename:=strPath & strFile

            If ActiveWorkbook.Name = D1 Or ActiveWorkbook.Name = D2 Then

                Call MakroB

            ElseIf ActiveWorkbook.Name = D3 Or ActiveWorkbook.Name = D4 Then

                Call MakroC

            Else

                Call MakroA

            End If

            Workbooks(strFile).Close

            strFile = Dir() ' nächste Datei

        Loop

        Application.DisplayAlerts = True

        Application.ScreenUpdating = True

    End If

End Sub



Sub MakroA()

MsgBox "Makro A"

End Sub



Sub MakroB()

MsgBox "Makro B"

End Sub



Sub MakroC()

MsgBox "Makro C"

End Sub





Code eingefügt mit Syntaxhighlighter 4.0




Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: