Thema Datum  Von Nutzer Rating
Antwort
Rot Code from 32 to 64 Bit
 17.10.2019 10:07:31 Mischa
NotSolved

Ansicht des Beitrags:
Von:
Mischa		 Datum:
17.10.2019 10:07:31		 Views:
983		 Rating:
     
Antwort:
  Ja
Thema:
Code from 32 to 64 Bit
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
 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
'<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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Code from 32 to 64 Bit
 17.10.2019 10:07:31 Mischa
NotSolved