Zur letzten beschriebenen Zelle in einem Bereich sprigen

Forumthread: Zur letzten beschriebenen Zelle in einem Bereich sprigen

07.02.2024 09:31:21

nightcab

Hallo!

Ich unterteile das Jahr in 12 mal 150 Zeilen (im Jänner sind es 149).

Jänner = E100:E249, Februar = E250:E399, März = E400:E549

Mit diesem Code springe ich z.B. zum Anfang = E100 + 1Zeile



Sub Springe_Jänner()

Application.Goto ActiveSheet.Cells(100, 5), True ' = Anfang Jänner

ActiveWindow.SmallScroll Down:=-1    ' = 1. freie Zeile Im Jänner

End Sub

Jetzt werden in den einzelnen Bereichen = Monaten etwas eingetragen.
Nehmen wir als Beispiel den Februar.
Im Februar sind aber im Beispiel schon 10 Zeilen beschrieben.
Nun soll mich der Code nicht zu Anfang Februar (E250) bringen sondern gleich in die erste freie Zeile im Februar also zu E261.
So soll das auch dei den restlichen Monaten funktionieren.
Beispiel März: 5 Zeilen beschrieben
Sprung nach E440 (= anfang März) +5 (die schon beschrienenen Zeilen) +1 (die erste Freie Zeile Im März) = E406

Ich hoffe nicht alle Klarheiten beseitigt zu haben und ersuche euch mir mit dem Code zu helfen, danke!
Gruß Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zur letzten beschriebenen Zelle in einem Bereich sprigen

07.02.2024 11:51:27

Yal

Hallo Night,

etwa so:

Sub Test_last()

Dim i, R, R2



    With Worksheets(1)

        For i = 1 To 12

            R = i * 50 + 99

            If .Cells(R, "E") > "" Then

                Debug.Print i, R

            Else

                R2 = .Cells(R, "E").End(xlUp).Row

                Debug.Print i, WorksheetFunction.Max(R - 49, R2)

            End If

        Next

    End With

End Sub

VG
Yal

AW: Zur letzten beschriebenen Zelle in einem Bereich sprigen

07.02.2024 14:16:14

Pappawinni

vielleicht so?



Sub SpringeMonat(intMonthNumber As Integer)

Dim lngMonthRow As Long

  

    lngMonthRow = 100 + (intMonthNumber - 1) * 150

    Application.Goto ActiveSheet.Cells(WorksheetFunction.Max(ActiveSheet.Cells(lngMonthRow + 150, 5).End(xlUp).Row, lngMonthRow) + 1, 5), True

    ActiveWindow.SmallScroll Down:=-1



End Sub

Beliebteste Forumthreads (12 Monate)

Zur letzten beschriebenen Zelle in einem Bereich sprigen

Forumthread: Zur letzten beschriebenen Zelle in einem Bereich sprigen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zur letzten beschriebenen Zelle in einem Bereich sprigen

Forumthread: Zur letzten beschriebenen Zelle in einem Bereich sprigen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread