Ankunft und Abfahrtsskript in Excel per VBA

Huhu,

ich habe eine Frage bzw. ich komme nicht weiter....ich habe eine Excelliste (Spalte A-L), ich habe es soweit, das wenn ich etwas in E schreibe, er in F die jetzige Uhrzeit schreibt, wenn ich in G ein x mache, das er mir in Spalte H die jetzige Zeit schreibt, damit ich eine Differenz habe wann ich losgefahren und wiedergekommen bin.

Da ich die Liste nicht offen liegen lassen möchte, habe ich mir überlegt das ganze per UserForm zu erstellen (Die Komplettliste ausgeblendet), soweit kein Problem, er schreibt die Spalten A-E voll, in Spalte F schreibt er auch die Uhrzeit....

Nun mein Problem bzw. mein Ende bei VBA, ich möchte noch einen Button erstellen, wo ich die Nummer aus Spalte E (Nummern in Spalte E sind einzigartig) eintrage und ein x schreiben kann, das er dann in die Spalte G setzt, allerdings starten mehrere Leute und er muss sich die Nummer aus Spalte E aus der Liste suche und dahinter ein x setzen um die Fahrt zu beenden.

Sprich die Suche nach einer Nummer in Spalte E und das zugehörige schreiben des x in Spalte G bekomme ich nicht hin. Die Userform ist aufgebaut in 2 Textboxen und 1 Button (Textbox_1 = Nummer, Textbox_2 = x für fertig)


Ich hoffe ich habe es verständlich genug erklärt und ihr könnt mir behilflich sein

Dim rngFind As Range

Set rngFind = Columns(5).Find(2) 'Die Nummer 2 wird hier gesucht  
If Not rngFind Is Nothing Then
    Cells(rngFind.Row, 7) = "x" 'Ein X wird in Spalte G eingetragen  
Else
    MsgBox "Nr nicht vorhanden"  
End If
set rngFind=nothing

Textbox=""  

debug.print cells(rngFind.row,12)

msgbox Format(cells(rngfind.row,12),"hh:mm:ss")  

Set rngFind = Columns(5).Find(What:=TextBox1, LookAt:=xlWhole)