MsgBox
09.10.2020 22:41:47
Benedikt
Mit der manuell eingetragenen Fakturanummer in TextBox7 wird die entsprechende Faktura geöffnet
Wenn der Nutzer vergisst die Fakturanummer einzugeben, also Textbox7 leer ist erscheint die MsgBox
Das klappt alles aber wie kann ich eine Meldung geben wenn eine Fakturanummer falsch eingetippt wird, d.h. wenn keine entsprechende Datei im Verzeichnis existiert.
Mein Laienversuch mit If Not TextBox7 = TextBox7.Text & ".xlsm" Then ist nicht gut angekommen...
Danke für Hilfe
Dim sDateiName As String
sDateiName = TextBox7.Text & ".xlsm"
If TextBox7 = "" Then
MsgBox "Rechnungsnummer in Textbox eingeben", _
64, " Info für " & Application.UserName
Unload Me
Exit Sub
End If
Workbooks.Open Filename:="C:\Test\Faktura\Archiv\" & sDateiName