Basicmaker

[LES]

Ich möchte gern ein Script-Muster haben, welches in dem jeweils geöffnetem Arbeitsblatt zur nächsten freien Zelle in der Kolonne 8 führt

[Get]

GIb deine Anfrage in ChatGPT ein, dort bekommst du dein Skript.

[Carsten Goellnitz]

GIb deine Anfrage in ChatGPT ein, dort bekommst du dein Skript.

ausprobiert:

Code: Alles auswählen

Sub GeheZurNaechstenFreienZelleInSpalteH()
    Dim ws As Worksheet
    Dim naechsteFreieZelle As Range
    
    ' Aktuelles Arbeitsblatt setzen
    Set ws = ActiveSheet
    
    ' Finde die nächste freie Zelle in der 8. Spalte (Spalte H)
    Set naechsteFreieZelle = ws.Cells(ws.Rows.Count, 8).End(xlUp).Offset(1, 0)
    
    ' Gehe zur nächsten freien Zelle
    naechsteFreieZelle.Select
End Sub

hilft das?