workbook add: wechsel wb
08.07.2020 13:49:01
Günter
ich rufe in einem Makro ein weiteres auf, in dem ich mit workbook.add eine xlsx-Datei anlege.
Erst beim Speichern lege ich den Dateinamen aus deiner Kombination aus einer festen Namen und Datum und Uhrzeit (z.B. Summary_20200708_133755) fest.
Ich möchte vorher Daten aus der Ursprungsdatei in das neue workbook kopieren.
Wie kann ich zwischen den workbooks wechseln?
Geht das mit Windows.activate, wobei ich mit der Syntax nicht klarkomme.
Denn ich habe dem zweiten workbook ja noch keinen Namen gegeben.
Oder muss ich erst das neue workbook speichern und dann im zweiten Schritt die Datenbefüllung vornehmen, was dann mich wieder vor dem Problem stellt, das ich den Namen des neuen Workbooks ermitteln muss.
Wenn ich der Variablen strName trauen kann, befinde ich mich immer in der Ursprungsdatei, aus der ich das Makro aufrufe.
Ich habe mich hoffentlich einigermaßen verständlich ausgedrückt"
Sub export()
Application.SheetsInNewWorkbook = 7
Workbooks.Add
Sheets("Tabelle1").Select
Sheets("Tabelle1").Name = "Summary"
'Registerlasche einfärben (blau)
Sheets("Summary").Tab.ColorIndex = 8
Sheets("Tabelle2").Select
Sheets("Tabelle2").Name = "Ref_II_B_1"
'Registerlasche einfärben (gelb)
Sheets("Ref_II_B_1").Tab.ColorIndex = 6
Sheets("Tabelle3").Select
Sheets("Tabelle3").Name = "Ref_II_B_2"
'Registerlasche einfärben (gelb)
Sheets("Ref_II_B_2").Tab.ColorIndex = 6
Sheets("Tabelle4").Select
Sheets("Tabelle4").Name = "Ref_II_B_3"
'Registerlasche einfärben (gelb)
Sheets("Ref_II_B_3").Tab.ColorIndex = 6
Sheets("Tabelle5").Select
Sheets("Tabelle5").Name = "Ref_II_B_4"
'Registerlasche einfärben (gelb)
Sheets("Ref_II_B_4").Tab.ColorIndex = 6
Sheets("Tabelle6").Select
Sheets("Tabelle6").Name = "Ref_II_B_5"
'Registerlasche einfärben (gelb)
Sheets("Ref_II_B_5").Tab.ColorIndex = 6
Sheets("Tabelle7").Select
Sheets("Tabelle7").Name = "Ref_II_B_6"
'Registerlasche einfärben (gelb)
Sheets("Ref_II_B_6").Tab.ColorIndex = 6
Sheets("Summary").Select
Dim datname As String
strpfad = ThisWorkbook.Path
datname = strpfad & "\Management_Summary_" & Format(Date, "YYYYMMDD") & "_" & Format(Time, " _
hhmmss") & ".xlsx"
MsgBox datname
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs datname
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub