ich habe schon vieles durch das Forum gelernt und selbst kleine VBA-Codes generiert. Jetzt komme ich aber leider nicht mehr weiter und ich habe auch keinen Eintrag gefunden der mir helfen könnte.
Ich habe eine Tabelle in der ich per Knopf - das heutige Datum, Username und eine Uhrzeit aus einer vorherigen Auswahl in die letzte freie Zeile der Spalten A bis C einfügen lasse.
Der Code sieht wie folgt aus:
Sub Dateneintrag()
'hier Prüfung einfügen auf heutiges Datum und Username
Dim Letzte As Long
With Sheets("Datentabelle")
'Sucht letzte freie Zeile
Letzte = .Cells(Rows.Count, 1).End(xlUp).Row + 1
'Datum
.Range("A" & Letzte).Value = Date
'Benutzername
.Range("B" & Letzte) = Application.UserName
'Uhrzeit
.Range("C" & Letzte) = Sheets("Absprache").Range("C3").Value
End With
End Sub
Das funktioniert ganz gut.Damit jetzt keine Doppeleinträge aus heutigem Datum und Username eingetragen werden können, hätte ich gern auf diese beiden Parameter an genannter Stelle eine Prüfung.
Das heißt, wenn das heutige Datum mit dem angemeldeten User bereist vorhanden ist, soll eine Messagebox aufgehen, die sagt "Eintrag bereits vorhanden, Datensatz ersetzen? Ja oder Nein?". Über ja soll die gesamte Zeile gelöscht werden und der neue Eintrag erstellt werden. Mit Nein wird das
Sub beendet.
Ich hoffe ich habe es einigermaßen verständlich rüber gebracht.
Über Eure Hilfestellungen freu ich mich sehr!