Thema Datum  Von Nutzer Rating
Antwort
19.09.2016 14:39:12 mAIK
Solved
Blau Was soll wo verglichen werden?
 19.09.2016 15:18:37 Gast36426
NotSolved
19.09.2016 15:56:04 mAIK
NotSolved
19.09.2016 15:56:04 mAIK
NotSolved
19.09.2016 15:56:05 mAIK
Solved
20.09.2016 06:41:36 Werner
Solved

Ansicht des Beitrags:
Von:
Gast36426		 Datum:
19.09.2016 15:18:37		 Views:
447		 Rating:
     
Antwort:
  Ja
Thema:
Was soll wo verglichen werden?

Tut mir leid, selbst in lesbarer Form ist das nur Prosa die keiner versteht.

Sub S()
Dim rng As Range, rng2 As Range, cell As Range, cell2 As Range
Set List = Range("A1:R6")
Set List2 = Range("B1:B5")


    Workbooks.Open "D:\w.xls"
    Workbooks.Open "C:\w2.xls"
    
For Each cell In List

For Each cell2 In List2
    If Workbooks("w.xls").Worksheets("F").Range(cell) = 0 Then
      Workbooks("w2.xls").Worksheets("F").Range("cell2") = 0
      
    ElseIf Workbooks("w.xls").Worksheets("F").Range(cell) = 1 Then
      Workbooks("w2.xls").Worksheets("F").Range("cell2") = 1
      
    ElseIf Workbooks("w.xls").Worksheets("F").Range("cell") = "n.r." Then
      Workbooks("w2.xls").Worksheets("F").Range("cell2") = 0
      
    Else
      Workbooks("w2.xls").Worksheets("F").Range("cell2") = "Fehler"
      
    End If
Next cell, cell2

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
19.09.2016 14:39:12 mAIK
Solved
Blau Was soll wo verglichen werden?
 19.09.2016 15:18:37 Gast36426
NotSolved
19.09.2016 15:56:04 mAIK
NotSolved
19.09.2016 15:56:04 mAIK
NotSolved
19.09.2016 15:56:05 mAIK
Solved
20.09.2016 06:41:36 Werner
Solved