Bildschirmansicht vs Seitenansicht - VBA
15.08.2013 20:24:54
Matze
Vorgabe: das Blatt "Beruf"
Nutzbereich der maximal A1:A52
Makro im Blatt Beruf :
Private Sub Worksheet_Activate()
With ActiveSheet
.Rows("8:45").EntireRow.AutoFit
.Rows("8:45").Select
With Selection
.VerticalAlignment = xlCenter 'mittig
.WrapText = True 'Umbruch in der Zelle an
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End With
End Sub
Wird wunderschön abgearbeitet, mit allerdings "nervigen" Sachen :1. Die "leeren Rows" in haben auch keine Formel sind vorher mit Höhe 4 formatiert.
Nach dem Makroablauf haben die plötzlich alle Höhe 15.(nicht witzig)
2. Die Rows von 8:45 werden selektiert und mit Center mittig in die Zellen gesetzt.
Ebenso der Zeilenumbruch eingeschaltet.Wird wunderbar erledigt.
Die Rows die "NICHT leer" sind haben alle eine Formel die lediglich das Ergebnis pro Row aus einem anderen Tbl.-blatt holt.
Im Blatt Beruf sieht nun alles perfekt aus aber in der Seiten Ansicht sind nun einige Rows dabei die aussehen wie gequetscht (obere kannte und untere Kante der Row)
Merkwürdig ist: Mache ich das in einer ganz neuen Mappe funktioniert das mit Punkt 2
Punkt 1 geht weiterhin auf Höhe 15
So, jetzt bin ich aber mal gespannt was mir da weiterhelfen kann, danke
Matze
Ps.: Die Originaldatei kann u. darf ich nicht einstellen