Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
336to340
336to340
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro anpassen ???

Makro anpassen ???
13.11.2003 10:46:33
Michael
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
activecell.value = range("V22").value +1
13.11.2003 11:30:16
begges
activecell.value = range("V22").value +1
Begges :-) Prima, aber eine ? hab ich noch
13.11.2003 11:44:50
Michael
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
AW: Begges :-) Prima, aber eine ? hab ich noch
13.11.2003 12:00:13
Begges
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
Anzeige
:-) Prima, so hat ich´s mir vorgestellt Danke oT
13.11.2003 13:58:01
Michael
:-))

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige