Zellinhalt vergleichen?

02/01/2010 - 10:37 von Peter Vogt | Report spam
Hallo NG!
Euch allen ein frohes neues Jahr!

Ich habe WIN XP PRO mit allen Updates und nutze Office XP Pro mit allen
Updates.

Ich möchte mit einem Makro Zellinhalte vergleichen.
Leider bekomme ich dabei eine Fehlermeldung.
Das Makro soll prüfen, ob in der Celle C8 eine bestimmte Formel steht.


With ActiveSheet
Range("D8").Select
if D8 = "=Wechseln(C8;" ";)*1" then

With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

elseIf With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

Range("D12").Select
End Sub
In der dritten Zeile bekomme ich die Fehlermeldung, dass THEN oder GOTO
erwartet wird.
Wie muß ich die Formel iengeben, damit das Makro weiterarbeitet?

Einen schönen Tag noch
Peter Vogt




__________ Hinweis von ESET NOD32 Antivirus, Signaturdatenbank-Version 4736 (20100101) __________

E-Mail wurde geprüft mit ESET NOD32 Antivirus.

http://www.eset.com
 

Lesen sie die antworten

#1 Peter Schleif
02/01/2010 - 11:25 | Warnen spam
Peter Vogt schrieb am 02.01.2010 10:37 Uhr:

if D8 = "=Wechseln(C8;" ";)*1" then

With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With

elseIf With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If



1. D8 ist keine korrekte Range. Entweder [D8] oder Range("D8")

2. ohne weitere Angaben liefert Range("D8") den Wert der Zelle
(Default-Eigenschaft .Value). Die deutsche Formel steht in .FormulaLocal

3. Anführungszeichen innerhalb anderer Anführungszeichen müssen durch
Verdopplung maskiert werden

4. Statt ElseIf sollte es nur Else heißen

If [D8].FormulaLocal = "=WECHSELN(C8;"" "";)*1" Then
With Selection.Interior
.ColorIndex = 43
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Else
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End If

Peter

Ähnliche fragen