Makro anpassen ???
13.11.2003 10:46:33
Michael
ich habe mir ein Makro zusammengebastelt welches mein Blatt druckt, dann eine Kopie speichert und das Original mit Sicherungskopie speichert.
zwischen dem Speichern der Kopie und dem Speichern des Originals
soll der Wert in L22 der seine Entsprechung in V22 hat um 1 erhöht werden, wie löse ich das.
Hier mal das Makro wie es bis jetzt ausschaut:
Private Sub CommandButton1_Click()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ChDir "H:\Rg-Test\Rg-Archiv\"
ActiveWorkbook.SaveAs Filename:="H:\Rg-Test\Rg-Archiv\Rg-Test" & Range("L22").Text & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("L22").Select
ActiveCell.FormulaR1C1 = "V2" + 1 -->Wie muss hier die Formel aussehen<--
Range("L20").Select
ChDir "H:\Rg-Test\"
ActiveWorkbook.SaveAs Filename:="H:\Rg-Test\Rg-Test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
End Sub
Gruss
Michael
Anzeige