ich habe eine Frage zum Visual Basic:
Ich habe das nachfolgend dargestellte Makro erstellt, welches die Aufgabe hat, Daten aus der Basisdatei "Auslegung_Rohr_Wasser_Gas_ASME.XLS" in die Zieldatei "ASMEB31_1OD_V162.xls" zu kopieren.
Die Zieldatei "ASMEB31_1OD_V162.xls" befindet sich an immer der gleichen Stelle (Laufwerk C:\...) und unter dem gleichen Namen, während ich die Basisdatei "Auslegung_Rohr_Wasser_Gas_ASME.XLS" unter jeweils verschiedenen Namen in den jeweiligen Projekten speichern möchte.
Wenn ich die Basisdatei "Auslegung_Rohr_Wasser_Gas_ASME.XLS" aber umbenenne, findet das Makro meine Daten nicht mehr. Wie kann ich erreichen, dass das Makro trotzdem funktioniert, auch wenn ich die Basisdatei (in dem Fall "Auslegung_Rohr_Wasser_Gas_ASME.XLS") jeweils von Projekt zu Projekt umbennene?
Hier ist das bisherige Makro:
Sub Wandstärken_Wasser_Dampf_berechnen()
' Wandstärken_Wasser_Dampf_berechnen Makro
' Makro am 24.04.2012 von spind00e aufgezeichnet
Workbooks.Open Filename:="C:\Data\Common\Wandstaerke\ASMEB31_1OD_V162.xls"
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
ActiveWorkbook.Unprotect
ActiveSheet.Unprotect
Range("I89:J89").Select
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Sheets("ANSB31OD-B36.10").Select
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F12").Select
Selection.ClearContents
Range("F13").Select
Selection.ClearContents
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("C89:E89").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Sheets("ANSB31OD-B36.10").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("I95").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("L6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("C122").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("Y5").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("B22").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("Auslegung Rohr").Select
Range("B3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Range("J2").Select
Application.CutCopyMode = False
Selection.Copy
Windows("ASMEB31_1OD_V162.xls").Activate
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Auslegung_Rohr_Wasser_Gas_ASME.XLS").Activate
Sheets("ANSI-Class nach ASME B16.34").Visible = True
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O12:P12").Select
Selection.Copy
Sheets("Druck-Temperatur Stufen").Visible = True
Sheets("Druck-Temperatur Stufen").Select
Range("E4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck-Temperatur Stufen").Select
Range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
Range("O9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Druck-Temperatur Stufen").Select
Range("E6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("ANSI-Class nach ASME B16.34").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Druck-Temperatur Stufen").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Auslegung Rohr").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
Vielen Dank im Voraus.
Liebe Grüße
Eckart