Guten Tag
Ich möchte gerne in folgendem Makro (ist nur ein Auszug)
Private Sub auto_open()
Sheets("Vertretungen").Visible = True
Sheets("Vertretungen").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
ChDir _
"C:\Daten\Maschinenlaufkarten"
Workbooks.Open Filename:= _
"C:\Daten\Maschinenlaufkarten\Vertretungen.xlsx"
Range("A2").Select
Range("A1:A50").Select
Selection.Copy
Windows("Maschine_1.xlsx").Activate
Sheets("Vertretungen").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False
Windows("Vertretungen.xlsx").Activate
Range("A1").Select
ActiveWindow.Close
Windows("Maschine_1.xlsx").Activate
einen weiteren Befehl einfügen, der mir den Namen der Arbeitsmappe in dieses Makro schreibt.
Der Hintergrund ist der, dass der User diese Arbeitsmappe mit Namen "Maschine_1.xlsx" öffnen und ausfüllen soll. Danach speichert er die Arbeitsmappe zum Beispiel unter "Maschine_2.xlsx" und schliesst sie. Die Original-Datei bleibt erhalten. Dieser neue Name soll dann entweder beim Speichern, beim Schliessen oder beim Öffnen in das Makro hineingeschrieben werden, damit das Makro auch mit geändertem Arbeitsmappen-Namen ohne Störung ablaufen kann.
Hat jemand eine Idee, wie ein solcher Befehl aussehen könnte??
Vielen herzlichen Dank im Voraus und än wunderschöne Aabig ! ! !
Grüessli
Ruppi
Ich möchte gerne in folgendem Makro (ist nur ein Auszug)
Private Sub auto_open()
Sheets("Vertretungen").Visible = True
Sheets("Vertretungen").Select
Cells.Select
Selection.ClearContents
Range("A1").Select
ChDir _
"C:\Daten\Maschinenlaufkarten"
Workbooks.Open Filename:= _
"C:\Daten\Maschinenlaufkarten\Vertretungen.xlsx"
Range("A2").Select
Range("A1:A50").Select
Selection.Copy
Windows("Maschine_1.xlsx").Activate
Sheets("Vertretungen").Select
ActiveSheet.Paste
ActiveWindow.SelectedSheets.Visible = False
Windows("Vertretungen.xlsx").Activate
Range("A1").Select
ActiveWindow.Close
Windows("Maschine_1.xlsx").Activate
einen weiteren Befehl einfügen, der mir den Namen der Arbeitsmappe in dieses Makro schreibt.
Der Hintergrund ist der, dass der User diese Arbeitsmappe mit Namen "Maschine_1.xlsx" öffnen und ausfüllen soll. Danach speichert er die Arbeitsmappe zum Beispiel unter "Maschine_2.xlsx" und schliesst sie. Die Original-Datei bleibt erhalten. Dieser neue Name soll dann entweder beim Speichern, beim Schliessen oder beim Öffnen in das Makro hineingeschrieben werden, damit das Makro auch mit geändertem Arbeitsmappen-Namen ohne Störung ablaufen kann.
Hat jemand eine Idee, wie ein solcher Befehl aussehen könnte??
Vielen herzlichen Dank im Voraus und än wunderschöne Aabig ! ! !
Grüessli
Ruppi