Hallo,
habe ein Makro dass alle Zellen einer Spalte durchgeht und je nach Wert in der Zelle diese Zelle speziell formatiert.
Wenn allerdings irgendwas am Format geändert wird bricht das makro ohne Fehlermeldung ab! Wie im Beispiel nach ändern der Schriftgröße, diese wird zwar noch verändert, allerdings kommte er nicht einmal mehr zur Zeile EndWith sondern steigt ohne Fehlermeldung aus.
Habe das ganze auch schon mit Select und Selection ausprobiert das selbe Problem!
Der Code befindet sich im CodeBehind einer Form.
Ändern des Values funktioniert tadellose ebenso wie das auswählen der Zelle, nur beim Formatieren bricht das Makro ohne Fehler ab!
With Worksheets(Page)
.Rows(LastHeader).Copy
.Rows(pActiveCell.Row).EntireRow.Insert shift:=xlDown
.cells(pActiveCell.Row - 1, 1).Value = .cells(LastHeader, 1).Value
.cells(pActiveCell.Row - 1, 5).Value = "---------"
.cells(pActiveCell.Row - 1, ColIndex).Value = "abcd"
.cells(pActiveCell.Row - 1, ColIndex).Font.Size = 12
End With
Gruß Alex
|