Das Archiv des Excel-Forums

Letzter Wert einer Zeile

Bild

Betrifft: Letzter Wert einer Zeile
von: Ralf

Geschrieben am: 09.10.2003 18:40:40

Hallo,
ich möchte jedesmal wenn ich eine Datei öffne gleich den letzten Wert in Zeile 10 angezeigt bekommen bzw. sollte gleich zu dem Wert gescrollt werden.Dazwischen sind auch leere Zellen.
Vielen Dank im vorraus
Gruß
Ralf
Bild


Betrifft: AW: Letzter Wert einer Zeile
von: Karl-Otto Reimann
Geschrieben am: 09.10.2003 18:51:25

Hallo Ralf


Function RealLastCell(TheSheet As Worksheet) As Range
Dim ExcelLastCell As Range
Dim Row%, Col%, LastRowWithData%, LastColWithData%
Application.ScreenUpdating = False
Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
LastRowWithData = ExcelLastCell.Row
Row = ExcelLastCell.Row
Do While Application.CountA(TheSheet.Rows(Row)) = 0 And Row <> 1
Row = Row - 1
Loop
LastRowWithData = Row
LastColWithData = ExcelLastCell.Column
Col = ExcelLastCell.Column
Do While Application.CountA(TheSheet.Columns(Col)) = 0 And Col <> 1
Col = Col - 1
Loop
LastColWithData = Col
Set RealLastCell = TheSheet.Cells(Row, Col)
End Function

mfG KO


Bild


Betrifft: AW: Letzter Wert einer Zeile
von: Ralf
Geschrieben am: 09.10.2003 19:04:55

Hallo Karl Otto
danke für deine Antwort.Wo muß ich die funktion denn reinsetzen? In diese Arbeitsmappe?
Und bezieht sich die Funktion nur auf Zeile 10?
Gruß
Ralf


Bild


Betrifft: AW: Letzter Wert einer Zeile
von: Boris
Geschrieben am: 09.10.2003 19:04:54

Hi Ralf,

Option Explicit


Private Sub Workbook_Open()
Dim Ws As Worksheet
Set Ws = Worksheets("Tabelle1")
Ws.Activate
Ws.Range("IV10").End(xlToLeft).Select
End Sub


Selektiert im Tabellenblatt "Tabelle1" die letzte Zelle "ungleich nix" in Zeile 10.
Einfügen in das Modul "Diese Arbeitsmappe".

Grüße Boris


Bild


Betrifft: AW: Letzter Wert einer Zeile
von: Ralf
Geschrieben am: 09.10.2003 19:08:13

Danke Boris,
hat geklappt.
Gruß
Ralf


 Bild

Excel-Beispiele zum Thema " Letzter Wert einer Zeile"

Letzter Wert in Zeile download Letzter Wert aus einem Bereich download
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download Zeile mit letzter Fundstelle an letzte Position der Liste download