Office: zum nächsten freien Feld springen

Hallo liebe Leutz,

ich möchte Daten jeweils an den letzten Wert anhängen...
z.B. kopiere ich Daten in Spalte A über eine beliebe Länge an Zeilen hinein. Der nächste Kopiervorgang, also da, wo die Daten hinein kopiert werden sollen, soll genau an der nächsten leeren Zeile in A beginnen.

Das ganze möchte ich dann per Makro ausführen lassen.
Ich habe es schon mit "Selection.End(xlDown).Select" versucht, damit komme ich zum letzten Wert der Spalte, aber nicht auf das nächste leere Feld dieser Spalte, um dort die neuen Werte infügen zu können.

Vielen Dank im voraus für Hilfe.

Grüße
Dhil

 

Ist doch schon mal gar nicht so schlecht... Wenn Du schon die letzte benutzte Zeile hast, ist es doch ein einfaches, mittels +1 die nächste, dann unbenutzte Zeile, zu finden.

Dröseln wir das mal auf:

Code:

range("a1").select
selection.end(xldown).select
selection.offset(1,0).select

Das positioniert den Cursor in A1, geht die Liste abwärts bis zum Ende und dann nochmals eine Zeile tiefer. Und das ganze komprimiert:

Code:

range("a1").end(xldown).offset(1,0).select

Gruß, Michael