VBA Nächste Zeile mit Bedingung markieren

[HKindler]

Hi,

damit funktioniert es schon mal:

Code:

Sub Schaltfläche2_Klicken()


  Dim AZeile As Long
  Dim last As Long
  Dim izeile As Long
  Dim ispalte As Long
  
  last = Cells(Rows.Count, 4).End(xlUp).Row
  AZeile = ActiveCell.Row + 1
  For izeile = AZeile To last
    For ispalte = 24 To 25
      If Cells(izeile, ispalte).Value > 0 Then
        Cells(izeile, ActiveCell.Column).Select
        izeile = last
        ispalte = 25
      End If
    Next ispalte
  Next izeile
End Sub

Wenn du noch eine Meldung haben willst:

Code:

Sub Schaltfläche2_Klicken()


  Dim AZeile As Long
  Dim last As Long
  Dim izeile As Long
  Dim ispalte As Long
  Dim Abbruch As Boolean
  
  last = Cells(Rows.Count, 4).End(xlUp).Row
  AZeile = ActiveCell.Row + 1
  For izeile = AZeile To last
    For ispalte = 24 To 25
      If Cells(izeile, ispalte).Value > 0 Then
        Cells(izeile, ActiveCell.Column).Select
        Abbruch = True
        Exit For
      End If
    Next ispalte
    If Abbruch Then Exit For
  Next izeile
  If Not Abbruch Then MsgBox "Ende erreicht"
End Sub

Wobei man hier eigentlich über das vorhanden Listobject gehen sollte und Range.Find verwenden sollte um den nächsten Eintrag zu finden. Vielleicht kommt nachher noch eine solche Variante, falls ich Lust dazu habe...

[Seeqi]

Vielen lieben Dank! :)

Hatte auch schon überlegt den weg des geringsten Widerstandes zu gehen mit Activecell.Row + 1 :D

Dieses Boeleen ist ein True/False was du händisch setzen kannst um dinge zu erzwingen oder?
Muss ich mich mal mit befassen, wird bestimmt öfter hilfreich sein :D

Vielen Dank nochmal :)

[Seeqi]

Guten Morgen nochmal,

gibt es eine Möglichkeit eine Schleife rückwärts laufen zu lassen?

Das er mir also nicht den nächsten Treffer anzeigt nach unten hin sondern nachoben?
Also quasi die vorherige Monatsleistung? 

Danke für die Hilfe schonmal :)

[HKindler]

Hi,

Schau dir einfach mal die Hilfe zu „For“ an.

[Seeqi]

Hat funktioniert :D Danke nochmal.