Office: Letzte freie Zeile suchen

Hi,

ich durchforste schon seit einiger Zeit das Netz, aber leider finde ich nicht den richtigen Code.
Ich möchte eine Tabelle in Spalte A durchsuchen lassen und nach der letzten beschriebenen Zeile (+1 (noch eine leere Zeile als Abstand) den nächsten Eintrag über einen CommandButton setzen lassen. Bisher finde ich immer nur die nächste freie Zeile, nicht aber die letzte in der Tabelle (ich habe natürlich auch freie Zeilen zwischen den Einträgen, daher das Problem).
Geht das irgendwie?

Bisher probiert habe ich das über:

Sub LZeile()
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
End Sub

Aber wie gesagt, da kommt halt nur die nächste und nicht die letzte.

:)

 

Hallo,

versuch es mal so.

Code:

Ansonsten einfach nochmals melden.

Gruß Manuel

 

Das ist für Tabellen ein absolutes Nogo!

 

Hm, funktioniert irgendwie nicht so. Bin auch kein Profi.
Wie komme ich denn auf die "Select" Funktion, dass die letzte Zeile +1 auch genommen wird und da der Eintrag, z.B. "Test" erfolgen kann?
Kann man auch irgenwie die zu durchsuchende Spalte einstellen?

Sub Eintrag()

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

End Sub

Danke

@MisterBurns: Ja ich weiß, das ist doof, aber Tabellen in Word sind ebenso ein NoGo :-)

 

Ein bisschen weiter bin ich und zwar damit:

Sub letztezelle()

Range("A1").SpecialCells(xlCellTypeLastCell).Select
ActiveCell.Offset(2, 0).Activate

End Sub


Leider bleibt die aktive Zelle dann nicht in Spalte A sondern hüpft, wenn in z.B. C etwas steht da hin und geht dann zwei runter. Was mache ich denn falsch?


Danke

 

Dies:

und das:

klingt für mich wie das gleiche.

Was sind das für "Tabellen"? Tabellenobjekte?

Mach mal eine Mustermappe (keine sensible Daten) und beschreibe, welche Zelle Du suchst. Aus der Beschreibung werde ich nicht schlau

 

Moin
Meinst du es so?
Code:

gruss hary

 

Ja, so funktioniert es.

Wie kann ich denn jetzt noch eine andere Spalte einstellen, es wird ja nun immer in "A" gesucht?

Wenn das noch ginge, das wäre super.

Merci

 

Moin
Code:

Der Eintrag erfolgt immer 2 Zeilen unterhalb in der entsprechenden Spalte. Wenn es so sein soll?
gruss hary

 

Code:

Die 1 steht für Spalte A

 

Leider steht die 1 nicht für Spalte A. Wenn ich eine 2 rein mache, dann funzt es nicht.

Danke Hary, mit der Range Funktion funzt es.


Vielen Dank, das erleichtert meine Arbeit *Smilie *wink.gif*

 

*biggrin.gif*
Wenn Du davon überzeugt bist wird das wohl so sein...