Herbers Excel-Forum - das Archiv
Makro anpassen ???
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
- Makro anpassen ??? von Michael vom 13.11.2003 10:46:33
- activecell.value = range("V22").value +1 - von begges am 13.11.2003 11:30:16
- Begges :-) Prima, aber eine ? hab ich noch - von Michael am 13.11.2003 11:44:50
- AW: Begges :-) Prima, aber eine ? hab ich noch - von Begges am 13.11.2003 12:00:13
- :-) Prima, so hat ich´s mir vorgestellt Danke oT - von Michael am 13.11.2003 13:58:01
- :-) Prima, so hat ich´s mir vorgestellt Danke oT - von Michael am 13.11.2003 13:58:01
- AW: Begges :-) Prima, aber eine ? hab ich noch - von Begges am 13.11.2003 12:00:13
- Begges :-) Prima, aber eine ? hab ich noch - von Michael am 13.11.2003 11:44:50
- activecell.value = range("V22").value +1 - von begges am 13.11.2003 11:30:16
 |
Betrifft: Makro anpassen ???
von: Michael
Geschrieben am: 13.11.2003 10:46:33
Hallo,
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
 |
Betrifft: activecell.value = range("V22").value +1
von: begges
Geschrieben am: 13.11.2003 11:30:16
activecell.value = range("V22").value +1
|
Betrifft: Begges :-) Prima, aber eine ? hab ich noch
von: Michael
Geschrieben am: 13.11.2003 11:44:50
Kann ich die Sicherheitsabfrage "Die Datei existiert, soll sie überschrieben werden " ausschalten ?
ChDir "H:\Rg-Test\"
ActiveWorkbook.SaveAs Filename:="H:\Rg-Test\Rg-Test.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=True
Gruss aus München
|
Betrifft: AW: Begges :-) Prima, aber eine ? hab ich noch
von: Begges
Geschrieben am: 13.11.2003 12:00:13
am Anfang von Deinem Makro eingeben oder besser noch genau vor der Stelle an der die Meldung ausgeschaltet werden soll:
Application.DisplayAlerts = False
nach deinem Code dann wieder
Application.DisplayAlerts = True
weil sonsts wirds gefährlich, da die Meldungen ja global fürs gesamte Excel ausgeschaltet wurden.
Grüßle
Begges
|
Betrifft: :-) Prima, so hat ich´s mir vorgestellt Danke oT
von: Michael
Geschrieben am: 13.11.2003 13:58:01
:-))
| |