Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -------> Neu: dotNet & Visual Studio Forum <-
funtion aufrufen
zurück: automatisch eine Email abschicken... weiter: Mit Excel in pdf Datei schreiben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
deen_90
Neuling


Verfasst am:
24. Jan 2008, 16:41
Rufname:


funtion aufrufen - funtion aufrufen

Nach oben
       Version: Office 2003

Hallo

wie kann ich bei einem Private Sub der dann mehrere Public Function hat die Funktionen im Sub aufrufen?

also es sieht so aus:

[code:1:dfc7c7b92f]

Public Sub CommandButton1_Click()

Dim i
Dim lastRow As Long

'--------------------------------------------------------------------------------------------------------

'---------------------------------------- Aktuelles Jahr und Monat --------------------------------------

jahr = Year(Now)
'monat = Month(Now)

monat = 12

'---------------------------------------- Funktionen aufrufen -------------------------------------------

If monat = 1 Then Januar

If monat = 2 Then Februar

If monat = 3 Then Maerz

If monat = 4 Then April

If monat = 5 Then Mai

If monat = 6 Then Juni

If monat = 7 Then Juli

If monat = 8 Then August

If monat = 9 Then September

If monat = 10 Then Oktober

If monat = 11 Then November

If monat = 12 Then Dezember

End Sub

Public Function Januar()

'--------------------------------------------------------------------------------------------------------


'----------------------------------------- Datei öffnen Monat Januar ----------------------------------


'AU

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 1 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-01\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function Februar()

'----------------------------------------- Datei öffnen Monat Februar ----------------------------------


'AU

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 2 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-02\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function Maerz()

'----------------------------------------- Datei öffnen Monat Maerz ----------------------------------


'AU

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 3 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-03\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function April()

'----------------------------------------- Datei öffnen Monat April ----------------------------------


'AU

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 4 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-04\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function Mai()

'----------------------------------------- Datei öffnen Monat Mai ----------------------------------


'AU

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 5 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-05\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function Juni()

'----------------------------------------- Datei öffnen Monat Juni ----------------------------------


'AU

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 6 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-06\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function Juli()

'----------------------------------------- Datei öffnen Monat Juli ----------------------------------


'AU

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 7 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-07\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function August()

'----------------------------------------- Datei öffnen Monat August ----------------------------------


'AU

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - AUABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'BR

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report - BRABB - 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("BR").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - BRABB - 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IN

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report - INABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - INABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'CN

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report - CNABB 2007 12.xls")

Application.DisplayAlerts = False

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("CN").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - CNABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'NAM

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report - NAM 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("NAM").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - NAM 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'PL

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report - PLABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("PL").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - PLABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'SEA & NEA

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report - SEA & NEA 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("SEA&NEA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report - SEA & NEA 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'IT

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report Report - ITABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("IT").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ITABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If


'ZA

If monat = 8 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-08\Country Input\PES Monthly Report Report - ZAABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("ZA").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("PES Monthly Report Report - ZAABB 2007 12.xls").Activate
ActiveWindow.Close
ActiveSheet.Range("A2").Select

End If

End Function

Public Function September()

'----------------------------------------- Datei öffnen Monat September ----------------------------------


'AU

If monat = 9 Then

Workbooks.Open ("C:\Documents and Settings\chdezau\My Documents\Aufgaben\PES Monthly Summary\" & jahr & "\2007-09\Country Input\PES Monthly Report Report - AUABB 2007 12.xls")

Sheets("MUSD").Select
ActiveSheet.Cells.Select
Selection.Copy
Windows("PES Side Reporting Dec 2007.xls").Activate
Sheets("AU").Select
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows(&quo
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Autoform bedingt aufrufen 6 Janni1977 86 15. Jan 2014, 16:07
Janni1977 Autoform bedingt aufrufen
Keine neuen Beiträge Excel Formeln: Tabellenblätter in einem aufrufen 8 CrZo88 179 15. Mai 2012, 21:54
CrZo88 Tabellenblätter in einem aufrufen
Keine neuen Beiträge Excel Formeln: Bilder über Dropdown aufrufen 5 BrunoT 393 05. Feb 2012, 17:33
Zero Bilder über Dropdown aufrufen
Keine neuen Beiträge Excel Formeln: Verschachtung "WENN" Funtion 4 grille 300 13. Feb 2009, 11:30
grille Verschachtung "WENN" Funtion
Keine neuen Beiträge Excel VBA (Makros): aufrufen des Zoom-Dialogs 3 Python 581 10. Aug 2006, 13:41
Kuwe aufrufen des Zoom-Dialogs
Keine neuen Beiträge Excel Formeln: kann man vorhandene excel funktionen in einem makro aufrufen 1 alwhae 5869 10. Jul 2006, 13:39
Klaus-Dieter kann man vorhandene excel funktionen in einem makro aufrufen
Keine neuen Beiträge Excel VBA (Makros): Standard-Suchen-Dialog per VBA aufrufen 2 Gast1 691 30. Jun 2006, 08:57
Gast1 Standard-Suchen-Dialog per VBA aufrufen
Keine neuen Beiträge Excel VBA (Makros): Speichern unter mit VARIABLE per VBA aufrufen 4 Taxman 3061 15. Jun 2006, 13:03
Berni68 Speichern unter mit VARIABLE per VBA aufrufen
Keine neuen Beiträge Excel VBA (Makros): Subs aufrufen / Subs mit Parametern? 2 vbaNewbie 592 13. Jun 2006, 11:53
vbaNewbie Subs aufrufen / Subs mit Parametern?
Keine neuen Beiträge Excel VBA (Makros): Passwortschutz/ VBA aufrufen 11 Mr.Jack999 1006 04. Mai 2006, 15:32
xpecidy Passwortschutz/ VBA aufrufen
Keine neuen Beiträge Excel VBA (Makros): Fehlerbehandlung in Excel aus Powerpoint aufrufen 9 Felidae 707 16. Jan 2006, 16:48
Felidae Fehlerbehandlung in Excel aus Powerpoint aufrufen
Keine neuen Beiträge Excel VBA (Makros): Datei mit einem Button aufrufen ? Brauche Eure Hilfe ! 11 JOJU 695 19. Dez 2005, 08:52
JOJU Datei mit einem Button aufrufen ? Brauche Eure Hilfe  !
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage