zell eintragung aus Textboxen

Private Sub Combobox1_Change()
Dim rng As Range
Set rng = Columns(1).Find(Combobox1.Value, lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
Textbox1.Text = rng.Text
Textbox1.Tag = rng.Address
End If
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
Dim rng As Range
rng = Textbox1.Tag
Range(Textbox1.Tag).Value = Textbox1.Text
End Sub

Private Sub OptionButton1_Click()
Dim iRow As Integer
With Range("A1")
.AutoFilter Field:=1, Criteria1:="=*01*"
End With
iRow = 2
Do Until IsEmpty(Cells(iRow, 2))
If Rows(iRow).Hidden = False Then
Combobox1.AddItem Cells(iRow, 2).Value
End If
iRow = iRow + 1
Loop
If Combobox1.ListCount > 0 Then
Combobox1.ListIndex = 0
End If
End Sub