Möchte die Eingabe von Zeit im Format"hh:mm" auf richtige Syntax überprüfen,und bei Falscheingabe mit einer MsgBox abfangen.
Gruß Müller
Public Sub Test()
Dim objAddin As Object
On Error Resume Next
For Each objAddin In Application.VBE.VBProjects
If UCase(Right(objAddin.Filename, 3)) = "XLA" _
Or UCase(Right(objAddin.Filename, 4)) = "XLAM" Then
MsgBox objAddin.Filename
End If
Next
Err.Clear
End Sub
lg BerndDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen