VBA: Engl.Funktionsnamen in Bedingte Formatierung

Sub BedingteFormatierungMitFunktion() With Range("A2:A10") .Range("A1").Select 'erste Zelle des Bereiches markieren =>A2 .FormatConditions.Delete 'Zuerst alle Bedingungen löschen .FormatConditions.Add Type:=xlExpression, _ Formula1:="=ZÄHLENWENN($A$2:$A$10;$A2)>1" .FormatConditions(1).Interior.ColorIndex = 40 End With End Sub

Sub BedingteFormatierungMitRegionalisierterFunktion() [B2].Formula = "=COUNTIF($A$2:$A$10,$A2)>1" 'englische Version With Range("A2:A10") .Range("A1").Select 'erste Zelle des Bereiches markieren =>A2 .FormatConditions.Delete 'Zuerst alle Bedingungen löschen .FormatConditions.Add Type:=xlExpression, _ Formula1:=[B2].FormulaLocal 'Hier die regionalisierte Version auslesen .FormatConditions(1).Interior.ColorIndex = 40 End With [B2].ClearContents 'Inhalt der temp. Zelle B2 wieder löschen End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Holger,
das Verhalten bei "normalen" STANDARD-Funktionen ist bekannt. In Tabellenblättern werden die STANDARD-Funktionen immer in der regionalisierten Sprachversion dargestellt, da sie intern nur als Funktionsnummer (bzw. -Index) gespeichert werden.
Damit wird erreicht, dass die Funktion =SUMME(...) in einer englischen Excel-Version mit =SUM(...) dargestellt wird und in einer französischen Version mit =SOMME(...) etc.
Bei Funktionen, die aus Makros/AddIns stammen ist das nicht der Fall, dazu muss die Funktion explizit im Code deklariert sein (z.B. als UDF, also FUNCTION ....).
Im vorliegenden Fall ist das aber nicht einmal eine UDF, sondern ein STRING - und dieser wird garantiert in keiner Sprachversion "umgewandelt" bzw. "übersetzt" !
Konkret habe ich das mit der (originalen) englischen Excel2003-Version getestet !
Danke dennoch für Deinen Hilfeversuch ;-))
Gruß, NoNet

Morgen Luc,
und hmm, ja, das hätte ich mir denken können...
Zum PS: Das habe ich doch schon damals realisiert?
Der umgekehrte Weg A1 (deutsch) -> A1 (englisch) geht nicht, da M.E. Names.Add da 'buggy' ist.

Sub DEtoUS_not_work()
Names.Add "myFormula", RefersToLocal:="=ZÄHLENWENN($A$2:$A$10;$A2)>1"
Debug.Print Names("myFormula").RefersTo
End Sub

sollte M.E. nun schon funktionieren, tut das aber nicht :-(
Allerdings funktioniert das wenn man die Formel in Z1S1 Notation vorgibt:

Sub DEtoUS_works()
Names.Add "myFormula", RefersToLocal:="=ZÄHLENWENN(Z2S1:Z10S1;Z(1)S1)>1"
Debug.Print Names("myFormula").RefersTo
End Sub

Die beiden R1C1-Varianten funktionieren übrigens auch:

Sub UStoDE_R1C1()
Names.Add "myFormula", RefersToR1C1:="=COUNTIF(R2C1:R10C1,R[1]C1)>1"
Debug.Print Names("myFormula").RefersToLocal
End Sub

Sub DEtoUS_Z1S1()
Names.Add "myFormula", RefersToR1C1Local:="=ZÄHLENWENN(Z2S1:Z10S1;Z(1)S1)>1"
Debug.Print Names("myFormula").RefersTo
End Sub

Da in der bedingten Formatierung die Formeln in lokaler A1-Schreibweise liegen reicht es also aus kurz auf R1C1-Schreibweise umzuschalten und dann wie oben zu konvertieren.
cu, Bernd
--
Option Explicit

Sub x()
' Testformel in Zelle B1
Range("B1").FormatConditions.Delete
Range("B1").FormatConditions.Add xlExpression, , "=ZÄHLENWENN($A$2:$A$10;$A2)>1"
Range("B1").FormatConditions(1).Interior.ColorIndex = 3
' Diese anzeigen -> deutsch A1-Notation
MsgBox Range("B1").FormatConditions(1).Formula1
' auf R1C1 umschalten
Application.ReferenceStyle = xlR1C1
' Diese anzeigen -> deutsch Z1S1-Notation
MsgBox Range("B1").FormatConditions(1).Formula1
' Diese ins englische A1 übersetzen
Names.Add "myFormula", RefersToR1C1Local:=Range("B1").FormatConditions(1).Formula1
MsgBox Names("myFormula").RefersTo
' zurück in A1
Application.ReferenceStyle = xlA1
' aufräumen
Names("myFormula").Delete
End Sub

Sub ConditionalFormatCountIf() Const strCondFormula = "tmpCondFormula" 'temporary name for conditional format formula Dim strFormula As String [A2].Select ActiveSheet.Names.Add strCondFormula, RefersTo:="=COUNTIF($A$2:$A$20,$A2)>1" strFormula = ActiveSheet.Names(strCondFormula).RefersToLocal strFormula = Replace(Replace( _ strFormula, ActiveSheet.Name & "!", ""), "'" & ActiveSheet.Name & "'!", "") With Range("A2:B20") .FormatConditions.Delete .FormatConditions.Add Type:=xlExpression, _ Formula1:=strFormula 'regional version of formula .FormatConditions(1).Interior.ColorIndex = 40 End With ActiveSheet.Names(strCondFormula).Delete End Sub

Rem Interne Basisfkt f.d.Ermittl v.BedFmtFmln Orig/Lokal o.Adressbericht wg Unvträglk m.AList ' Fkt ist b.Arg3=WAHR indirekt rekursiv (über Evaluate) u.fktt deshalb nur in dieser Form! ' Vs1.0a -LSr -cd:20100315 -lupd:20100314n Function GetFCond(Bezug As Range, ByVal BFNr As Integer, Optional ByVal Orig As Boolean) If Orig Then GetFCond = Evaluate("GetFCond(" & Bezug.Address & "," & BFNr & ")") Else: GetFCond = Bezug.FormatConditions(BFNr).Formula1 End If End Function

Beliebteste Forumthreads (12 Monate)

VBA: Engl.Funktionsnamen in Bedingte Formatierung

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Engl.Funktionsnamen in Bedingte Formatierung

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread