ich möchte eine Fehlermeldung einbauen, die dann eine Msgbox ausgibt und den focus auf die entsprechende Textbox setzt.
Randbedingungen:
Die Textboxen sind
- in einer UserForm
-alle mit fortlaufender Tag-Nummer belegt.
Ist dies mit folgendem Code möglich?
For Each cbElement In Me.Controls
If cbElement <> "" Then
If TypeName(cbElement) = "TextBox" And Len(cbElement.Tag) = 2 _
And Right(cbElement.Tag, 1) > 2 And Left(cbElement.Tag, 1) = Reihe Then
' In Industriezeit umrechnen
If cbElement Like "*,*" Or cbElement Like "*:*" Then
If cbElement = "*:*" Then
Eintrag = cbElement * 24
Else
Eintrag = cbElement
End If
Else
Eintrag = (Left(cbElement, Len(cbElement) - 2))
Eintrag = (CDbl(Right(cbElement, 2)) / 60 * 100)
Eintrag = (Left(cbElement, Len(cbElement) - 2) & "," & _
(CDbl(Right(cbElement, 2)) / 60 * 100))
End If
End If
End If
Next cbElement
Gruß Peter