Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Hilfe bei VBA in CommandButton"
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen CommandButtons in verschiedenen Tabellen mit einem Makro
CommandButtons sollen auf Schaltflächen-Klick deaktiviert werden