Deutsche Formeln im Blatt ‚englisch‘ betrachten
Hi Erich,
Ich finde es seit Jahren sehr bemühend, dass ich mit einer
deutschen Excel-Version ZWEI Lexika benötige, eines zum
Eintrag von Formeln in ein Blatt, ein anderes zum schreiben
von VBA-Code. Deshalb braucht man dann so
Uebersetzungskrücken.
Tja nu, wenn du unbedingt immer die neueste Version haben musst, XL4 war doch deutsch/deutsch
))
ansehen. Anderseits kann ich auch mein deutsches
Excel-Workbook in einer englischen Excel-Version öffnen und
siehe da: alle Formeln werden brav übersetzt!!
Danke für die Info, hätte ich Bill gar nicht zugetraut dass das klappt *g
Nachfrage, deutsches und englisches Excel in 2 Instanzen gleichzeitig auf einem PC laufen zu lassen, geht das ohne Probleme?
Ich habe leider kein engliches Excel um das zu wissen.
* Pseudo, weil ich die Hoffnung wohl werde begraben müssen.
Ach watt, gibt doch VBA:smile:
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.
Bei einem Test mit nur wenigen Formeln klappte es super. Keine Ahnung was passiert wenn es auf mit allem möglichen vollgepackte Blätter trifft. Rückmeldung wäre deshalb nett.
Da du wahrscheinlich öfters Workheetfunctions im Code benutzt, wäre es denn hilfreich, wenn du im Code (oder in einer Zelle, mal dahingestellt was vorteilhafter ist) die Excelfunktion eingibst,
also Z.B
=WENN(„heute“=„morgen“;SUMME(A1:A6);ANZAHL(C1:C6))
und ein Mkaro macht daraus
application.worksheetfunction.if(„heute“=„morgen“, _
application.worksheetfunction.SUM(range(„A1:A6“),application.worksheetfunction.count(range(„C1:C6“)))
wobei ich nicht weiß ob ich das hinkriege…
Gruß
Reinhard