|
Guten Morgen nochmal,
leider funktioniert der Code nicht. Es passiert einfach nichts wenn ich in die Zelle N1 etwas einscanne.
Ich habe jetzt eine Textbox erstellt mit folgendem Code:
Private Sub TESTTextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
Dim wks As Worksheet, Wert, Zelle As Range, Nach As Range
Set wks = Worksheets("Tabelle1")
Wert = Me.TextBox1.Value
With wks.Range("A:A")
Set Zelle = .Find(what:=Wert, LookIn:=xlValues, lookat:=xlWhole)
Zelle.Offset(0, 1).ClearContents
Zelle.Offset(0, 2).ClearContents
Zelle.Offset(0, 3).ClearContents
Zelle.Offset(0, 4).ClearContents
End With
End If
End Sub
Der klappt soweit prima.
Meine Frage ist jetzt allerdings: Was muss ich dem Code hinzufügen, dass bei jedem neuem Scan der vorherige Eintrag rausgelöscht wird?
Vielen Dank
|