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

Ansicht des Beitrags:
Von:
Gast40680		 Datum:
16.06.2016 11:04:01		 Views:
725		 Rating:
     
Antwort:
  Ja
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" & _
        "[-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

 

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