Hallo,
Shapes, gleich welcher Art, lassen sich in Excel leider nicht hinter die Zellen legen, sondern sind immer im Vordergrund und überdecken die Zellen. Wenn du ein Label erstellt hast, verdeckt das ganz oder teilweise die Zelle. Wozu also Text in der Zelle ändern, wenn man ihn dann doch nicht sieht? Stattdessen musst du die Caption-Eigenschaft des Labels ändern und der überdeckten Zelle zuweisen. Das kannst du z.B. so machen:
Private Sub Label1_Click()
Label1.Caption = InputBox("Geben Sie eine Überschrift ein!", Default:=Label1.Caption)
Range("A1") = Label1.Caption
End Sub
PS: die roten Dreiecke von Kommentaren lassen sich, glaub ich, über die Optionen ausblenden. Ist aber nicht ratsam, da wie bereits geschrieben sonst niemand weiß, dass ein Kommentar existiert.
Gruß Mr. K.
|