Select - Problem o.ä.
Seb
ich habe gerade folgendes Problem:
Ich habe einen Kalenderkopf: Erste Zeile steht die jeweilige KWxx,
darunter Kommt der Wochentag
dadrunter dann das Darum und bei Monatsanfang der Monatsname.
Aus einfachheitsgründen sind die Monate immer Verbundene Zellen, also z.B. Januar F1-3
Die KWs sind Verbundene Zellen über die jeweilige KW...
Damit es übersichtlicher ist, sollen nun die Monatsnamen, Datum und Tage vertikal stehen,
die KWs aber horizontal...
Jetzt habe ich es mir einfach mit nem Makroaufnehmen besorgt ;)
Rows("1:3").Select
With Selection
.Orientation = 90
.ReadingOrder = xlContext
End With
' Rows("1:1").Select
' Range("C1").Activate
' With Selection
' .HorizontalAlignment = xlCenter
' .VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = True
' .ReadingOrder = xlContext
' End With
Rows("1:3").Select
Selection.Columns.AutoFit
Das Problem ist nun:
Erst wird alles brav auf 90° gedeht und dann soll einfach nur Zeile 1 wieder auf 0° zurück,
allerdings wird alles wieder auf 0° zurück gedreht...
Kann mir da jmd helfen?
Beste Grüße,
Seb