letzte Zelle (Bereich festlegen)

[Eizi100]

Hallo zusammen
Ich stehe gewaltig auf dem Schlauch. Ich will die letzte freie Zelle in einem bestimmten Bereich finden bzw. etwas über eine UF eintragen 
der Bereich sollte z.B.: A5:A20 sein

Ich schaffe es nur dass die letzte Zelle in der gesamten Spalte gefunden wird. Vielleicht kann mir wer helfen.
Ich weiß dass das Ganze schon tausendmal ausgelutscht worden ist. Bin im Netz aber nicht fündig geworden

PHP-Code:

Private Sub CommandButton1_Click()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = TextBox1.Text
End Sub 


Danke für eure Hilfe
Michael

[RPP63]

Moin!

Range("A20").End(xlUp).Offset(1) = Textbox1

oder auch das unzuverlässigere
Range("A5:A20").SpecialCells(xlCellTypeLastCell).Offset(1) = Textbox1

Gruß Ralf

[Eizi100]

Hi Ralf
Ich bin extrem dankbar für deine Hilfe. 

Bin bei der uzuverlässigeren Variante draufgekommen, dass die wirklich unberechenbar ist warum das so ist, kann ich mir nicht erklären)

Hab noch eine Frage mit diesem Code
Range("A20").End(xlUp).Offset(1) = TextBox1

Kann man das so ändern, dass dieser erst ab A5 die letzte Zelle sucht? Wenn nicht, bin ich mit dem auch glücklich

LG
Michael

[RPP63]

Bin bei der uzuverlässigeren Variante draufgekommen, dass die wirklich unberechenbar ist warum das so ist, kann ich mir nicht erklären)

Wenn Du eine Zelle im Bereich beschreibst und sie dann wieder löscht, gilt sie dennoch bis zur nächsten Speicherung für Excel als beschrieben.
Muss man nicht verstehen, sondern nur wissen.

Kann man das so ändern, dass dieser erst ab A5 die letzte Zelle sucht?

Cells(Worksheetfunction.Max(5, Range("A20").End(xlUp).Row + 1), 1) = Textbox1

[Eizi100]

Also jetzt mal ehrlich

Wie kommt man nur auf sowas..unglaublich,, Das ist sowas von Perfekt. Danke
Und danke für die Erklärung warum die unzuverlässigere Variante tut was sie will. Ich habe gelöscht, kopiert und habs nicht kapiert warum die sowas macht


LG
Michael