vba zelle springen wen belegt

Question

hallo leute ich schon wieder folgendes  Zellen

E16    F16   G16  H16  I16  J16  K16  L16 M16  N16 O16  P16  Q16  R16

num möchte ich per vba das bei seiten aufruf die zelle E16 aktiviert wird ist sie aber belegt soll F16 aktivert werden ist F16 belegt dann G16 usw geht so was

danke f+r eure Hilfe mfg rolf

Answer 1

Hi,

ich nehme an, es handelt sich nicht um Formeln in Zeile 16? Folgenden Code ins Codemodul des Tabellenblattes:

Private Sub Worksheet_Activate()
    Dim intLetzte As Integer
    intLetzte = Cells(16, Columns.Count).End(xlToLeft).Column
    Cells(16, intLetzte + 1).Select
End Sub

Bis später, Karin

Answer 2

danke Karin genaus so ist es richtig hast mich wieder mal gerettet danke

mfg rolf

Answer 3

Am besten nutzt du dafür das Worksheet_Activate Ereignis. So springt der Cursor automatisch in die nächste freie Lücke, sobald du das Blatt öffnest.

Private Sub Worksheet_Activate()
    Dim zelle As Range
    For Each zelle In Range("E16:R16")
        If zelle.Value = "" Then
            zelle.Select
            Exit Sub
        End If
    Next zelle
End Sub

Wenn die Zeile 16 irgendwann mal voll ist, bleibt der Cursor einfach in der letzten Zelle (R16) stehen oder du ergänzt noch eine Zeile für eine kurze Meldung.