Thema Datum  Von Nutzer Rating
Antwort
27.03.2015 19:57:08 querdenker
*****
Solved
28.03.2015 10:31:52 Gast68120
*****
Solved
28.03.2015 10:32:58 Gast82167
NotSolved
28.03.2015 20:27:27 querdenker
NotSolved
29.03.2015 09:40:23 Gast81655
NotSolved
Blau schleifen abfrage
 28.03.2015 10:37:14 MarkusK
*****
Solved

Ansicht des Beitrags:
Von:
MarkusK		 Datum:
28.03.2015 10:37:14		 Views:
769		 Rating:
     
Antwort:
 Nein
Thema:
schleifen abfrage

Hallo,

 

mal ne Frage, soll immer von Zeile 24 rückwärts bis Zeile 20 gegangen werden, oder kann sich der Bereich auch ändern?

Weil wenn der Bereich fest ist, kann man eine For-Next-Schleife nehmen.

 

Dim Zeile As Integer

For Zeile = 24 To 20 Step -1
    If (Cells(Zeile, 13) > 0) Then
        Cells(Zeile, 13).Copy
        Worksheets("BP Übersicht").Range("B8").PasteSpecial Paste:=xlPasteValues
        Worksheets("BP Übersicht").Range("B5").PasteSpecial Paste:=xlPasteValues
        Cells(Zeile, 9).Copy
        Worksheets("BP Übersicht").Range("B9").PasteSpecial Paste:=xlPasteValues
        merker = merker + 1
        Exit For
    End If
Next Zeile

Sonst müßte man erst die unterste Zeile finden, und entsprechend auch die oberste, wo die Schleife dann enden soll.

 

 

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.03.2015 19:57:08 querdenker
*****
Solved
28.03.2015 10:31:52 Gast68120
*****
Solved
28.03.2015 10:32:58 Gast82167
NotSolved
28.03.2015 20:27:27 querdenker
NotSolved
29.03.2015 09:40:23 Gast81655
NotSolved
Blau schleifen abfrage
 28.03.2015 10:37:14 MarkusK
*****
Solved