Ich habe eine Userform in dieser habe ich zwei Textboxen, den Text aus Textbox1 möchte ich in der Spalte A suchen und wenn gefunden soll der Text aus Textbox2 In Spalte M auf der selben Zeile eingetragen werden.
Gruss Philip
Private Sub CommandButton1_Click()
Dim strSuch As String, raFund As Range
strSuch = Me.TextBox1
If Len(Me.TextBox1) > 0 Then
'Blattnamen anpassen
Set raFund = Worksheets("Tabelle1").Range("A:A").Find(strSuch, LookIn:=xlValues, LookAt:= _
xlWhole)
If Not raFund Is Nothing Then
raFund.Offset(, 12) = Me.TextBox2
Else
MsgBox "Suchbegriff " & Me.TextBox1 & " in Spalte A nicht vorhanden."
End If
End If
Set raFund = Nothing
End Sub
Gruß Werner