Probleme durch Umstellung von Excel 2000 nach 2003

Hallo,
durch die Umstellung von Excel 2000 auf 2003 funktionieren seltsamerweise viele Dateien bzw. Makros nicht mehr korrekt bzw. nur schleppend, die ich in Excel 2000 erstellt hatte.
Mir stellt sich nun die Frage, liegt es an der Datei oder an der Installation von Excel 2003.
Ich habe z.B. eine Mappe in Excel 2000 erstellt, in der recht viele Makros hinterlegt sind und entsprechend auch im Hintergrund ablaufen. Unter Excel 2000 läuft diese auch einwandfrei, unter Excel 2003 jedoch recht schleppend bzw. langsam. Beim Öffnen der Datei wird erstmal der Bildschirm weiß, die Sanduhr läuft and so on !. Der Wechsel in die Entwicklungsumgebung funktioniert auch nicht gerade auf Tastendruck.
Anliegend habe ich mal eine Datei angefügt, die auch in Excel 2000 problemlos arbeitet, jedoch in Excel 2003 nicht so. Es handelt sich um eine Mappe, in der die täglichen Bankvorgänge erfasst werden sollen bzw. des Monats ersichtlich sind. Jeweils zu Monatsanfang erfasst man im ersten Tabellenblatt das Anfangsdatum des Monats. Durch ein Makro werden die Bezeichnungen der Tabellenblätter entsprechend der Bank und Monat benannt, sowie durch eine bedingte Formatierung die Wochenenden und Feiertage farblich hervorgehoben. Eigentlich nichts besonderes bzw. umfangreiches, dennoch werden einerseits bei Excel 2003 die Tabellenblätter nicht umbenannt, sowie kann ich nur äußerst schleppend in die Entwicklungsumgebung wechseln, wobei es den Anschein hat, als wenn dabei eine Schleife ablaufen bzw. abgearbeitet würde. Seltsamerwiese wird das Tabellenblatt umbenannt, wenn ich den 1.9. eingebe !
https://www.herber.de/bbs/user/42414.zip
Ich wäre euch super dankbar, wenn Ihr vielleicht die Datei mal bei Euch unter Excel 2003 kurz testen und mir Euer feedback geben könntet bzw. Ihr vielleicht mir Tip's oder gar eine Lösung hättet.
Danke
Uli

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Uli,
ich hab die Datei mal unter Excel97 geladen. Da gibt es auch Probleme, die nicht unbedingt "altersbedingr" sind.
Das Problem bei der Umbenennung der Blattnamne ist wohl auf eine nicht korrekte Deklaration bzw. Wertzuweisung zur Variablen s zurückzuführen.
Du liest das Datum in Zelle B4 in die als String deklarierte Variable s . Anschließend soll VBA aus dem Text per Format-Methode ein Datum als Text ausgeben. Das gibt Probleme.
Hier solltest du deinen Code korrigieren.


Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Target.Address = "$B$4" And IsDate(Target.Value) Then
Application.EnableEvents = False
Application.ScreenUpdating = False 'Bildschirm-Aktuallisierung ausschalten
Dim ws As Worksheet
Select Case Day(DateSerial(Year(Range("$B$4").Value), Month(Range("$B$4").Value) + 1, 0) _
)
Case 30
For Each ws In Worksheets
If ws.Name  Target.Parent.Name Then ws.Columns("AF:AF").Delete
Next ws
Columns("AF:AF").Delete
Case 29
For Each ws In Worksheets
If ws.Name  Target.Parent.Name Then ws.Columns("AE:AF").Delete
Next ws
Columns("AE:AF").Delete
Case 28
For Each ws In Worksheets
If ws.Name  Target.Parent.Name Then ws.Columns("AD:AF").Delete
Next ws
Columns("AD:AF").Delete
End Select
Dim s As String
'######s = Range("$B$4").Value 'Falscher Variablentyp für Datum
s = Format(Range("$B$4").Value, "mmmm yyyy")
ActiveSheet.Name = "Bank 1 " & s
ActiveSheet.Next.Activate
ActiveSheet.Name = "Bank 2 " & s
ActiveSheet.Previous.Activate
Range("$B$5").Select
Application.ScreenUpdating = True 'Bildschirm-Aktuallisierung einschalten
Application.EnableEvents = True
End If
End Sub

Nicht besonders gut ist auch, dass die Functions zum Teil doppelt vorhanden sind. Die "Function IsFeiertag(datum As Date) As Boole" ist in DieseArbeitsmappe und im Modul1 vorhanden. Public Functions sollten immer in einem Modul plaziert werden. Ob dies das Problem löst weiß ich nicht, denn unter Excel97 wurde die WorkSheet_Change-Prozedur nur gestartet, wenn ein Zellinhalt gelöscht wurde aber nicht wenn ich das Datum in Zelle B4 ändere. Hier gibt es scheinbar einen Konflikt mit der IsFeiertag-Funktion unter der bedingten Formatierung. Nachdem ich diese für alle Zellen gelöscht hatte reagiete die Worksheet_Change Prozedur korrekt.
Ob jetzt Excel2000 hier "toleranter" ist was die VBA-Programmierung angeht als Excel2003 weiß ich nicht. Dazu hab ich zu wenig Erfahrungen mit Makros unter Excel2003.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Probleme durch Umstellung von Excel 2000 nach 2003

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread