Hilfe bei VBA in CommandButton

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

Betrifft: Hilfe bei VBA in CommandButton
von: Michael
Geschrieben am: 10.11.2003 09:27:02

Hallo,

ich habe in einen Commandbutton zum speichern und drucken folgenden Code eingebaut:


Private Sub CommandButton1_Click()
    ChDir "H:\Probieren\"
    ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=True
           ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Das funktioniert auch erstmal soweit, nur hätte ich gerne, das der Dateiname Rg-Probe001.xls heisst und bei jedem Speichern die Zahl um 1 erhöht wird.

Gibt es eine Lösung?

Gruss aus München
Bild


Betrifft: AW: Hilfe bei VBA in CommandButton
von: Lutz
Geschrieben am: 10.11.2003 10:03:22

Hallo Micha,

eine Möglichkeit wäre, eine Zelle (hier A1) mit Zahl - Format 000 zu formatieren und diese Zelle am Beginn des Makros abzufragen und am Ende um 1 zu erhöhen.



Private Sub CommandButton1_Click()
    ChDir "H:\Probieren\"
    x = Range("A1").Text
    ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe" & x & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=True
    [A1] = [A1] + 1
           ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1


Gruß Lutz


Bild


Betrifft: AW: Hilfe bei VBA in CommandButton
von: Michael
Geschrieben am: 10.11.2003 10:46:39

Hallo Lutz,

da die Zelle mit einer Nummer bei mir eh existiert und sich bei jeder weiteren datei um 1 erhöht, sieht das jetzt so aus


Private Sub CommandButton1_Click()
    ChDir "H:\Probieren\"
    x = Range("L22").Text
    ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe" & x & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=True
    
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub


Beim Aufruf des Button gibts aber eine Fehlermeldung:
Fehler beim Kompilieren, Variable nicht definiert
und x = ist im Debugfenster markiert

Gruss


Bild


Betrifft: AW: Hilfe bei VBA in CommandButton
von: Lutz
Geschrieben am: 10.11.2003 11:17:17

Hallo Micha,

hast Du sicher Option Explizit eingesetzt.
Schreibe am Anfang des Makros Dim x oder ändere den Code folgendermaßen:



Private Sub CommandButton1_Click()
    ChDir "H:\Probieren\"
    ActiveWorkbook.SaveAs Filename:="H:\Probieren\Rg-Probe" & Range("L22").Text & ".xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=True
    
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

     Code eingefügt mit Syntaxhighlighter 2.1


Gruß Lutz


Bild


Betrifft: AW: Hilfe bei VBA in CommandButton
von: Michael
Geschrieben am: 10.11.2003 11:31:04

Danke Lutz,

hattest Recht mit der Option Explizit, habe den Code jetzt geändert und es funktioniert tdellos!

Gruss aus München


Bild


Betrifft: Danke für die Rückmeldung ! oT
von: Lutz
Geschrieben am: 10.11.2003 11:36:22




Bild

Beiträge aus den Excel-Beispielen zum Thema " Hilfe bei VBA in CommandButton"