Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Letzte beschriebene Zelle

Letzte beschriebene Zelle
16.02.2007 14:14:39
dreho
Hallo,
eigentlich lässt die MusterTabelle von Hans fast keine Wünsche offen!?
Bloss, warum funktioniert dieses Makro nicht in allen Tabellen? (nur Tabelle1)
Zusätzlich, mein kleiner Verbesserungsvorschlag:
Wenn die letzte beschreibbare Zelle gefunden, eine kleine Frage:
"möchtest Du zu dieser Zelle springen (GeheZu).
Besten Dank für eine evtl. Anpassung
dreho
Option Explicit

Sub LetzteZelle()
RealLastCell(Worksheets("Tabelle1")).Select
End Sub

''Funktion von John Walkenbach

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte beschriebene Zelle
17.02.2007 19:19:31
schauan
Hallo,
Wenn da Tabelle1 steht greift der Befehl auch dort hin.
Für eine beliebige Tabelle müsstest Du z.B. ActiveSheet.Name (ohne "") einsetzen
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige