Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

nach Makrostart langsamer

nach Makrostart langsamer
11.09.2004 08:11:38
Harald
Hallo liebe Gemeinde
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach Makrostart langsamer
11.09.2004 15:53:57
max
High.
Trotz meiner version xl9 kann ich nichts am Makro beanstanden.
Läuft tadellos.
Worksheet_change k ö n n t e es sein, wenn Target nicht exakt definiert wurde.
Würde mal testweise eine neue Datei schreiben um dem Fehler habhaft zu werden.
Max
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige