Private Sub CommandButton1_Click()
Dim Pfad As String
Pfad = "C:\Test.xls"
Workbooks.Open Pfad
End Sub
Grüße
Hoffi
Sub oeffnen()
Workbooks.Open Filename:= _
"C:\Tabellen\ExcelMakros\Test.xls"
End Sub
Gruß
marcl
Sub Makro10()
' Makro10 Makro
' Makro am 03.05.2007 von KuehnA aufgezeichnet
Dim Pfad As String
Pfad = "D:\"
Workbooks.Open Filename:= _
"H:\einkauf\Kennzahlen\Lieferservicegrad\LSG Historie 2007\LFSG-Neutral.xls"
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("LFSG-Neutral.xls").Activate
Sheets("Basistabelle").Select
Windows("LZ-CF-20070502-LSG-Historie mit Werk-Neutest.xls").Activate
Sheets("Basistabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="FUNDICIONES DE VERA S.A."
Rows("14:65536").Select
Selection.Copy
Windows("LFSG-Neutral.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werksauswahl").Select
Application.Run "'LFSG-Neutral.xls'!Makro1"
Sheets("Lief.vergleich").Select
Range("P6").Select
ActiveWindow.SmallScroll ToRight:=-11
Sheets("Basistabelle").Select
ActiveWindow.LargeScroll ToRight:=-2
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=4
Sheets("Werksauswahl").Select
ActiveWindow.LargeScroll ToRight:=7
ActiveWindow.SmallScroll ToRight:=-21
Sheets("Grafik Lief. 1").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ThisWorkbook.SaveAs Filename:=Pfad&"Auswertung_Funvera_LFSG"&".xls"
End Sub
Hoffe ihr könnt mir helfen?
Vielen Dank im Voraus.
Workbooks.Open "C\Test.xls"
schreibst, oder
Workbooks.Open Pfad
das ist egal.
Du kannst bei dieser Variable nicht nur den Pfad hinterlegen, sondern Du könntest den Pfad auch _
aus einer Zelle auslesen, z.Bsp.
Pfad = Range("A1").value
Das mal zur Info
Grüße
Hoffi
Sub Makro10()
' Makro10 Makro
' Makro am 03.05.2007 von KuehnA aufgezeichnet
Dim Pfad As String
Pfad = "D:\"
Workbooks.Open Filename:= _
"H:\einkauf\Kennzahlen\Lieferservicegrad\LSG Historie 2007\LFSG-Neutral.xls"
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("LFSG-Neutral.xls").Activate
Sheets("Basistabelle").Select
ThisWorkbook.SaveAs Filename:=Pfad&"Auswertung_"&".xls"
End Sub
Sub Makro10()
' Makro10 Makro
' Makro am 03.05.2007 von KuehnA aufgezeichnet
Dim Pfad As String
Pfad = "D:\"
Workbooks.Open Filename:= _
"H:\einkauf\Kennzahlen\Lieferservicegrad\LSG Historie 2007\LFSG-Neutral.xls"
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveWindow.Visible = False
Windows("LFSG-Neutral.xls").Activate
Sheets("Basistabelle").Select
Windows("LZ-CF-20070502-LSG-Historie mit Werk-Neutest.xls").Activate
Sheets("Basistabelle").Select
Selection.AutoFilter Field:=8, Criteria1:="FUNDICIONES DE VERA S.A."
Rows("14:65536").Select
Selection.Copy
Windows("LFSG-Neutral.xls").Activate
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werksauswahl").Select
Application.Run "'LFSG-Neutral.xls'!Makro1"
Sheets("Lief.vergleich").Select
Range("P6").Select
ActiveWindow.SmallScroll ToRight:=-11
Sheets("Basistabelle").Select
ActiveWindow.LargeScroll ToRight:=-2
ActiveWindow.SmallScroll Down:=18
ActiveWindow.LargeScroll Down:=4
Sheets("Werksauswahl").Select
ActiveWindow.LargeScroll ToRight:=7
ActiveWindow.SmallScroll ToRight:=-21
Sheets("Grafik Lief. 1").Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ThisWorkbook.SaveAs Filename:=Pfad&"Auswertung_Funvera_LFSG"&".xls"
End Sub
Sub Makro13()
Workbooks.Open Filename:="D:\LFSG-Neutral.xls"
Hier muss jetzt der Wechsel in die erste Datei als in die Ausgangsdatei erfolgen, damit ich _
filtern und kopieren kann! Wie funktioniert das?
ActiveWorkbook.SaveAs Filename:="D:\LFSG-Funvera.xls"
End Sub
Denke, den Fehler findet man nicht, zuviel ausprobiert. Dachte es ist besser ich fang von vorne an.
Hoffe du kannst mir weiterhelfen!
Vielen Dank im Voraus.
Sub Makro13()
Dim WB1 As Workbook
Dim WB2 As Workbook
Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open Filename:="D:\LFSG-Neutral.xls"
'Dann so ansprechen:
WB1.Sheets("....").Autofilter usw.
WB1.SaveAs Filename:="D:\LFSG-Funvera.xls" 'oder WB2? Ich blick das ja inhaltlich nicht.
End Sub
Gruß Matthias