Code vereinfachen
22.10.2005 16:57:49
HansH
ich bin gerade dabei, eine immer größer werdende Datei hier und da durch resourcenschonende Vereinfachungen händelbar zu halten (z.B. Select). Die Datei hat 28 Tabellen in der auch je ein Druckbefehl in einem Modul hinterlegt ist.
Kann folgender Beispielcode vereinfacht werden und wenn ja ganz wichtig!, wie?
Sub Abrechnung_Rückläufergebühren()
Range("A2:G16").PrintOut Copies:=1, Collate:=True
Range("I5").Select 'aktive Zelle in der Regel in I5
End Sub
Sub Abrechnung_Lastschriftgebühren()
Range("A2:G16").PrintOut Copies:=1, Collate:=True
Range("I5").Select 'aktive Zelle in der Regel in I5
End Sub
Vielen Dank schon mal
Gruß
Hans
Anzeige