Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Datei per VB-Befehl kopieren aber ohne den Code "

Blätter in andere Arbeitsmappen kopieren download Module von Mappe zu Mappe kopieren download
Arbeitsblatt 40 mal kopieren download Schriftgröße beim Kopieren verdoppeln download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Tabellencode nach Kopieren des Blattes löschen download
Arbeitsmappe blitzschnell kopieren download VBE-Namen der Blattmodule beim Kopieren festlegen download
Blattinhalt von einer zur anderen Arbeitsmappe kopieren download Formel bis zur letzten Zeile der Nebenspalte kopieren download
Datei kopieren, wenn noch nicht vorhanden download Zeilenweise von Blatt zu Blatt kopieren download
Erste Druckseite in eine neue Arbeitsmappe kopieren download Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download
Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download Bei Eintrag in Spalte A aktuelle Zeile kopieren download
Filtern und Kopieren download Zeile mit aktiver Zelle in anderes Blatt kopieren download
Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Über InputBox festzulegenden Bereich kopieren download
Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download Tabellenblatt kopieren und dreistellig fortlaufend numerieren download
Jede zweite Zelle kopieren download Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download