Eingabe prüfen mit Zeitwert

Hallo liebe Excelgemeinde,
ich mache Eingaben in der Tabelle1, Spalte B2 bis B30.
Bei der Eingabe soll permanent geprüft werden ob der eingegebene Wert in der Tabelle2 SpalteB vorkommt und wenn das der Fall ist muss abgeprüft werden ob in der linken Zelle der Zeitwert kleiner gleich 30 Minuten (Wert aus der Tabelle2 ZelleE4) ist gerechnet von Jetzt(). Wenn das so ist, dann soll eine Warnmeldung erscheinen Dieser Wert kann nicht eingegeben werden die 30 Minuten sind noch nicht um. Wenn angenommen in die Zelle B2 Test3 eingegeben wird, dann die Warnmeldung und es muss in die Zelle B2 zurück gesprungen werden. Wird Test4 eingegeben dann kann dies übernommen werden weil der Zeitwert größer 30 Minuten ist.
Hier ein Bsp.: https://www.herber.de/bbs/user/49395.xls
Ich hoffe mir kann jemand helfen.
Vielen Dank im voraus!
MFG Andre

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andre,
ich weiß nicht, ob ich dich richtig verstanden habe, denn nachdem du in B2 "Test4" eingegeben hast, steht sowohl in B2 als auch B5 "Test4". Welches soll dann zur Referenz herangezogen werden. Soll eine neue Zeit gespeichert werden und wenn ja wofür: für den neuen oder den neuen und alle alten Einträge? Ich habe Mehrfachnennungen zugelassen und bei allen gleichen Eintragungen die Zeit aktualisiert.
Du musst das Makro in den Code-Teil deiner Tabelle einfügen. Falls du keine Erfahrungen und kein Makro bisher hast, mache Folgendes:
1. Extras - Makro - Makros: Im Dialog Makros irgendetwas in die Eingabezeile eingeben und "Erstellen anklicken. Es öffnet sich der VBA-Bildschirm mit dem verwendeten Makronamen im Code-Fenster. Lass dies unberücksichtigt.
2. Im Projekt-Fenster (so ähnlich wie der Explorer, meistens oben links, sonst unter Ansicht öffnen) unter MicroSoft Excel Projekte deine Tabelle doppelt anklicken. Es öffnet sich ds codefenster für diese Tabelle, in das du dieses Makro hineinkopiert.
3. Gehe zurück zu Excel oder schließe den VBA-Bildschirm und speichere die Arbeitsmappe.
4. Mache zum Test eine Eingabe und schließe diese mit der Enter-Taste ab.
Private Sub Worksheet_Change(ByVal Target As Range)
'Eingabe in B2-B30 zeitabhängig von a2 - a30 (30 Min)
Range("b65536").End(xlUp).Activate
a = CStr(ActiveCell.Row)
If Not Intersect(Target, Range("b2:b30")) Is Nothing Then
For Each Zelle In Range("b1:b" + a)
If Zelle = Cells(Target.Row, 2) And Target.Row <> Zelle.Row Then
If Now > Cells(Zelle.Row, 1) + 1 / 48 Then
Cells(Zelle.Row, 1) = Now
Cells(Target.Row, 1) = Now
Cells(Target.Row, 2).Activate
Else
MsgBox "Dieser Wert kann nicht eingegeben werden." + vbCrLf + "Die 30 Minuten sind noch nicht um!"
Application.Undo
Exit Sub
End If
End If
Next
Wenn es wider Erwarten nicht läuft, lösche das Makro wieder und gib einen Fehlerbericht.
Viel Erfolg
Holger

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread