Das Archiv des Excel-Forums

Neues Workbook anlegen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Neues Workbook anlegen
von: Sven

Geschrieben am: 30.09.2003 15:27:21

Hi Leute

Bei diesem Code

Private Sub CommandButton1_Click()
ActiveSheet.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs (ActiveSheet.Range("a2") & "-" & ActiveSheet.Range("f2") & "-" & ActiveSheet.Range("i2"))
ActiveWorkbook.Close
End Sub


Hab ich das Problem,das noch ein Workbook mit Standartbezeichnung offen bleibt.
Wie kann ich dieses denn schließen ohne zu speichern.
Oder wie kann ich,wenn ich statt SaveAs nur Save benutze,dem Workbook den passenden Namen verpasse.

Gruß Sven
Bild


Betrifft: AW: Neues Workbook anlegen
von: Beni
Geschrieben am: 30.09.2003 15:43:30

Hallo Sven,
probiere es mit diesem.
Gruss Beni


Sub Blattspeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = ActiveWorkbook.Path & "\"
Dim Default
sWks = "Test"
If sWks = "" Then Exit Sub
sFile = [a2] & "-" & [f2] & "-" & [i2]
prompt = "Blattname"
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sPath & sFile
Application.ScreenUpdating = True
End Sub



Bild


Betrifft: Danke
von: Sven
Geschrieben am: 30.09.2003 15:55:59

Hab nur noch ein Close dazu gesetzt und fertig war der lack. Danke für die Hilfe


Bild


Betrifft: neues Problem: CommandButton nicht mit kopieren
von: Sven
Geschrieben am: 30.09.2003 16:01:02

Wie kann ich das so hinfummeln, das der CommandButton, der für diese Anweisung tätig ist, auf dem neu erstellen Sheet zu verstecken oder erst garnicht erst mit zu kopieren?

Gruß Sven


Bild


Betrifft: AW: neues Problem: CommandButton nicht mit kopieren
von: Beni
Geschrieben am: 30.09.2003 16:28:46

Hallo Sven,
Gruss Beni


Sub Blattspeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = ActiveWorkbook.Path & "\"
Dim Default
sWks = "Test"
If sWks = "" Then Exit Sub
sFile = [a2] & "-" & [f2] & "-" & [i2]
prompt = "Blattname"
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sPath & sFile
ActiveSheet.Shapes("Button 1").Delete 'XXXXXX
Application.ScreenUpdating = True
End Sub



 Bild

Excel-Beispiele zum Thema " Neues Workbook anlegen"

Fehler in Workbook_Open-Prozedur abfangen download Arbeitsmappe anlegen und Workbook_Open-Prozedur schreiben download
Aufhebung der Workbook_Open-Befehle verhindern download Workbook_Open-Prozedur beim VBA-Aufruf ausschalten download
400 leere Textdateien anlegen download Verzeichnisbaum anlegen download
Monatsblatt anlegen download Textdatei mit vorgegebenen Feldlängen anlegen download
Jahreskalender mit Monatsblättern anlegen download Paßwortdatei anlegen download
Monatsabhängige Tagesliste anlegen und Wochenenden markieren download Arbeitsmappe mit 12 Monatsblättern anlegen download
Monatsblätter mit Gültigkeitsliste anlegen download Beim Öffnen Menüleiste anlegen und auf "ganzen Bildschirm" schalten download
Verknüpfungen in 2. Blatt transponiert anlegen download Tagesblätter eines Monats ohne Wochenenden und Feiertage anlegen download
Hyperlinks zu SVERWEIS-Bezugstabellen anlegen download Neue Symbolleiste am rechten Fensterrand anlegen download
Anlegen von Tabellenblättern gem. Namensliste download Bei Blattwechsel anlegen einer Symbolleiste mit Zellwerten download
Jahreskalender mit KW nach DIN1355 anlegen download Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download
In der Arbeitsblattmenüleiste ein Menü "Dateiliste" anlegen download Verzeichnisse gemäß Tabelleneintragen anlegen download
Vorhandensein von Verzeichnissen prüfen und Ordner anlegen download Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen download
Jahreskalender mit Mitarbeiterliste und Feiertagen anlegen download Tabellenblätter für Kalenderwochen anlegen und ein/ausblenden download
Jahreskalender als Menü anlegen download Textdatei mit 250.000 Zeilen anlegen und importieren download
Schaltfläche anlegen und Daten an ComboBox sortiert übergeben download Arbeitsblätter einschließlich Link-Schaltflächen anlegen download
Schaltflächen gem. Tabelleninhalten anlegen und benennen. download Teilbereiche als Wiederholungszeilen anlegen download