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

Beiträge aus den Excel-Beispielen zum Thema " Datei per VB-Befehl kopieren aber ohne den Code "