Microsoft Excel

Herbers Excel/VBA-Archiv

Kann Fehler in Makro nicht finden

Betrifft: Kann Fehler in Makro nicht finden
von: Martin
Geschrieben am: 15.04.2003 - 14:56:28

Hallo, brauche dringend VBA-Nachhilfe:

Folgende Ursprungsformel funktioniert:

Function FORMEL_1(Zelle)
Application.Volatile
If Left(Zelle.FormulaLocal, 1) = "=" Then _
FORMEL_1 = Right(Zelle.FormulaLocal, Len
(Zelle.FormulaLocal) - 1) Else _
FORMEL_1 = ""
End Function

Nach einigen Veränderungen sowie dem Einfügen von "VBA.Left" funktioniert nun nichts mehr (Fehlermeldung:"Argument ist nicht optional"):

Function FORMEL_1(Zelle As Range) As String
If VBA.Left(Zelle.HasFormula) Then _
FORMEL_1 = Right(Zelle.FormulaLocal, Len
(Zelle.FormulaLocal) - 1) Else _
FORMEL_1 = ""
End Function

Oder ist etwa alles falsch???

Danke!
Martin



  

Re: Kann Fehler in Makro nicht finden
von: Andreas S
Geschrieben am: 15.04.2003 - 15:01:58

Hallo,

schreib einfach:

If Zelle.HasFormula Then ...

Gruss
Andreas

  

Andreas - Kann Fehler in Makro nicht finden
von: Martin
Geschrieben am: 15.04.2003 - 15:09:35

Hallo Andreas,

danke für die schnelle Antwort. Leider funktioniert es noch nicht ganz. Starte die Excel-Datei aus Powerpoint deswegen gibt es die Fehlermeldung "Projekt oder Bibliothek nicht gefunden". Muss deswegen wohl VBA.Left und VBA.Right einfügen, aber die Frage ist wie???

Gruß
Martin

 

Beiträge aus den Excel-Beispielen zum Thema "Kann Fehler in Makro nicht finden"