ich habe 2 Formen gruppiert, in die eine davon trage ich per inputbox einen Wert ein. Das funktioniert auch.
Wenn ich die Gruppe kopiere und wieder einen Wert eintragen möchte, wird der Wert allerdings in die erste Gruppe eingetragen. Wie muss ich den Code ändern, dass der Wert in die Form der kopierten Gruppe eingetragen wird?
Sub WertEintragen()
Dim intWert As Integer
Dim varGruppenname As Variant
varGruppenname = ActiveSheet.Shapes(Application.Caller).ParentGroup.Name
'MsgBox varGruppenname
intWert = InputBox("Wert eingeben", "Wert", 0)
ActiveSheet.Shapes.Range(Array(varGruppenname)).Select
ActiveSheet.Shapes.Range(Array("WertEingeben")).TextFrame2.TextRange.Characters.Text = _
intWert
End Sub
https://www.herber.de/bbs/user/114447.xlsm
Vielen Dank für eure Hilfe!
Gruß,
Peter