Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
952to956
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

LastCell funktioniert nur bis Zeile 32767

LastCell funktioniert nur bis Zeile 32767
25.02.2008 12:06:43
Markus
Hallo,
beiliegendes Makro ist sehr hilfreich und springt zur letzten beschriebenen Zelle.
In grossen Tabellen mit mehr als 32767 Zeilen funktioniert es nicht mehr - Schade !
Alle Versuche bei den Variablen auf Long oder (As Long) zu ändern,
funktionieren nicht, bzw. wahrscheinlich schreibe ich die falsche Syntax.
Wer weiss hier Rat, damit dieses Makro auch zur Zelle I65000 springt,
sofern diese beschrieben ist.
Jetzt schon besten Dank für eine Antwort
Markus

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: LastCell funktioniert nur bis Zeile 32767
25.02.2008 12:07:29
Markus
Hier noch das Makro.

Function RealLastCell(TheSheet As Worksheet) As Range
' springt zur letzten beschriebenen Zelle
' wobei nur Formeln, Zahlen und Characters gelten
' Reine Formatierungen werden nicht berücksichtigt
'  Quelle von www.herber.de
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
Application.ScreenUpdating = True
Set RealLastCell = TheSheet.Cells(Row, Col)
End Function


Anzeige
AW: LastCell funktioniert nur bis Zeile 32767
25.02.2008 12:27:06
Franc
Und der Grund ist, das % für Integer = Werte von -32.768 bis 32.767 steht.
& = Long = -2.147.483.648 bis 2.147.483.647 (also ausreichend für die 65536 Zeilen ^^)

AW: LastCell funktioniert nur bis Zeile 32767
25.02.2008 12:27:50
mpb
Hallo Markus,
versuch's mit
Dim ExcelLastCell As Range
Dim Col%, LastColWithData%
Dim LastRowWithData As Long
Dim row As Long
Gruß
Martin

AW: LastCell funktioniert nur bis Zeile 32767
25.02.2008 12:38:00
fcs
Hallo Markus,
mit folgender Deklaration funktionierts unter Excel97 bis zur letzten Zeile (65536)

Dim Row As Long, Col As Long, LastRowWithData As Long, LastColWithData As Long


Die nachfolgende Variante der Function ist wesentlich schneller, wenn in der Tabelle viele Zeilen formatiert aber ohne Daten sind.
Gruß
Franz


Function RealLastCell(TheSheet As Worksheet) As Range
' springt zur letzten beschriebenen Zelle
' wobei nur Formeln, Zahlen und Characters gelten
' Reine Formatierungen werden nicht berücksichtigt
'  Quelle von www.herber.de
Dim ExcelLastCell As Range
Dim Row As Long, Col As Long, LastRowWithData As Long, LastColWithData As Long
Application.ScreenUpdating = False
Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
LastColWithData = ExcelLastCell.Column
Col = ExcelLastCell.Column
Do While Application.CountA(TheSheet.Columns(Col)) = 0 And Col  1
Col = Col - 1
Loop
LastColWithData = Col
LastRowWithData = 1
With TheSheet
For Col = 1 To LastColWithData
Row = .Cells(.Rows.Count, Col).End(xlUp).Row
If Row > LastRowWithData Then LastRowWithData = Row
Next
End With
Application.ScreenUpdating = True
Set RealLastCell = TheSheet.Cells(LastRowWithData, LastColWithData)
End Function


Anzeige
AW: LastCell funktioniert nur bis Zeile 32767
25.02.2008 12:22:06
Rudi
Hallo,
so geht's:

Function RealLastCell(TheSheet As Worksheet) As Range
' springt zur letzten beschriebenen Zelle
' wobei nur Formeln, Zahlen und Characters gelten
' Reine Formatierungen werden nicht berücksichtigt
'  Quelle von www.herber.de
Dim ExcelLastCell As Range
Dim lngRow As Long, lngCol As Long, LastRowWithData As Long, LastColWithData As Long
Application.ScreenUpdating = False
Set ExcelLastCell = TheSheet.Cells.SpecialCells(xlLastCell)
LastRowWithData = ExcelLastCell.Row
lngRow = ExcelLastCell.Row
Do While Application.CountA(TheSheet.Rows(lngRow)) = 0 And lngRow  1
lngRow = lngRow - 1
Loop
LastRowWithData = lngRow
LastColWithData = ExcelLastCell.Column
lngCol = ExcelLastCell.Column
Do While Application.CountA(TheSheet.Columns(lngCol)) = 0 And lngCol  1
lngCol = lngCol - 1
Loop
LastColWithData = lngCol
Application.ScreenUpdating = True
Set RealLastCell = TheSheet.Cells(lngRow, lngCol)
End Function


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Nachfrage
25.02.2008 12:30:00
mpb
Hallo Rudi,
wie wäre denn der korrekte Aufruf der UDF, z.B. für Tabelle2?
Gruß
Martin

AW: Nachfrage
25.02.2008 12:37:35
Rudi
Hallo,

Sub tt()
MsgBox RealLastCell(Sheets("Tabelle2")).Address
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Nachfrage
25.02.2008 12:49:00
mpb
Hallo Rudi,
im Eröffnungspost hieß es, dass die UDF in die letzte Zelle springt, das kam mir schon sehr merkwürdig vor.
Wenn ich es jetzt richtig verstehe, wird die UDF immer über ein Makro aufgerufen, sie gibt ja auch keinen Wert zurück. Oder habe ich jetzt noch etwas übersehen? Danke für die Erläuterungen.
Gruß
Martin

Anzeige
AW: Nachfrage
25.02.2008 13:27:00
Markus
Hallo und besten Dank an Alle!
natürlich habe ich vergessen, das aufrufende Makro mitzuliefern.
Ich benutzte RealLatCell in einem Add-In.
jetzt funktionierts bestens, und ich kann in meinen grossen Tabellen herumspringen.
Danke
Markus

Sub LetzteZelle()
' ruft die die entsprechende Funktion auf
' springt zur Letzten Zelle
' berücksichtigt nicht Kommentare und Formatierungen
RealLastCell(ActiveSheet).Select
End Sub


299 Forumthreads zu ähnlichen Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Anzeige
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
16
9
4
4
3
7
2
2
12
1
3
3
9
2
2
2
3
4
1
2
11
3
2
5