Textbox Makro zuordnen
23.04.2013 12:46:06
Sergej
Ich möchte damit erreichen, das beim klicken auf die jeweilige Textbox, eine Inputbox ercheint zur eingabe von Strings. Diese Eingabe soll dann in die Zelle 10,10 geschrieben werden. Die Eingabe der zweiten Textbox soll dann in die Zelle 11,10 geschrieben werden, allerdings nur wenn die Eingabe in die erste Textbox erfolgt ist, ansosnten in die Zelle 10,10 ..später werde ich aber viele Textboxen haben, sodass ich eine globale Variable p einfügen wollte die immer hoch gezählt wird wenn in eine Zelle geschrieben wird. Danke für die Hilfe im Voraus
'globale Variablen
Dim p As Integer
Sub Textfeld5_Klicken()
Dim z As String
p = 10
z = InputBox("Bitte geben Sie ein Prozess ein: ", "Prozess", , 0, 0)
If z = "" Or z = "Falsch" Then Exit Sub
Tabelle1.Cells(p, 10) = z
p = p + 1
End Sub
Sub Textfeld6_Klicken()
Dim z As String
z = InputBox("Bitte geben Sie ein Prozess ein: ", "Prozess", , 0, 0)
If z = "" Or z = "Falsch" Then Exit Sub
Tabelle1.Cells(p, 10) = z
p = p + 1
End Sub