Arbeitsmappe speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Kopie() Dim wksName As String, wks As Worksheet wksName = "C:\Users\Admin\Desktop\DA.xlsm" ActiveWorkbook.SaveCopyAs wksName Workbooks.Open (wksName) With Workbooks(VBA.Right(wksName, VBA.Len(wksName) - VBA.InStrRev(wksName, "\", , _ vbTextCompare))) '.Worksheets(Array(1, 3)).Select For Each wks In .Worksheets 'wks.Name Next End With End Sub

Hallo Timo,
die codes in DieseArbeitsmappe, Module und userforms bleiben in der Mappe, wenn Du sie als Kopie speicherst.
Wenn nicht, gibt es hier einige Beispiele für die Übernahme, z.B. das:
Übersicht:
https://www.herber.de/xlfaq/index.html#VBE
Modul "kopieren"
https://www.herber.de/mailing/013398h.htm
Im Prinzip werden die Dinger per Makro exportiert und in der neuen Mappe importiert.
Nach gleichem Muster geht es mit Userforms und Klassenmodulen.
Die codes aus DieseArbeitsmappe und den Tabellenblättern kannst Du zeilenweise auslesen und in der neuen Mappe einlesen. Allerdings habe ich schon erlebt, dass das Einfügen von code in DieseArbeitsmappe Probleme machen kann.
Code aus Tabellenblatt übertragen
https://www.herber.de/mailing/Makro_aus_einer_Arbeitsmappe_in_die_Personlxls_kopieren.htm

 Hoffe, geholfen zu haben. Grüße, André aus G in T  (xls 97-2013)

Hallo Hendrik,
ich verstehe das auch nicht mehr. Hier mal mein Code. Der läuft durch bis zu dem Zeitpunkt wo die Tabellenblätter gelöscht werden sollen. Dann springt er auf den Entwurfsmodus. Wenn ich diesen dann deaktivieren will kommt folgende Fehlermeldung:
"Aufgrund der Sicherheitseinstellungen wurden Makros deaktiviert. Zum Ausführen von Makros müssen sie diese Arbeitsmappe erneut öffnen und dann Makros aktivieren. Klicken Sie auf 'Hilfe' , um weitere Informationen zum Aktivieren von Makros zu erhalten."


Private Sub CommandButton2_Click()
Dim InI As Integer
Dim Pfad, heute, Datum, strFileName, cstrPathName, SatzName
Dim i As Long
Dim sh As Worksheet
If Sheets("Ergebnis_Satz").Satz = "" Then
MsgBox "Bitte Satz auswählen", vbCritical, "F E H L E R"
Exit Sub
Else
End If
'Pfad ermitteln
Pfad = ActiveWorkbook.Path
heute = Now
Datum = Format(heute, "dd_mm_yyyy_hh_mm") ' das Jahr herausfinden
' Filename aus Auswahl ermitteln
SatzName = Sheets("Ergebnis_Satz").Satz
strFileName = Sheets("Ergebnis_Satz").Satz & "_Projektstand_gesamt_vom_" & "_" & Datum & ".xlsm" _
' in Path
cstrPathName = Pfad & "\Auswertung\" & Sheets("Ergebnis_Satz").Satz
'Schauen ob der der Ordner schon vorhanden ist und wenn nicht erstellen
If Dir(Pfad & "\Auswertung\" & SatzName, vbDirectory) = "" Then
MkDir (Pfad & "\Auswertung\" & SatzName)
Else
End If
ActiveWorkbook.SaveCopyAs (cstrPathName + "\" + strFileName)
Application.Workbooks.Open (cstrPathName + "\" + strFileName)
Windows(strFileName).Activate
Application.DisplayAlerts = False
'alle Blätter einblenden
For Each sh In Sheets
sh.Visible = True
Next sh
'Blätter löschen
For Each sh In Sheets
If sh.Name  "Ergebnis_Satz" And sh.Name  "Daten_Satz" Then sh.Delete
Next
On Error Resume Next
'Combobox löschen
Sheets("Ergebnis_Satz").Activate
ActiveSheet.Shapes.Range(Array("Satz")).Select
Selection.Delete
Sheets("Daten_Satz").Visible = False
With ActiveWorkbook
.Save
.Close
End With
Application.DisplayAlerts = True
Windows("Soll-Ist.xlsm").Activate
End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsmappe speichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread