Hello everybody
My problem is that a macro no longer runs under 64 bits.
I downloaded the Code Inspector and searched the code. 8 problems were found. Unfortunately, I'm not good at coding and searched the Internet for examples of how I could rewrite this. Unfortunately, I did not find anything.
Can you please look at the code? Maybe someone has an idea how this could run again or where I could read something.
So that it does not overflow, I'll just post the first DEPRECATION.
Thank you and best regards
'<VBA_INSPECTOR_RUN />
Private Sub CommandButton1_Click()
ActiveWorkbook.RefreshAll
Application.OnTime Now() + TimeValue("00:00:01"), "Makro1"
End Sub
Private Sub CommandButton2_Click()
Shell "Explorer.exe \\172.16.12.32\f$\Scanview", vbNormalFocus
End Sub
Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub ListBox1_Click()
'<VBA_INSPECTOR>
' <DEPRECATION>
' <MESSAGE>Potentially contains deprecated items in the object model</MESSAGE>
' <ITEM>[xls]SmartTag.Range</ITEM>
' <URL>http://go.microsoft.com/fwlink/?LinkID=215357 /URL>
' </DEPRECATION>
'</VBA_INSPECTOR>
Tabelle5.Range("c42").FormulaR1C1 = "=R[1]C[-1]"
End Sub
Private Sub ListBox2_Change()
End Sub
Private Sub ListBox2_Click()
End Sub
Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
|