Herbers Excel-Forum - das Archiv

Datei per VB-Befehl kopieren aber ohne den Code

Bild

Betrifft: Datei per VB-Befehl kopieren aber ohne den Code
von: Chris
Geschrieben am: 13.10.2003 14:17:21
Hallo,

ich möchte von einer Master-Datei per Selectionchange-ABfrage abhängig vom Inhalt einer Zelle (Kontrollwert=0) eine Kopie unter anderem Namen machen. Diese Kopie darf aber nicht auch diese Selectionchange-Abfrage besitzen. Weis jemand wie das geht?

Gruß,
Chris

Bild

Betrifft: AW: Datei per VB-Befehl kopieren aber ohne den Code
von: Guido Palacios
Geschrieben am: 13.10.2003 14:27:05
wenn eine 1 in zeile & spalte 2 steht wird eine kopie erstellt:



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Row = 2 Then
If Target.Value = 1 Then
'Sub Makro1()
' Makro1 Makro
' Makro am 13.10.2003 von Niederlassung Stuttgart aufgezeichnet
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Mappe1.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
'End Sub

End If
End If
End If

End Sub

Bild

Betrifft: AW: Datei per VB-Befehl kopieren aber ohne den Code
von: Chris
Geschrieben am: 13.10.2003 14:36:05
Hi Guido,

der von dir angegebene Code in der Original-Datei wird ja dann in die unter anderem Namen gespeicherte Kopie auch als SelectionChange-Prozedur mitgespeichert. Genau das soll aber nicht geschehn.

Gruß,
Chris
Bild

Betrifft: AW: Datei per VB-Befehl kopieren aber ohne den Code
von: ANdreas
Geschrieben am: 13.10.2003 14:44:46
Hallo Chris,

mit .SaveCopyAs die Datei erst mal abspeichern.
Wie Du dort dann den Code löschst, findest Du hier:
http://xlfaq.herber.de/texte/154101h.htm

Hoffe das hilft weiter,
Andreas
Bild

Betrifft: AW: Datei per VB-Befehl kopieren aber ohne den Code
von: xXx
Geschrieben am: 13.10.2003 14:51:19
Hallo,
willst du das komplette Workbook oder nur das Sheet speichern?
Nur das Blatt: (getestet wird A1 auf den Wert 0)


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target.Value <> 0 Then Exit Sub
ActiveSheet.Copy
With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.DeleteLines 1, .CountOfLines
End With
ActiveWorkbook.SaveAs Filename:="c:\test.xls"
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!
Bild

Betrifft: AW: Datei per VB-Befehl kopieren aber ohne den Code
von: Chris
Geschrieben am: 13.10.2003 15:51:30
Hi,

thanks for Answer. Also ich möchte die ganze Arbeitsmappe speichern. Was muss ich dann am genannten Code ändern?

Gruß,
Chris
Bild

Betrifft: AW: Datei per VB-Befehl kopieren aber ohne den Code
von: Chris
Geschrieben am: 13.10.2003 15:59:55
Hallo,

eine Frage: kann ich die SelectionChange-Abfrage nicht auch von der Xla (die den Gesamten Code zum Öffnen und Bearbeiten der Master-Datei enthält) aus mit Bezug auf die Master-XLS starten? Dies würde die XLS samt späterer Kopie "Code-frei" lassen.

Gruß,
Chris
 Bild
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Datei per VB-Befehl kopieren aber ohne den Code "
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen
Arbeitsmappe blitzschnell kopieren VBE-Namen der Blattmodule beim Kopieren festlegen
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Formel bis zur letzten Zeile der Nebenspalte kopieren