32 Bit und 64Bit

[Topology]

Hallo zusammen,

ich habe ein VBA-Code in der 32-Bit Version geschrieben, 
kann es sein das in der 64-Bit Version meiner Kollegen die Userformfunktion nicht funktioniert ?=/

kann ich das irgendwie einfach lösen?



Grüße;)

[LCohen]

Super-Link dazu

[Willie017]

hallo

das passiert, wenn du z.B. Controls verwendest, welche nur 32Bit unterstützen(z.B. DatePicker aus der mscomct2.ocx). Da gibt es keine Lösung, außer die Controls durch andere Lösungen zu ersetzen

[RPP63]

kann ich das irgendwie einfach lösen?

Moin Grüße!
Gibt es einen nachvollziehbaren Grund, warum 64bit-Versionen im Einsatz sind, wenn selbst Microsoft davon bis auf eine handverlesene Klientel abrät?

Gruß Ralf

[Topology]

Hallo vielen Dank für die Antworten,

ich habe heute den Computer in Indien auf 32Bit umgestellt und siehe da, es funktioniert immer noch nicht.

Also war das nicht das Problem.

Die Meldung jetzt: Run-time error '1004' application defined or object defined error...
Nur komisch das in der EU alles funktioniert ohne diesen Fehler?   Nur Indien macht Probleme


gibt es hierzu auch ein gutes Video? Wie ich das am schnellsten löse?

Ich werde später auf den PC zugreifen können dann sehe ich genau den Fehler, wo er auftritt.



ganz liebe Grüße

[Topology]

Gibt es einen nachvollziehbaren Grund, warum 64bit-Versionen im Einsatz sind, wenn selbst Microsoft davon bis auf eine handverlesene Klientel abrät?

Leider nein... aber die IT wusste gar nicht welche Version in Indien eingesetzt wird ... :16:
wird vermutlich trotzdem jetzt alles auf 32 umgestellt.
Auch wenn das nicht der Fehler ist/war.

[snb]

Ich werde später auf den PC zugreifen können dann sehe ich genau den Fehler, wo er auftritt.

Dan warten wir mal.

Application.international ?

[RPP63]

Was hältst Du davon, mal den den Fehler auslösenden Code zu posten?
Dann könnte man konkrete Tipps und kein Wischi-Waschi geben.

[mumpel]

Hallo!

Nur komisch das in der EU alles funktioniert ohne diesen Fehler?   Nur Indien macht Probleme

Die französische Version hat auch ihre Eigenart. Bestimmte Sprachversionen erfordern an manchen Stellen eine Anpassung (bei Formeln z.B.). Aber jetzt zeig uns mal den Code welcher den Fehler auslöst (sollte es zuviel Code sein dann als Beispieldatei anhängen).

Gruß, René

[Topology]

Hallo,

lieben Dank für eure Bemühungen;)

Also die Unterschiede die ich feststellen konnte:
EU:
NonEnglishFunktion:True
INDIA:
NonEnglishFunktion:False

Kann das auch ein Grund sein?

_________________________+

Der Fehler "'1004' application defined or object defined error" kommt in dieser Zeile:


ActiveCell.FormulaLocal = "=Coating($U$16;AS40;BA40)"

Code:

Private Sub CommandButton1_Click()      'OK Button

If UserFormCoating.CheckBox1.Value = True Then

TextBox1.MaxLength = 6
End If

If UserFormCoating.CheckBox2.Value = True Then             'AdjTolBasic Formel
   ActiveCell.FormulaLocal = "=Coating($U$16;AS40;BA40)"                                    '!!!!!!!!!!!!!HERE
               'Farbe ändern (neutral)
                   With Selection.Interior
                       .ThemeColor = xlNone
                   End With
                   With Selection.Font
                       .color = -4357809
                   End With

ElseIf UserFormCoating.CheckBox1.Value = True Then
   ActiveCell = TextBox1.Value
               'Farbe ändern (Manuell)
                   With Selection.Interior
                       .ThemeColor = xlThemeColorAccent5
                       .TintAndShade = 0.799981688894314
                   End With
                   With Selection.Font
                       .color = -4357809
                   End With

End If
gesperrt True
Unload UserFormCoating

End Sub

Code:

Public Function Coating(CoatingPSide, Dimension, Contour)
'Beschichtung pro Seite (VAR0044)

   Select Case Dimension
       Case "R", "O"                           'reference / Others
           Coating = 0
           
       Case "AD", "MD"                         'Absolute Dimension / Meanline Dimension
           Select Case Contour
               Case "P"                        'Pitch circle
                   Coating = 0
                   
               Case "I"
                   Coating = CoatingPSide
                   
               Case "O"
                   Coating = -CoatingPSide
               
               Case "HI"
                   Coating = CoatingPSide
                   
               Case "HO"
                   Coating = -CoatingPSide
               
               Case Else
                   Coating = 0
           End Select
           
       Case Else
           Coating = 0
   End Select

End Function

liebe Grüße