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

Ansicht des Beitrags:
Von:
Gast9778
Datum:
16.06.2016 13:24:20
Views:
691
Rating: Antwort:
 Nein
Thema:
Laufzeitfehler '1004', Anwendungs- oder Objektdefinierter Fehler
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"",RC[-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

 

Bei der letzten Suche wurde aus warum auch immer nach Temperatur ein &_ eingefügt.

Dieser Makro Funktioniert jetzt


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
16.06.2016 11:02:37 Daniel
NotSolved
16.06.2016 11:04:01 Gast40680
NotSolved
Rot Laufzeitfehler '1004', Anwendungs- oder Objektdefinierter Fehler
16.06.2016 13:24:20 Gast9778
Solved