einzelnes WS in bestehende Datei auf LW speichern
06.01.2017 09:35:46
gjunge
mein Makro läuft aktuell wie gewünscht.
Private Sub cmd_save_Click()
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Range("E19").Text & "_" & Range("H20")
ActiveSheet.Shapes.Range(Array("cmd_loadUF")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("cmd_save")).Select
Selection.Delete
Application.Goto Reference:="R9C1:R10C1"
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Eingabe").Select
... usw.
End Sub
Aber nun gibt es eine neue Anforderung ...
Das Blatt soll nun nicht mehr in der aktuell geöffneten Datei gespeichert werden sondern in eine bereits bestehende Datei auf einem LW (z. B. \\server\pool\Pro\NP\AM XXX\*.xls). Die aktuelle Datei soll also nur als Vorlage dienen und nicht abgeändert werden. In den Zellen H18 und I18 stehen die beiden Werte, welche den LW- Pfad "mitbringen". H18 = AM (da steht immer AM); I18 = XXX (max. Länge sind drei Ziffern). Wie bekomme ich das hin? Kann mir bitte jemand helfen?
Danke und Grüße