Hallo liebe Gemeinde, ich habe einen Code in meiner Tabelle mit hilfe dessen ich bestimmte Daten eintragen lasse.
Firma , Kennzeichen, Zeit ankunft
Nun ist die Frage ob ich genau diese auch wieder durch klick auf einen Button mit aktueller Zeit austragen kann.
So das wenn ich auf den Button klicke er mir die Firmen anzeigt die und A38 - A49 eingetragen sind und ich diese dann im Auswahlfenster wieder duch klicken auf. z.B auschecken wieder austrage, bzw in Spalte D die Endzeit eingetragen wird.
Hier mal der Code zum Eintragen:
Sub Inputbox_öffnen_auto()
Dim Firma As Variant
Dim LoLetzte As Long
Dim Kennzeichen As Variant
With Sheets("Anwesende Monroe Park")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
If IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1 > LoLetzte Then
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 2)), .Cells(.Rows.Count, 2).End(xlUp).Row, .Rows.Count) + 1
End If
If LoLetzte < 38 Then Loletze = 38
.Cells(LoLetzte, 3) = Format(Now, "hh:mm:ss")
Firma = Application.InputBox("Bitte geben Sie den Firmennamen ein.", "Firma", , Type:=2)
If Firma = False Then
Exit Sub
Else
.Cells(LoLetzte, 1) = Firma
End If
Kennzeichen = Application.InputBox("Bitte geben Sie das Kennzeichen ein.", "Kennzeichen", , Type:=2)
If Firma = False Then
Exit Sub
Else
.Cells(LoLetzte, 2) = Kennzeichen
End If
End With
End Sub
Danke für eure Hilfe