ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 30 Then
If Target.Value = "r" Then
UserForm1.Show
Else
End If
End If
End Sub
Für die Userform habe ich diesen Code:
Private Sub CommandButton1_Click()
If TextBox.Text = "" Then
MsgBox "Bitte Text eintragen"
Else
Cells(Tarrow, 42) = Me.TextBox.Value
Unload UserForm1
End If
End Sub
Nun mein Problem.
Mein Code startet wenn in Spalte 30 was geändert wird und die Userform kommt wenn ein "r" eingetragen wird. Nun möchte ich die Target.row in die Userform mit übernehmen damit ich den Text der in der Textbox eingetragen wird in die Zeile Target.row, 42 übernommen wird. Wie kann ich dies lösen?