Validation größe des Hinweises
28.12.2007 16:43:15
Sonnenpeter
gibt es eine Möglichkeit die Größe des Hinweises zu verändern.
Bzw. wie kann ich einen Zeilenumbruch verhindern?
Sub test()
With Range("e1").Validation
.Delete
.Add Type:=xlValidateWholeNumber, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:="50", Formula2:="1000"
.InputTitle = "Wähle eine Zahl"
.ErrorTitle = "Wähle eine Zahl"
.InputMessage = "Die Zahl muss zwischen 50 und 1000 liegen"
.ErrorMessage = "Die Zahl muss zwischen 50 und 1000 liegen"
'geht nicht
'Selection.ShapeRange.ScaleWidth 1.45, msoFalse, msoScaleFromTopLeft
'.ScaleWidth 2.45
End With
End Sub
Gruß Sonnenpeter
Anzeige