Thema Datum  Von Nutzer Rating
Antwort
Rot .Formula festlegen funktioniert nicht
 03.08.2016 11:55:28 Anton
NotSolved
03.08.2016 11:56:11 Gast85931
NotSolved
03.08.2016 15:30:58 Gast62157
NotSolved

Ansicht des Beitrags:
Von:
Anton		 Datum:
03.08.2016 11:55:28		 Views:
1004		 Rating:
     
Antwort:
  Ja
Thema:
.Formula festlegen funktioniert nicht

Hallo,

 

ich versuche mit folgendem Code die Formeln mehrerer Zellen zu verändern.

Public Sub correct()
Dim cl As Range
Dim form As String
Dim rng As Range

Set rng = Sheets("70").Range("AM15:BN138")

For Each cl In rng

    form = Replace(cl.Formula, "'70'!$C$4", "TEXT('70'!$C$4;" & """TT.MM.JJJJ""" & ")")
    Debug.Print cl.Formula
    Debug.Print form
    cl.Formula = form
    cl.Calculate

Next cl

End Sub



Ich bekomme allerdings immer die Fehlermeldung "Run-time error '1004': Application-defined or object-defined error". Es wundet mich sehr, da ich die Formel in einer anderen funktion genauso festlege und es dort funktioniert. Weiß jemand Rat?

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot .Formula festlegen funktioniert nicht
 03.08.2016 11:55:28 Anton
NotSolved
03.08.2016 11:56:11 Gast85931
NotSolved
03.08.2016 15:30:58 Gast62157
NotSolved