schnell, schneller...
29.05.2004 22:48:03
thomas
folgendes Makro ist auch noch recht langsam. Was meint ihr zum Gebastel à la thomas. Noch accelerierbar?
Vielen vielen Dank!
thomas
Private Sub CommandButton1_Click()
'Makro, das alle Blätter ausser der Startseite schliesst. Zurück zu Start.
Application.ScreenUpdating = False
'öffnet wieder alles
Worksheets("Erfolgssens.-Analyse BM").Rows("2:4").Hidden = False
Worksheets("Erfolgssens.-Analyse BM").Rows("8:226").Hidden = False
Worksheets("Erfolgssens.-Analyse BM").Columns("F:R").Hidden = False
'löscht alle Input-Felder, nicht aber die Kostenkomponenten beim zurückspringen zu Start.
Sheets("Erfolgssens.-Analyse BM").Range("F47:F48, H47:H48, J47:J48, L47:J48, N47:J48, P47:J48").ClearContents
Sheets("Erfolgssens.-Analyse BM").Range("F80:F81, H80:H81, J80:J81, L80:J81, N80:J81, P80:J81").ClearContents
Sheets("Erfolgssens.-Analyse BM").Range("F113:F114, H113:H114, J113:J114, L113:J114, N113:J114, P113:J114").ClearContents
Sheets("Erfolgssens.-Analyse BM").Range("C10, C12, F14, F16, H14, H16, C18, C20").ClearContents 'Werte SzenGen
Sheets("Start").Select
Application.ScreenUpdating = True
End Sub