ich hab folgendes problem. Ich möchte bubble's (elipsen) erstellen, die bubbel's sollen durch ein klick auf ein button erstellt werden. vor dem klick wird die zelle markiert werden. diese zelle bekommt dann automatisch ein individuellen namen (z.b. bubbelvalue01), dann wird ein bubble erstellt der auch ein individuellen namen erhält (z.b. bubbel01) jetzt soll der inhalt des bubbels automatisch aus der zelle genommen werden (in diesem beispiel aus bubbelvalue01) bei änderungen der zelle soll der bubbelinhalt auch automatisch geändet werden. die individuellen zellen namen benutze ich, um bei eventuellen zeilen bzw spalten erweiterungen der bezug bubbel zelle erhalten bleibt. bis jetzt hab ich folgenden code:
Private Sub CommandButton1_Click()
ActiveCell.Name = "test01"
ActiveSheet.Shapes.AddShape(msoShapeOval, 11, 11, 35, 18).Select
With Selection
.Name = "testtest" 'das ist der bubblename
.ShapeRange.Fill.ForeColor.SchemeColor = 40 'fctFarbe(12)
.ShapeRange.Line.Visible = msoFalse 'Rand ausblenden
.Characters.Text = ActiveCell.Value
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
With Selection.Characters.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 8
.ColorIndex = 2
End With
End Sub
ich schaff es einfach nicht den inhalt des bubbels in bezug zur zelle zu erstellen. mit dem makro recorder bekomme ich bei manuellem eintrag des formels folgendes makro:
ExecuteExcel4Macro "FORMULA(""=R[11]C[1]"")"
hab jetzt auch gegooglet aber nix gescheites gefunden.wäre über jede antwort sehr dankbar.
gruss
asterix