Kopieren: Makro Optimieren
16.01.2015 09:44:42
Dieter(Drummer)
folgendes Makro habe ich aufgezeichnet und es kann sicher optimiert werden. Select ist ja wohl nicht mehr notwendig und ich weiß nicht, wie ich es ändern kann.
Mit der Bitte um Hilfe und Optimierung.
Gruß, Dieter(Drummer
Sub SaldoInJan()
Range("C13").Select
Selection.Copy
Range("C47").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E13").Select
Selection.Copy
Range("E47").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G13").Select
Selection.Copy
Range("G47").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("I13").Select
Selection.Copy
Range("I47").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("K13").Select
Selection.Copy
Range("K47").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("M13").Select
Selection.Copy
Range("M47").Select
ActiveSheet.Paste
Application.CutCopyMode = False
MsgBox "Saldo ist eingetragen", vbInformation, "Mx: Info"
End Sub