Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '1004', Anwendungs- oder Objektdefinierter Fehler
16.06.2016 11:02:37 Daniel
NotSolved
16.06.2016 11:04:01 Gast40680
NotSolved
16.06.2016 13:24:20 Gast9778
Solved

Ansicht des Beitrags:
Von:
Daniel
Datum:
16.06.2016 11:02:37
Views:
590
Rating: Antwort:
  Ja
Thema:
Laufzeitfehler '1004', Anwendungs- oder Objektdefinierter Fehler

Hallo Experten,

ich bekomme bei meinem Makro die Fehlermeldung 1004 Anwendungs- oder Objektdefinierter Fehler.

Ich möchte eigentlich nur diese Formel in alle Zeilen der Spalte I kopieren. (Wenn Funktion funktioniert soweit)

=WENN(UND(ISTZAHL(SUCHEN("PK";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2<=100);"i.O.";WENN(UND(ISTZAHL(SUCHEN("PS";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2<=95);"i.O.";WENN(UND(ISTZAHL(SUCHEN("PK";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2>100);"n.i.O.";WENN(UND(ISTZAHL(SUCHEN("PS";F2));ISTZAHL(SUCHEN("Temperatur";E2));G2>95);"n.i.O.";""))))

 

Nach der Aufzeichnung kommt dieser Makro raus:

Sub Makro17()
'
' Makro17 Makro
'
Sheets("Auswertung").Activate
   Cells(2, 9).Select
    ActiveCell.FormulaR1C1 = _
        "=IF(AND(ISNUMBER(SEARCH(""PK"",RC[-3])),ISNUMBER(SEARCH(""Temperatur"",RC[-4])),RC[-2]<=100),""i.O."",IF(AND(ISNUMBER(SEARCH(""PS"",RC[-3])),ISNUMBER(SEARCH(""Temperatur"",RC[-4])),RC[-2]<=95),""i.O."",IF(AND(ISNUMBER(SEARCH(""PK"",RC[-3])),ISNUMBER(SEARCH(""Temperatur"",RC[-4])),RC[-2]>100),""n.i.O."",IF(AND(ISNUMBER(SEARCH(""PS"",RC[-3])),ISNUMBER(SEARCH(""Temperatur" & _ "[-4])),RC[-2]>95),""n.i.O."",""""))))"
    Selection.AutoFill Destination:=Range(Cells(2, 9), Cells(ActiveSheet.Range("B999999").End(xlUp).Row, 9)), Type:=xlFillDefault
    
End Sub

Die ersten 2 Zeilen und die letzte habe ich selber noch eingefügt.

Nun wird mir der Fehler ab ActiveCell.FormularR1C1 bis zum  Ende der Wenn Formel angezeigt.

Ich bin für jeden Tipp dankbar!!

Hab schon gelesen das man das R1C1 aus der Fromel rauslöschen soll, dass hat bei mir aber leider nichts gebracht.

Danke schonmal im voraus für eure Hilfe.

 

Gruß,

Daniel


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Laufzeitfehler '1004', Anwendungs- oder Objektdefinierter Fehler
16.06.2016 11:02:37 Daniel
NotSolved
16.06.2016 11:04:01 Gast40680
NotSolved
16.06.2016 13:24:20 Gast9778
Solved