[Libreoffice-bugs] [Bug 141758] New: vba NumberFormat for dates does only work once and never again

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=141758

            Bug ID: 141758
           Summary: vba NumberFormat for dates does only work once and
                    never again
           Product: LibreOffice
           Version: 6.4.6.2 release
          Hardware: All
                OS: Linux (All)
            Status: UNCONFIRMED
          Severity: normal
          Priority: medium
         Component: BASIC
          Assignee: libreoffice-bugs at lists.freedesktop.org
          Reporter: Hal71229 at gmail.com

Description:
REM  *****  BASIC  *****
Option VBASupport 1
Option Compatible
Option explicit

Sub Datum()
  Dim s_tmp As String, d_date As Date


  s_tmp = InputBox("Plaese insert date :-)", _
                  "Inputbox")
  'check date or string
  If IsDate(s_tmp) Then
    'String into date format
    d_date = s_tmp
    'set Format set Date
    Range("A1").NumberFormat = "dd/mm/yyyy;@"
    Range("A1").Value = d_date
  Else
    'no date insert String 
    Range("A1").NumberFormat = "@"
    Range("A1").Value = s_tmp
  End If
End Sub

Steps to Reproduce:
1.run example twice
2.
3. and enter date for a second time

Actual Results:
runtime error 1

Expected Results:
no error 


Reproducible: Always


User Profile Reset: No



Additional Info:
[Information automatically included from LibreOffice]
Locale: de
Module: BasicIDE
[Information guessed from browser]
OS: Linux (All)
OS is 64bit: yes

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20210419/18ba6f25/attachment.htm>