Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > 32 Bit und 64Bit
Normale Version: 32 Bit und 64Bit
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2

Topology

22.08.2018, 15:50
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

22.08.2018, 16:07
Super-Link dazu

Willie017

22.08.2018, 16:16
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

22.08.2018, 17:22
(22.08.2018, 15:50)Topology schrieb: [ -> ]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

23.08.2018, 08:29
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? Undecided  Nur Indien macht Probleme


gibt es hierzu auch ein gutes Video? Blush 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

23.08.2018, 08:32
(22.08.2018, 17:22)RPP63 schrieb: [ -> ]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

23.08.2018, 08:34
(23.08.2018, 08:29)Topology schrieb: [ -> ]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

23.08.2018, 08:34
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

23.08.2018, 09:23
Hallo!

(23.08.2018, 08:29)Topology schrieb: [ -> ]Nur komisch das in der EU alles funktioniert ohne diesen Fehler? Undecided  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

23.08.2018, 11:21
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
Seiten: 1 2
Clever-Excel-Forum > Office-Anwendungen > Excel > 32 Bit und 64Bit