Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 18:14:48
Aaaah! Tabelle erstellen mit Index
17.05.2024 17:37:33
letztes Zeichen in Zelle entfernen
17.05.2024 17:07:32
Problem bei Diagrammerstellung
17.05.2024 14:59:04
Menüband => XML-Datei bei Start editieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1960to1964
1960to1964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zur letzten beschriebenen Zelle in einem Bereich sprigen

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


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

Betreff
Datum
Anwender
Anzeige
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
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige