Hallo!
Hoffe es sind noch nicht alle im Wochenende!
Habe Probleme mit der InputBox.
Die InputBox zeigt automatisch die Schaltflächen "OK" u. "Abbrechen".
Wenn ich Abbrechen wähle wie lautet dann die If Anweisung.
Das was jetzt kommt funktioniert jedenfalls nicht es wird Abbruch einfach ignoriert.
Dim ArchivName As String
ArchivName = InputBox("Bitte Dateiname angeben!)
If Right(ArchivName, 4) = ".xls" Then
ArchivName = Left(ArchivName, Len(ArchivName) - 4)
If ArchivName = vbCancel Then
MsgBox "Die Monatsabrechnung Übergabe ins Archiv wurden abgebrochen!"
Exit Sub
Call AbschlussAktivierung
End If
End If
Was stimmt da nicht?
Bitte um Hilfe
Gerahrd