Makro verbraucht zu viel Speicherkapazität
11.07.2007 17:33:00
Salim
Hallo zusammen,
habe folgendes Makro geschrieben. Davor war die Datei ca. 1MB gross und enthielt schon mehrere Makros. Mit dem Einfügen dieses zusätzlichen Makros waren es auf einmal 1,8 MB. Ist das normal bzw. kann man das Makro so schreiben, dass es weniger Speicherplatz in Anpsruch nimmt?
Danke
Salim
Private Sub CommandButton1_Click()
Me.Hide
Inp = InputBox("Geben Sie das Passwort ein", "")
If Inp "" Then
MsgBox "Falsches Passswort"
Exit Sub
End If
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
Sheets("RSPLAN").Visible = True
Sheets("RSPLAN").Unprotect
Sheets("RSFC").Unprotect
Sheets("RSFC").Visible = True
Sheets("RSPLAN").Activate
Range("A1:P552").Select
Selection.Copy
Sheets("RSFC").Activate
Range("A1:P552").Select
Selection.Insert
Range("A1").Select
Application.CutCopyMode = False
Sheets("RSPLAN").Activate
Range("A1").Select
Application.CutCopyMode = False
ActiveSheet.Cells.Locked = True
ActiveSheet.Protect
Sheets("RSFC").Protect
ActiveWorkbook.Protect
Application.ScreenUpdating = True
End Sub