Dabei soll bei Eingabe der neue String in die bestimmte Zelle und in das Textfeld gechreiben werden, ich komme mit der Syntax nicth ganz klar, ich möchte in der ZEILE
ActiveSheet.Shapes.Range(Array("TextBox 5")).Select, statt Textfeld 5, sowas wie Textfeld i stehen haben, da es ja von dem Textfeld abhängt, welches aktiviert wird. Dnake euch
Sub Textfeld5_Klicken()
Dim i As String
i = 5
Eingabe
End Sub
Sub Eingabe()
Dim z As String
Static p As Integer
p = 10
z = InputBox("Bitte geben Sie ein Prozess ein: ", "Prozess", , 0, 0)
If z = "" Or z = "Falsch" Then Exit Sub
ActiveSheet.Shapes.Range(Array("TextBox 5")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = z
Tabelle1.Cells(p, 10) = z
p = p + 1
End Sub