ich möchte gern einen Hinweis erstellen.
Dieser Hinweis sollte bei Makro Aktivierung erscheinen und mit anderem Makro
bei Beendigung der Arbeit wieder gelöscht werden ODER auch unsichtbar werden.
Dieses habe ich mal als Textfeld erstellt, leider kommt Fehlermeldung.
Sub Makro6()
Range("M14").Select
ActiveSheet.Shapes.Range(Array("TextBox 6")).Select
Selection.ShapeRange.ScaleWidth 0.9971347479, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"Bitte beachten: Stundeneingabefür Spalte H : z.B. 3:00so eingeben: 3 Doppelpunkt 00" _
_
_
Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 86).ParagraphFormat. _
FirstLineIndent = 0
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 12
.Name = "+mn-lt"
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(6, 81).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
End Sub
mfg wolfgang