Herbers Excel-Forum - das Archiv
Hilfe bei VBA in CommandButton
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
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
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
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
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
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
Betrifft: Danke für die Rückmeldung ! oT
von: Lutz
Geschrieben am: 10.11.2003 11:36:22