Das funktioniert so - getestet und korrekt:
Sub Suchen_und_Eintragen()
'Deklarieren der Variablen
Dim wsTabelle1 As Worksheet
Dim wsScannen As Worksheet
Dim Suchwert As String
Dim Zellenwert As String
Dim LetzteZeile As Long
Dim i As Long
'Setzen der Variablen
Set wsTabelle1 = ThisWorkbook.Sheets("Tabelle1")
Set wsScannen = ThisWorkbook.Sheets("Scannen")
Suchwert = wsScannen.Range("A1").Value
LetzteZeile = wsTabelle1.Cells(Rows.Count, 20).End(xlUp).Row
'Durchlaufen der Tabelle1 Spalte T
For i = 2 To LetzteZeile
Zellenwert = wsTabelle1.Cells(i, 20).Value
'Suchen des Suchwerts in Spalte T
If Zellenwert = Suchwert Then
'Eintragen des aktuellen Datums in die nächste Spalte
wsTabelle1.Cells(i, 21).Value = Date
'Löschen des Suchwerts aus dem Feld A1
wsScannen.Range("A1").Value = ""
'Cursor zurück in das Feld A1
wsScannen.Range("A1").Select
Exit Sub
End If
Next i
End Sub
'Automatische Ausführung des Makros bei Eingabe und Enter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Suchen_und_Eintragen
End Sub
Beachte: https://www.computerwissen.de/software/office/excel/vba-makros-excel/tabellen-bearbeiten/makro-automatisch-ausfuehren-wenn-zelle-geaendert-wird/
|