Kommentar einfügen Makrorecorder
Isolde
ich habe mit dem Makrorecorder aufgezeichnet, wie jeweils zwei Zellen angewählt werden und zu diesen ein Kommentar eingefügt wird.
Immer beim starten des Makros soll jeweils das Kommentar eingefügt werden.
In dem Kommentar ist bereits ein voreingestellter Text. Dieser soll herausgelöscht werden und der neue Text soll hinein geschrieben werden.
Schriftgröße soll 12 und Standard sein und das Wort Enter in dem Kommmentar soll zusätzlich noch FETT erscheinen.
Manuell über die Formatierungen funktioniert es, aber das aufgezeichnete Makro wird debuggt.
Habe schon im Internet recherchiert, weis aber trotzdem nicht was an diesem Makro geändert werden muss:
Sub Makro45()
Range("CC1").Select
Range("CC1").AddComment
Range("CC1").Comment.Visible = False
Range("CC1").Comment.Text Text:="alter voreingestellter Text" & Chr(10) & ""
Range("CC1").Comment.Shape.Select True
Range("CC1").Comment.Text Text:= _
"Eingabe der Stückzahl immer mit ""Enter"" abschließen bzw. bestätigen" & Chr(10) & ""
Selection.ShapeRange.ScaleHeight 1.27, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.15, msoFalse, msoScaleFromTopLeft
Range("CC1").Comment.Shape.Select True
Range("CC1").Comment.Text Text:= _
"Eingabe der Stückzahl immer mit ""Enter"" abschließen bzw. bestätigen !" & Chr(10) & "" _
Range("CC2:CC3").Select
Range("CC2").AddComment
Range("CC2").Comment.Visible = False
Range("CC2").Comment.Text Text:="alter voreingestellter Text" & Chr(10) & ""
Range("CC2").Comment.Shape.Select True
Range("CC2").Comment.Text Text:="Eingabe immer mit ""Enter"" bestätigen !" & Chr(10) & ""
Range("CD3").Select
End Sub
Die Einstellungen der Schriftart Arial und Schriftgröße wurden scheinbar auch nicht mit aufgezeichnet?
Bei dem ersten Kommentar hatte ich nachträglich noch das Ausrufezeichen hinzugefügt (weil der Text zwei mal vorkommt)
Vielen Dank für eure Hilfe
Grüße, isolde
Anzeige