habe wieder ein problem,
ich habe eine Userform in der nachfolgender code steht.
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
soweit so gut
nun möchte ich aber nicht die Fundstelle überschreiben sondern meine anderen Textboxen 2-5 neben der Fundstelle in die Tabelle eintragen.
was muss ich verändern ?
ich bitte um eure Hilfe
gruß
erich
https://www.herber.de/bbs/user/12130.xls