Autosize will nicht
Lorenz
Bin mit folgendem Problem konfrontiert u. schaffe es scheinbar nicht ohne eure Hilfe zu lösen.
Lt untenstehenden Code funktioniert alles außer die Autosize-Eigenschaft. Es wird immer rechts etwas (ein Teil nicht dargestellt). Das mit der Höhe konnte ich angeben (funktioniert auch nicht mit Autosize). Die Breite (Width) kann ich nicht angeben, Da Länge immer verschieden.
Wieß jemand vielleicht Abhilfe?
With wksKalender.lblName
If Not Intersect(Target, Range("H14:ABK89")) Is Nothing Then
.Top = Target.Offset(2, 2).Top
.Left = Target.Offset(0, 2).Left
If wksKalender.Cells(13, Target.Column) = "" Then
.Caption = wksKalender.Cells(Target.Row, 1) & " / " & Format(wksKalender.Cells(13, Target.Column - 1), "d. mmm")
.BackColor = &HFF&
.Height = 27.5
Else
.Caption = wksKalender.Cells(Target.Row, 1) & " / " & Format(wksKalender.Cells(13, Target.Column), "d. mmm")
.BackColor = &HC00000
.Height = 27.5
End If
.Visible = True
Else
.Visible = False
.Top = Cells(5, 10).Top
.Left = Cells(5, 10).Left
End If
End With
Danke
Lorenz
