Eingabe in USERFORM/Prüfen ob Wert vorhand

Guten Tag,
wir benutzen im Büro eine Tabelle, die von mehreren Mitarbeitern genutzt wird.
Die Eingabe erfolgt über eine USERFORM mit Textbox für Datum (Spalte A),
Textbox für Preis "A" (Spalte B) und Textbox für Preis "B" (Spalte C) etc..
Da sich in letzter Zeit häufig Fehler eingeschlichen haben, möchte ich, dass nach
Eingabe des Datums in die Textbox sowohl bei Preis "A" als auch bei Preis "B" geprüft wird, ob
unter diesem Datum hier schon ein Wert existiert. Somit ließe sich vermeiden, dass Werte fälschlicherweise überschrieben werden.
Komme trotz intensiver Recherche leider nicht weiter.
Wäre nett, wenn mir jemand hierzu eine Hilfestellung bieten könnte.
Beste Grüße
Peter S.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub T() Dim Loi As Long On Error Resume Next Loi = Application.Match(CDbl(Date), Columns(1), 0) If Loi = 0 Then MsgBox "nicht vorhanden" Else MsgBox "Zeile " & Loi End If On Error GoTo 0 End Sub

Hallo Hajo,
hab' deinen Lösungsvorschlag getestet. Leider erscheint der msg-Hinweis "nicht vorhanden"
egal, ob das Datum vorhanden ist oder nicht.
Hatte mir das so vorgestellt, dass ähnlich wie beim u. g. Datumsfeld direkt bei Eingabe des Preises
z. B. von Produkt A der Hinweis erscheint "Preis von A am 23.05.2009 schon vorhanden."
Danke dir aber für deine Hilfe. Werde versuchen, es irgendwie hinzubekommen.


Private Sub Datum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If DatumGetestet(Datum.Value) = False Then
Cancel = True
MsgBox "Bitte richtiges Datum eingeben"
Application.EnableEvents = False
Datum.SetFocus
Application.EnableEvents = True
Else
Datum = Format(DatumGetestet(Datum.Value), "dd/mm/yyyy")
End If
End Sub


Public Function DatumGetestet(strDatum As String) As Variant
'Funktion erkennt A L L E
'fehlerhaften Datumsangaben
'Auch Überprüfung auf Monat 28, 30 oder 31 Tage
'(bei Februar auf Schaltjahre)
'nur Ziffern angaben zulässig (oder die Formate erweitern)
'Function gibt bei Fehler False (Boolean)
'und bei gültigem Datum das Datum (Date) zurück
DatumGetestet = False
If IsDate(strDatum) Then
Select Case Trim(strDatum)
Case Format(CDate(strDatum), "d/m/yy"), _
Format(CDate(strDatum), "d/m/yyyy"), _
Format(CDate(strDatum), "d/mm/yy"), _
Format(CDate(strDatum), "d/mm/yyyy"), _
Format(CDate(strDatum), "dd/m/yy"), _
Format(CDate(strDatum), "dd/m/yyyy"), _
Format(CDate(strDatum), "dd/mm/yy"), _
Format(CDate(strDatum), "dd/mm/yyyy")
DatumGetestet = CDate(strDatum)
End Select
End If
End Function

Beliebteste Forumthreads (12 Monate)

Eingabe in USERFORM/Prüfen ob Wert vorhand

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabe in USERFORM/Prüfen ob Wert vorhand

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

311 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread