Zelle aus Letzten Zeile auslesen

[Smily1981]

Hallo,


Ich habe ein Datenbank in der ich über eine Userform meine Daten eingeben, jeder neue Datensatz wird in die letzte frei Zeile geschrieben, nun sind ist der neue Eintrag nicht gleich im Sichtbereich. Meine Frage hierzu wäre, ist es möglich eine bestimmte Zelle (spalte) jeweils aus der aktuellen also letzten Zeile wo anders (in einer Zelle im oberen Bereich) anzeigen zu lassen?


Lg,
Karl

[Glausius]

Hallo Karl,

natürlich ist das möglich, einfacher ist es aber doch, wenn du in deiner Userform mit einem Scroll-Befehl bis zur letzten Zeile springst und die dann gleich unter den Überschriften steht.

[Smily1981]

Hallo


Vielen Dank für den Tipp, das habe ich in VBA gerade noch geschafft mit  ActiveWindow.ScrollRow = Range("A65535").End(xlUp).Row
Könnte mir jetzt vielleicht noch jemand helfen das eine Bestimmte Zelle Spalte der letzten Zeile in einem anderem Format dargestellt wird z.b. Fett und rote Schrift?


LG,
Karl

[Gast 123]

Hallo Karl

die Antwort hast du schon selbst geliefert, siehst sie nur nicht !!  Aendere mal deinen Code etwas um:
Denke bitte auch daran das man die vorherige letzte Zeile wieder zurücksetzen sollte !!!
Den gewünschten Spalten Buchstaben musst du bitte im Text "Spalte" selbst eingeben.
du kannst ScrollRow auch auf lastZell -3 setzen um die letzten 3 (bis 5) Zeilen zu sehen. 

lastZell = Range("A65535").End(xlUp).Row
ActiveWindow.ScrollRow = lastZell -3
'bestimmte letzte Spalte Rot markieren
Cells(lastZell,"Spalte").Font.Bold=True
Cells(lastZell,"Spalte").Font.Colorindex=3
'vorherige letzte Spalte Rot Markierung löschen
Cells(lastZell,"Spalte").Offset(-1,0).Font.Bold=False
Cells(lastZell,"Spalte").Offset(-1,0).Font.Colorindex=1   'schwarz

mfg  Gast 123

[Smily1981]

Hallo !

Vielen Dank für den Code! Funktioniert prima!

Lg,
Karl