Thema Datum  Von Nutzer Rating
Antwort
27.08.2012 21:12:55 daniel
NotSolved
Blau for next schleifen mit call
 28.08.2012 12:26:22 Dekor
Solved
28.08.2012 13:21:57 Gast65839
Solved

Ansicht des Beitrags:
Von:
Dekor		 Datum:
28.08.2012 12:26:22		 Views:
865		 Rating:
     
Antwort:
 Nein
Thema:
for next schleifen mit call

Hallo Daniel,

am besten die Schleifen in die Schleifen belassen, oder die Variable Annäherung als Globale Variable deklarieren oder den Aktuellen Wert der Variable mit dem call übergeben.

For Annaeherung = 0 To 10
   Sheets("Reale Bedarfe").Cells(159, 5).Value = Sheets("integrierter Ansatz").Cells(67, (11 - 5) + annaeherung)
   If Sheets("integrierter Ansatz").Cells(67, 11 + annaeherung) > 0 Then
      For i = 1 To 26
         If Sheets("integrierter Ansatz").Cells(35 + i, 12 + annaeherung) = "ja" Then  'Prüfen ob in Kategorie fällt
            Sheets("Reale Bedarfe").Cells(90, 6) = Sheets("integrierter Ansatz").Cells(35 + i, 2).Value ' Einfügen der Artikelnr in Reale Bedarfe
            Sheets("integrierter Ansatz").Cells(35 + i, 13 + annaeherung).Value = Sheets("Reale Bedarfe").Cells(146, 6 + kw) 'Rang 1 wählen
         End If
      Next i
   Else
      Call Kap_überschritten
      Call übertragen_vom_Solver
   End If
   Sheets("Reale Bedarfe").Range("D163:E171").ClearContents
   Sheets("Reale Bedarfe").Range("G163:G171").ClearContents
Next Annaeherung

Gruß Detlev

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
27.08.2012 21:12:55 daniel
NotSolved
Blau for next schleifen mit call
 28.08.2012 12:26:22 Dekor
Solved
28.08.2012 13:21:57 Gast65839
Solved