AW: Statistik deutsch + englisch
22.09.2006 10:59:02
Reinhard
Hi Jens,
VBA ist Englisch. Mittels VBA kannst da aber in Zellen Excelfunktionen eintragen lassen, mittels Formula in engl. Schreibweise, mittels FormulaLocal in deuts´cher Schreibweise.
In Excel erscheint beides auf Deutsch.
Nachfolgenden Code zeigt analog zu Strg+# die Excelformeln auf Englisch an, vielleicht ist er dir hilfreich bei der Übersetzung.
Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
wie wärs damit:
In ein Modul:
Option Explicit
Sub englisch()
Dim Zelle As Range, Bereich As Range, S As Shape, wsD As Worksheet, wsE As Worksheet
Application.ScreenUpdating = False
Set wsD = ActiveSheet
Worksheets.Add
Set wsE = ActiveSheet
wsE.UsedRange.Clear
wsD.UsedRange.Copy Destination:=wsE.Range("A1")
On Error GoTo MistSpecialCcellsImmerNurÄrcherMitDenenggg
Set Bereich = wsE.UsedRange.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
For Each Zelle In Bereich
Zelle.Value = "'" & Zelle.Formula
Next Zelle
For Each S In wsE.Shapes
S.Visible = False
Next S
wsE.UsedRange.Columns.AutoFit
wsE.UsedRange.Rows.AutoFit
wsE.Buttons.Add(0, 0, 133.5, 36).Select
With Selection
.OnAction = "Loeschen"
.Characters.Text = "Dieses Blatt schliessen"
End With
Range("A5").Select
Application.ScreenUpdating = True
Exit Sub
MistSpecialCcellsImmerNurÄrcherMitDenenggg:
MsgBox "Keine Zellen mit Formeln vorhanden"
Application.ScreenUpdating = True
End Sub
Sub Loeschen()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Du kannst ja noch mittels Onkey dem Makro im Workbook_open Ereignis einen Tatsaturkürzel wie Strg+# verpassen und das Makro in die Person?l.xls packen.