Wenn ich später den Inhalt einer Textbox ändern möchte, ändert sich natürlich der Wert in der entsprechenden Zelle nicht mit. Wie könnte ich dieses Problem meisten, sodass der Wert einer Textbox auch beim ändern immer in die entsprechende Zelle übertragen wird. Man weiß in Voraus aber nicht wieviele Textboxen und welche Hierarchie zustande kommt. Vielen Danke für eure hilfe im Voraus, anbei ein Beispiel und der Code...bitte um Hilfe
https://www.herber.de/bbs/user/85009.xlsx
Dim p As Integer
Private Sub Start_Click()
Dim posX As Integer
Dim posY As Integer
posX = 100
posY = 100
p = 10
Call ProzessHinzufügen(posX, posY)
End Sub
Private Sub ProzessHinzufügen(ByVal posX As Integer, ByVal posY As Integer)
Dim PZ As String
PZ = InputBox("Bitte geben Sie ein Prozess ein: ", "Prozess", , 0, 0)
If PZ = "" Or PZ = "Falsch" Then Exit Sub
Tabelle1.Shapes.AddTextbox(msoTextOrientationHorizontal, posX, posY, 100, 30).Select
Selection.ShapeRange.TextFrame.Characters.Text = PZ
posY = posY + 40
Tabelle1.Cells(p, 10) = PZ
p = p + 1
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(100, 200, 255)
End With
Tabelle1.Activate
Call ProzessMsgBox(posX, posY)
End Sub
Private Sub ProzessMsgBox(ByVal posX As Integer, ByVal posY As Integer)
Dim intMsg As Integer
intMsg = MsgBox("Wollen Sie einen weiteren Prozess eingeben? ", vbYesNo)
If intMsg = vbYes Then
Call ProzessHinzufügen(posX, posY)
End If
End Sub