Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung Deutsch/Englisch

Forumthread: Bedingte Formatierung Deutsch/Englisch

Bedingte Formatierung Deutsch/Englisch
21.12.2007 12:28:32
Thomas
Liebe Gemeinde ;o)
ich habe folgendes Problem: per VBA wird für eine Spalte eine bedingte Formatierung gesetzt. Die Zellen, die einen Eintrag haben, der in der Spalte bereits vorkommt, sollen z.B. rot werden.
Das geht wunderbar, wenn man unter "Bedingte Formatierung-Formel" folgende Formel eingibt:

=ZÄHLENWENN(A:A;A2)>1


bzw. per VBA:


Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:="=UND(B1"""";ZÄHLENWENN(B:B;B1)1)"


Nun kommt das Problem: ich öffne die Datei in einer englischen Excel-Version und starte das Makro. Die bedingte Formatierung greift hier nicht, da "Zählenwenn" hier unbekannt ist, ebenso wie "CountIf" in der deutschen version unbekannt ist.
Weiß jemand Rat, wie ich mein Makro abändern muss, dass es in beiden Excel-Versionen funktioniert?
Vielen Dank schon mal,
Thomas

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 13:13:10
Daniel
Hi
das könnt im Prinzip so funktionieren:

Sub Makro1()
Dim strFormel As String
If True Then '--- hier muss die Prüfung auf die Sprachversion rein
strFormel "=UND(B1"""";ZÄHLENWENN(B:B;B1)1)"
Else
strFormel = "=AND(B1"""",COUNTIF(B:B,B1)1)"
End If
Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:=strFormel
End Sub


wobei ich noch nicht weiß, wie eine clevere Lösung zur Sprachprüfung ausssieht.
das einzige, was mir so spontan einfällt, wäre, das du von einer Zelle mit bekannter Formel die .FormulaLocal-Eingenschaft abfragt (die müsste sich ja mit der Sprachversion ändern, also


if Range("x100").formulalocal like "=SummeWenn(*" then strFormel = Deutsche Formel
if Range("x100").formulalocal like "=CountIf(*" then strFormel = Englische Formel


also so in etwa. leider kann ich es bei mir nicht testen.
Gruß, Daniel

Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 13:22:00
Hajo_Zi
Hallo Daniel,
mal ein Vorschlag von Nepumuk auf den man aufbauen kann.
lege Zwei Tabellen an "Deutsch" und "Englisch"
Option Explicit

Private Sub Workbook_Open()
Worksheets(IIf(Application.International(xlCountrySetting) = 49, "Deutsch", "Englisch")). _
Visible = -1
Worksheets(IIf(Application.International(xlCountrySetting) = 49, "Englisch", "Deutsch")). _
Visible = 2
End Sub


Von Nepumuk

Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 13:54:19
Thomas
Hallo Daniel, hallo Hajo,
danke für eure Vorschläge. Mit IIF habe ich wieder etwas dazugelernt (danke!), aber das mit dem International zeigt leider keinen Unterschied bei beiden Versionen. Wieso auch immer, ich erhalte immer die 49, also Deutschland.
Bin also noch weiter am rumbasteln bze. für weitere Ideen offen.
Gruß,
Thomas

Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 14:07:00
IngGi
Hallo Thomas,
an Stelle der Formel für die Wahrheitsprüfung kannst du auch das Ergebnis der Wahrheitsprüfung (0 für FALSCH bzw. 1 für WAHR) in die bedingte Formatierung reinschreiben. Das Ergebnis ermittelst du dann in VBA per WorksheetFunction. Damit spielt dann die Sprachversion der Excelanwendung keine Rolle mehr, denn VBA spricht ja unabhängig davon immer englisch.
Statt

Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:="=UND(B1"""";ZÄHLENWENN(B:B;B1)1)"


müsste es dann heißen:


Columns("B:B").FormatConditions.Add Type:=xlExpression, _
Formula1:=-(CInt(Range("B1")  "")) * _
CInt(Application.WorksheetFunction.CountIf(Range("B:B"), Range("B1")))


Gruß Ingolf

Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 14:25:00
Thomas
Hallo Ingolf,
erst war ich euphorisch, das hörte sich sehr gut an. Aber dann steht natürlich in der bedingten Formatierung immer der feste Wert drin, auch wenn sich der Wert in der Spalte nun ändert. Es ist also in dem Sinne keine bedingte Formatierung mehr, jedenfalls keine, die vom Wert anderer Zellen abhängt.
Gut, man könnte das jetzt verpacken in "WorksheetChange", aber das wird mir insgesamt zu aufwendig.
Bin also am Weiterbasteln.
Danke und Gruß,
Thomas

Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 15:00:00
IngGi
Hallo Thomas,
eine Möglichkeit fällt mir noch ein. Schreib die englische Formel über die .Formula-Eigenschaft in eine Dummyzelle und lies die Formel von dort über die .FormulaLocal-Eigenschaft wieder aus.

