nach Makrostart langsamer
11.09.2004 08:11:38
Harald
habe folgendes Problem, das ich nicht in den Griff bekomme:
erstellte ein Makro,das den Druckbereich für eine Kalenderwoche festlegt.
dies funktioniert einwandfrei
aber nach dem ausführen dieses Makros wird Excell beim eingeben von Daten langsamer.
liegt dies nun an diesem Makro,oder daran dass ich in diesem Tabellenblatt noch zusätzlich einen "Worksheet_Change" befehl benutze, der mir beim eingeben in spalte e[Datumseingabe] automatisch in den Spalten A-D das dazugehörige Jahr,Quartal,Monat und Woche einträgt.
schliesse ich nämlich diese Datei,öffne diese wieder, so funktioniert die Eingabe wieder einwandfrei.
hier mal der Code den ich zum Wochendruck verwende:
Sub druckeWoche()
Application.ScreenUpdating = False
Dim ber As Range, z As Range
Dim s As Integer, a As Integer
a = Range("D65536").End(xlUp)
On Error GoTo Fehler
s = InputBox("Kalenderwoche eingeben", "wochenausdruck", a)
Set ber = Range("D5", Range("D65536").End(xlUp))
For Each z In ber
If z.Value <> s Then
With z.Rows
.Hidden = True
End With
End If
Next z
With ActiveSheet.PageSetup
.CenterHeader = "Kalenderwoche " & s & "/" & format(Date, "YYYY")
.LeftFooter = Application.ThisWorkbook.FullName
.RightFooter = "Druckdatum: " & Date
End With
ActiveSheet.PrintPreview
Rows.Hidden = False
Fehler: Exit Sub
Set ber = Nothing
Application.ScreenUpdating = True
End Sub
vielleicht weis wer Rat
Danke
Anzeige