Excel Makro läut nicht mehr

Computer: Software & Programmierung Visual Basic
1

Ich habe einen Code mit welchem ich doppelte Einträge in Spalte A farbig markieren konnte. Seit die IT meinen PC austauschen musste läuft das ding nicht mehr.

Sub Schaltfläche144_KlickenSieAuf()
Columns(„A:A“).Select
Cells.FormatConditions.Delete
Columns(„A:A“).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
„=ZÄHLENWENN(A:A,A1)>1“
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
ActiveSheet.Range("$A$1:blush:C$37").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterFontColor
End Sub

weiss jemand warum?

Gruss

Walter

2

Hallo Walter,
wurde nur der PC ausgetauscht oder auch die Software???
Ausserdem solltest Du mal mitteilen, an welcher Stelle der Code abbricht, bzw. welche Fehlermeldung erscheint. Ansonsten sind solche Ferndiagnosen äußerst schwierig. Also - bitte mehr Input, dann kann auch geholfen werden.
Gruß,
Ptonka

3

heißt es evenutell nicht mehr „ZÄHLENWENN“ sondern nun „SUMIF“? War die Sprachversion von Excel zuvor eventuell englisch?

4

hallo walter,

auf jeden fall muß es heißen:
ZÄHLENWENN(A:A;A1)>1 mit semikolon!

dein code, von mir vereinfacht, läuft auf meinem excel 2003 nur mit folgenden auskommentierungen:

Sub Schaltfläche144_KlickenSieAuf()
Cells.FormatConditions.Delete
With Columns(„A:A“)
.FormatConditions.Add Type:=xlExpression, Formula1:="=ZÄHLENWENN(A:A;A1)>1"
'.FormatConditions(1).SetFirstPriority
With .FormatConditions(1).Font
.Color = -16776961
'.TintAndShade = 0
End With
'.FormatConditions(1).StopIfTrue = True
'ActiveSheet.Range("$A$1:blush:C$37").AutoFilter Field:=1, Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterFontColor
End With
End Sub

hoffentlich ist das eine hilfe
viel erfolg
ascan

5

Grüezi Walter

Werden denn die Makros beim öffnen der Mappe aktiviert?
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
6

Hallo Walter,

ich hab dein Makro bei mir getestet unter Excel 2010, Office 2010, Windows Vista - alles deutsch mit deutschen Ländereineinstellungen.

Da funktioniert dein Makro wenn ich in
„=ZÄHLENWENN(A:A,A1)>1“
das Komma durch ein Semikolon ersetze.
„=ZÄHLENWENN(A:A;A1)>1“

Wurde dein neuer Rechner mit anderen Länder- oder Spracheinstellungen oder anderer Sprachversion von Excel eingerichtet? Oder hast du in Excel unter Optionen die Übernahme der Trennzeichen von der Systemsteuerung deaktiviert und z.B. „.“ als Dezimal- und „,“ als 1000er-Trennzeichen eingestellt?

Wenn ich auf meinem Rechner unter Regions- und Spracheinstellungen die Sprache auf Englisch(US) ändere oder den Punkt als Dezimaltrennzeichen in den Exceloptionen, dann läuft dein Makro mit dem Komma als Trennzeichen in der Formel ohne Fehler durch. Die Semikolonversion meldet dann aber Fehler.

Mit den folgenden Anpassungen sollte das Makro unabhängig von den Einstellungen funktionieren.

Gruß
Franz

Sub Schaltfläche144\_KlickenSieAuf()
 Columns("A:A").Select
 Cells.FormatConditions.Delete
 Columns("A:A").Select
 Select Case Application.International(xlListSeparator)
 Case "," 'gilt u.a. standardmäig für Englisch(US,UK)
 Selection.FormatConditions.Add Type:=xlExpression, Operator:=xlEqual, \_
 Formula1:="=ZÄHLENWENN(A:A,A1)\>1"
 Case ";" 'gilt u.a. standardmäig für Deutsch(DE,A,CH)
 Selection.FormatConditions.Add Type:=xlExpression, Operator:=xlEqual, \_
 Formula1:="=ZÄHLENWENN(A:A;A1)\>1"
 End Select
 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 With Selection.FormatConditions(1).Font
 .Color = -16776961
 .TintAndShade = 0
 End With
 Selection.FormatConditions(1).StopIfTrue = True
 ActiveSheet.Range("$A$1:blush:C$37").AutoFilter Field:=1, \_
 Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor
End Sub
7

Hallo Ascan

Das Semicolon war genau das Proplem.

Seither läuft es wieder

DANKE VIELMALS

Gruss

Walter

8

Hallo Walter,

da kann ich nicht weiter helfen, so weit gehen meine Kenntnisse nicht. Bei mir kommt nur die Fehlermeldung Variable nicht definiert. Evtl. kann das weiterhlefen.

Gruß Hugo

9

Hallo Hugo

Das Problem hat sich gelöst!

War ein Fehler in der Formel
„=ZÄHLENWENN(A:A,A1)>1“
das Komma durch ein Semikolon ersetzen
„=ZÄHLENWENN(A:A;A1)>1“

Gruss

Walter

10

Hallo,

hatte leider keine Zeit, gleich zu antworten. Das Problem kann ich aber auch nicht lösen. Kann es sein, dass Du mit Aufsetzen des neuen PC eine andere Excel-Version bekommen hast ?

Bei meiner Version akzeptiert Excel die Eingabe der Zeile „Selection.Format…=ZÄHLEN:::“ nicht…

Gruß J. Becker

11

Hallo Herr Haefiger,
soweit mir bekannt ist, muß bei Computerwechsel oder wenn die Datei auf einem anderen Computer benutzt wird, das Macro neu eingegeben werden (Copieren).
Bestes Gelingen
stammtisch

Ich habe einen Code mit welchem ich doppelte Einträge in
Spalte A farbig markieren konnte. Seit die IT meinen PC
austauschen allomusste läuft das ding nicht mehr.

Sub Schaltfläche144_KlickenSieAuf()
Columns(„A:A“).Select
Cells.FormatConditions.Delete
Columns(„A:A“).Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=
_
„=ZÄHLENWENN(A:A,A1)>1“
Selection.FormatConditions(Selection.FormatConditions.Count).Se
tFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = True
ActiveSheet.Range("$A$1:blush:C$37").AutoFilter Field:=1,
Criteria1:=RGB(255, 0 _
, 0), Operator:=xlFilterFontColor
End Sub

weiss jemand warum?

Gruss

Walter

12

Hallo Stammtisch

Das Problem hat sich gelöst.
War ein Feehler in der Formel , Statt ;

Gruss

W. Häfliger