Range("A1").Formula="=AND(B1"""",COUNTIF(B:B,B1)1)"
Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:=Range("A1").FormulaLocal
Range("A1").ClearContents

Gruß Ingolf

Anzeige
AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 15:17:00
Thomas
Hallo Ingolf,
danke, das ist ein guter Ansatz, auch wenn es noch nicht so ganz klappt (die Verweise stimmen noch nicht richtig). Aber wenigstens ist dadurch die Formel schon mal drin!!
Gruß und vielen Dank für deine Zeit und Mühe,
Thomas :o)

AW: Bedingte Formatierung Deutsch/Englisch
21.12.2007 16:24:40
Daniel
Hi
hier schlägt der Unterschied zwischen Relativem und absolutem Zellbezug gnadenlos zu:
wenn du in Zelle A1 die Formel "=B1" reinschreibst, bedeutet das nicht:
hol mir den Zellwert aus B1 , sondern, hole den Wert aus der Zelle rechts neben mir.
wenn du das nach dieser Methode machst , dann muss die Formel in A1 entsprechend Heißen:

Range("A1").Formula="=AND(A1"""",COUNTIF(A:A,A1)1)"


oder es muss absolut gesetzt werden:


Range("A1").Formula="=AND($B1"""",COUNTIF($B:$B,$B1)1)"


Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Wenn/Dann Formel
maxx_1985

Hallo liebe Excel-Experten,
haette evtl. jemand eine Idee fuer das folgende Problem.
Wenn in einer Zelle #NA kommt, soll Excel ausgeben: "Manual Input Needed"
=if(A1="#NA",Manual Input Needed",A1) --- diese Formel funktioniert leider nicht.
Ganz lieben Dank Euch im Voraus!
...
25.09.2008 15:44:23
Thread-ID: 1012359
7 Beiträge
Anzeige
3 Fragen Formatierung /WennDann/Formel
thorsten

Die Datei https://www.herber.de/bbs/user/56174.xls wurde aus Datenschutzgründen gelöscht
Hallo,
es geht um folgende 3 Fragen die ich habe:
1) In der Spalte M soll folgende Berechnung vorgenommen werden:
Es soll geprüft werden ob in J oder K eine Zahl eingetragen wurde – es ist...
21.10.2008 19:10:44
Thread-ID: 1018135
2 Beiträge
Anzeige
Wenn Dann - Formel
thorsten

Hallo,
ich habe ein datei hochgeladen als Beispiel und dort meine Frage, bzw. Problem genau geschildert.
https://www.herber.de/bbs/user/56190.xls
Ich denke, oder hoffe, dass das kein Problem ist - aber für mich einfach unlösbar - da Laie.
Vielen Dank für die Hilfe
Viele Grü...
22.10.2008 12:12:00
Thread-ID: 1018302
8 Beiträge
Wenn > Dann Formel
William

Hallo Experten
Brauche für diese Tabelle bessere Lösung.
bis jetzt habe ich es nur geschafft wenn ich aller Werte "D" zusammen sortiert habe.
Währe schön wenn das ohne sortieren klappen könnte.
in etwa so:
wenn in Spalte B wert "D" vorkommt, dann in spalten C;Z die Summe erm...
23.11.2008 13:41:15
Thread-ID: 1027076
4 Beiträge
Wenn-Dann-Funktion als Makro
Sulley

Hallo zusammen,
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro...
24.11.2008 16:47:36
Thread-ID: 1027372
11 Beiträge
Anzeige
wenn dann funktion
jannis

Hallo zusammen
wäre super wenn mir einer weiterhelfen könnte!
3 lösungen bräuchte ich für folgende berechnungen
1.Beispiel
wenn das Ergebniss gößer als das Ziel dann 1 ; wenn das Ergebniss kleiner dann -1
wenn gleich bleibend dann 0
2. Beispiel (ich weis nicht ob man hi...
09.03.2009 15:02:36
Thread-ID: 1058181
22 Beiträge
Wenn - dann Formel
Thorsten

Hi ,
ich habe folgende Datei hochgeladen und nun folgende Frage
https://www.herber.de/bbs/user/61311.xls
Im ersten Tabellenblatt soll oben die kalenderwoche eingetragen werden - heir als Bsp. die 7. Im Tabellenblatt (Date) stehen ID´s hierzu - diese sollen im Blatt Overview in der...
20.04.2009 15:10:35
Thread-ID: 1069854
2 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Wenn-Dann-Funktion
Notzm

Hallo Experten...
ich hab eine Tabelle in der in der Spalte F in jeder Zelle eine 0 oder eine höhere Zahl eingetragen wird.
Die Funktion soll mir alle Zellen, in der keine 0 steht (und die leeren auch nicht), also nur Zellen in dieser Spalte, in denen eine Zahl größer 0 steht addieren.<...
31.08.2009 13:17:37
Thread-ID: 1099579
12 Beiträge
Wenn-Dann Formel über zwei Tabellenblätter
Jan

Grüß euch!
Eine kurze Frage:
Es geht um das Thema Gästemanagement für eine Veranstaltung. Ich habe ein Tabellenblatt auf dem ich pro Zeile einen Namen, Angaben zur Postadresse und ein Feld "Zusage" habe. Ich würde nun gern folgende Funktion haben: Wenn ich im Feld "Zusage" z.B. "Ja" sch...
14.09.2009 14:13:13
Thread-ID: 1102634
3 Beiträge
Wenn dann Formel
Matthias

Einen Wunderschönen Tag euch allen!
Irgendwie bekomm ich das mit den Formeln nichht auf die Kette :-(
Also ich hab 3 Zellen:
U66 hat nen errechneten Bruttobetrag
N66 Vereist auf U66 mit =u66
G66 ist meine Eingabezelle!
Was ich brauche ist, das wenn in G66 ne 0 Steht dann...
29.09.2009 16:10:26
Thread-ID: 1106229
4 Beiträge
Wenn Dann Formel mit Namensbezug
Matthias

HiHo!
Hab ja so meine Problemme und Ideen, und schon wieder eine Lol!
Excel läßt leider nur 64 Verschachtelungsebenen zu, das ist aber nicht genug für mich, denn ich habe eine geburtstagsliste, Name Vorname Geburtstag
Jetzt hab ich noch einen Kalender, und möchte gerne, das an dem T...
01.01.1970 00:00:00
Thread-ID: 1110152
41 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bedingte Formatierung in Excel für Deutsch und Englisch

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle eine neue Arbeitsmappe oder öffne eine bestehende.
  2. Gehe zu der Spalte, in der Du die bedingte Formatierung anwenden möchtest.
  3. Wähle die Zellen aus, die formatiert werden sollen.
  4. Klicke auf "Bedingte Formatierung" im Menüband.
  5. Wähle "Neue Regel" und dann "Formel zur Ermittlung der zu formatierenden Zellen verwenden".
  6. Gib die folgende Formel ein für die deutsche Version: 
    =ZÄHLENWENN(A:A;A2)>1

    Für die englische Version:

    =COUNTIF(A:A,A2)>1
  7. Lege die Formatierung fest (z.B. rot färben) und klicke auf "OK".

Häufige Fehler und Lösungen

  • Problem: Die bedingte Formatierung greift nicht, wenn Du die Datei in einer anderen Sprache öffnest.

    • Lösung: Stelle sicher, dass Du die richtigen Formeln für die Sprache verwendest. In VBA kannst Du eine Sprachprüfung implementieren, um die Formel dynamisch anzupassen.

  • Problem: Die Formel funktioniert nicht, wenn Du die Sprache von Excel wechselst.

    • Lösung: Verwende die .FormulaLocal-Eigenschaft, um die Formel in der aktuellen Sprache auszulesen.

Alternative Methoden

Eine alternative Methode zur Implementierung der bedingten Formatierung ist die Verwendung von VBA. Hier ein Beispiel:

Sub SetzeBedingteFormatierung()
    Dim strFormel As String
    If Application.International(xlCountrySetting) = 49 Then
        strFormel = "=ZÄHLENWENN(B:B;B1)>1"
    Else
        strFormel = "=COUNTIF(B:B,B1)>1"
    End If
    Columns("B:B").FormatConditions.Add Type:=xlExpression, Formula1:=strFormel
End Sub

Diese Methode überprüft die Sprache und setzt die richtige Formel.

Praktische Beispiele

  • Beispiel 1: Du möchtest alle doppelten Einträge in Spalte B rot markieren.

    • Formel für Deutsch: =ZÄHLENWENN(B:B;B1)>1
    • Formel für Englisch: =COUNTIF(B:B,B1)>1

  • Beispiel 2: Wenn Du die Spalte A basierend auf den Werten in B formatieren möchtest:

    Range("A1").Formula = "=AND(B1<>"",COUNTIF(B:B,B1)>1)"

    Diese Formel kannst Du ebenfalls in die bedingte Formatierung einfügen.

Tipps für Profis

  • Verwende die .FormulaLocal-Eigenschaft in VBA, um Formeln in der aktuellen Sprache zu setzen und zu lesen.
  • Teste Deine Formeln in einer Dummy-Zelle, bevor Du sie in die bedingte Formatierung überträgst.
  • Nutze die Formeln für dynamische Bereiche, um die Flexibilität zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich die Sprache von Excel feststellen? Du kannst die Eigenschaft Application.International(xlCountrySetting) verwenden, um die aktuelle Sprache von Excel zu ermitteln.

2. Gibt es eine Möglichkeit, die bedingte Formatierung in einer Datei für beide Sprachen zu speichern? Ja, indem Du VBA verwendest, kannst Du die Formeln entsprechend der Sprache setzen, wenn die Datei geöffnet wird.

3. Was ist der Unterschied zwischen ZÄHLENWENN und COUNTIF? ZÄHLENWENN ist die deutsche Funktion, während COUNTIF die englische Bezeichnung ist. Beide erfüllen die gleiche Funktion, haben jedoch unterschiedliche Syntax in den jeweiligen Sprachen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige