Danke für die Unterstützung, es ist sicherlich eine Lösung. Bei mir soll aber das Grundprinzip der Eingabe nicht verändert werden, weil es mehrere Personen gibt, die hieran beteiligt sind. Hatte mich da nicht präzise genug aus- gedrückt. Ich möchte lediglich erreichen das wenn ein Fehler in der Eingabe ist, er in irgendeiner Weise angezeigt wird. Habe ebenfalls nicht das Wissen wo man die Prüffunktion geschickter Weise einfügen kann. Wahrscheinlich beim Übertragen der Daten in die "ArbDat", aber wie. Vielleicht kann mir jemand hier einen Weg aufzeigen. Gruß Milli
Mein Versuch:
Private Sub lstData_Click() ' Eingabe der Daten in USERFORM
Dim rngRow As Range
Dim id As String
clearForm
If lstData.ListIndex >= 0 Then
'die Range wird hier gesetzt mit LIstindex
Set rngRow = wsat.Rows(lstData.ListIndex + 2)
txtPosNr = id
txtPosNr = rngRow.Cells(, colAtPosNr).Value
txtnummer = rngRow.Cells(, colAtNummer).Value
txtAnrede = rngRow.Cells(, colAtAnrede).Value
' txtAnrede = Format(rngRow.Cells(, colAtAnrede), "Frau" & "Herr") ' .Value