"Find" sucht nicht deutsch !?!
22.03.2009 10:04:53
Johann
Habe eine kleine VBA-Routine welche mittels FIND alle Zellen finden soll, in der die die Formel "SUMME" enthalten ist.
Wenn man mit dem Macro-Recorder den Find aufzeichnet wird folgendes aufgezeichnet:
Cells.Find(What:="summe", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Dies funktioniert IM DIALOG auch richtig.
Wenn man das VBA-Script laufen lässt, dann findet Excel keine Formeln!!!
Habe nun herumexperimentiert und folgendes rausgefunden:
Wenn ich das "WHAT" auf "SUM" ändere, dann funktioniert der FIND wieder.
Daraus schließe ich:
Wenn das FIND-Kommando aus einem VBA-Code gestartet wird,
sucht dass das FIND-Kommando nur nach ".Formula" prüft und nicht ".FormulaLocal".
Denn die betreffenden Zellen haben folgende Inhalte:
?activecell.formula
=SUM(3,4,8)
?activecell.FormulaLocal
=SUMME(3;4;8)
FRAGE: Gibt es einen Trick, dass das Find-Kommando in den FormulaLocals sucht?
Greetings from Vienna