Ich habe eine UserForm mit folgendem Code aus dem Forum, dieser funktioniert wunderbar.
Ich gebe einen Suchbegriff (in TextBox "Lagerort1") ein und die dazugehörigen Werte werden entsprechend angezeigt.
Nun möchte ich gerne Änderungen welche ich in den TextBoxen geschrieben habe zurück in die Zelle schreiben.
Wie muss ich vorgehen?
Private Sub Lagerort1_Change()
Dim varSuchbegriff As Variant
If IsNumeric(Lagerort1.Value) Then varSuchbegriff = Val(Lagerort1.Value) Else _
varSuchbegriff = Lagerort1.Value
On Error Resume Next
Scheibendurmesser1 = " " & WorksheetFunction.VLookup(varSuchbegriff, Range(Cells(1, 1), _
Cells(65536, 2)), 2, False)
Bohrung1 = " " & WorksheetFunction.VLookup(varSuchbegriff, Range(Cells(1, 1), Cells(65536, _
_
3)), 3, False)
If Err.Number 0 Then
Scheibendurmesser1 = ""
Bohrung1 = ""
End If
On Error GoTo 0
End Sub