VBA fuktioniert in anderen Ländern nicht
14.09.2018 07:43:06
Daniel
ich habe folgendes Problem, bei dem ich langsam aber sicher mit meinen Ideen am Ende bin.
Ich habe eine Excel Checkliste erstellt die auch den ein oder anderen VBA Code enthält. Die Tabelle funktioniert hier in Deutschland ohne Probleme (auch in verschiedenen Excel Versionen). Diese Tabelle soll nun aber auch von den Kollegen in Japan, Korea und Scandinavien genutzt werden. Allerdings scheint es bei einer bestimmten Funktion das ganze auf internationaler Ebene nicht mehr zu funktionieren.
Mit dem VBA (was ich übrigens nicht selbst geschrieben habe, da zu wenig Kenntnissse) wird über ein Button eine MsgBox geöffnet die entsprechend aus einer Tabelle einen bestimmten Text aufzeigt.
Hier einmal der Code:
'Infofelder - Massagebox aus Spalte F in Checkliste
Sub findInfoTexts()
Set b = ActiveSheet.Buttons(Application.Caller)
Dim buttonRow As Integer
Dim buttonColumn As Integer
Dim sourceValue As String
Dim transTable As Worksheet
Dim k As Integer
buttonAdress = b.TopLeftCell.Address
buttonRow = Range(b.TopLeftCell.Address).Row
buttonColumn = Range(b.TopLeftCell.Address).Column
Set transTable = findTable("Translation")
sourceValue = ActiveSheet.Cells(buttonRow, buttonColumn + 17).Value
For k = 3 To transTable.Cells(Rows.Count, 1).End(xlUp).Row
If transTable.Cells(k, 1).Value = sourceValue Then
MsgBox transTable.Cells(k, 4).Value + vbNewLine + transTable.Cells(k, 5).Value
Exit For
End If
Next k
End Sub
Wenn ich das richtig verstanden habe von den Kollegen aus Japan und Korea, stoppt die VBA immer bei "Set b = ActiveSheet.Buttons(Application.Caller)"
Ich hoffe Ihr könnt mir an dieser Stelle helfen, oder eine Idee geben was zum Problem führt.
Gruß Daniel