Re: excel+makro

freezer — Wed, 01 Nov 2006 21:14:51 GMT

für spalte:

Sub erste_leere_spalte()

    Dim Loletzte As Long

    Loletzte = Rows(1, Columns.Count).End(xlToLeft).Column + 1

    Rows(1, Loletzte).Select 'das kann gelöscht werden

für zeile:

Sub erste_leere_zelle1A()

    Dim Loletzte As Long

    Loletzte = Cells(Rows.Count, 1).End(xlUp).Row + 1

    Cells(Loletzte, 1).Select 'das kann gelöscht werden

gutes gelingen

excel+makro

zivi — Wed, 01 Nov 2006 20:49:04 GMT

hallo, habe eine EXCEL-Tabelle und möchte dort automatisch in die nächste freie zelle springen. wie kann ich das machen?
wenn ich ein makro schreiben mit "end - pfeil runter + enter) schreibt er dann ins makro z.b.: range "a3".select.

damit kann ich aber nix anfangen.

hat vielleicht jemand einen tipp?

danke