Makro bricht ungefragt ab bei Zellformatierungen

Hallo zusammen
ich habe da ein ziemlich schräges Problem.
Will ich beispielsweise auf dem aktiven Blatt die Schriftgrösse auf 11 setzen mit:


ActiveSheet.Cells.Font.Size = 11

dann funktioniert das prima, solange irgendwo eine Zelle ist, welche NICHT Schriftgrösse 11 hat.
Sobald alle Zellen bereits Schriftgrösse 11 haben, bricht das Makro bei dieser Codezeile einfach ab (ohne Meldung oder Warnung). Dementsprechend werden die restlichen Codezeilen natürlich nicht ausgeführt.
Ich konnte es unterdessen für diverse Font-Formatierungen reproduzieren, allerdings betrifft es nur ein einzige Mappe. In einer neuen Arbeitsmappe funktioniert das Makro tadellos.
Habe ich beispielsweise folgenden Code:


With ActiveSheet.Cells
.Font.Size = 11
.VerticalAlignment = xlVAlignTop
.HorizontalAlignment = xlHAlignLeft
End With

Dann ist es natürlich lästig, wenn der Code bei der Font-Size einfach abbricht ohne Meldung und Warnung.
Kann sich jemand vorstellen, was ich in dieser Mappe verbockt habe?
Es gibt zwar einen einfachen Workaround: vor jeder Formatierung des ganzen Blattes einfach die Zelle A1 kurz umformatieren, sprich Arial 10 und zentriert. Nun weicht A1 von den restlichen Zellen ab und die Codezeilen klappen perfekt. Aber das kann's ja nicht sein, öh.
Herzlichen Dank und schöne Grüsse
Daniel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test1() Dim i As Integer With ActiveSheet.Cells For i = 1 To 5 Debug.Print i * 10 .Font.Size = 11 Debug.Print (i * 10) + 1 .VerticalAlignment = xlVAlignTop Debug.Print (i * 10) + 2 .HorizontalAlignment = xlHAlignLeft Debug.Print (i * 10) + 3 Next i End With End Sub

Jetzt wollte ich für euch die Datei vorbereiten und habe alles Unwichtige rausgelöscht, und siehe da: es gut.
Es wird immer lustiger;-)
Ich hänge mal eine abgespeckte, aber immer noch fehlerhafte Datei hoch:
https://www.herber.de/bbs/user/127994.xlsm
Es geht im Modul "modAllgemein" um die Prozedur "pKorrekteFonts".
Und jetzt das Lustige:
der bricht immer ab (bei mir akutell bei der Fontzize), solange die Funktion "Hintergrundfarbe" aktiv ist. Kommentiere ich die Funktion aus, dann geht es...
Die Funktion ist nur noch eine alte Leiche, die ich gar nicht mehr verwende. Sehr schräg. Was die mit der Prozedur zu tun hat, ist mir schleierhaft.
Bin gespannt, ob pKorrekteFonts bei euch auch abbricht.

Beliebteste Forumthreads (12 Monate)

Makro bricht ungefragt ab bei Zellformatierungen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread