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
1316to1320
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
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte gefüllte Zeile in List.Object

Letzte gefüllte Zeile in List.Object
26.06.2013 08:11:44
Nette13
Hallo zusammen,
ich habe ein kniffeliges Problem. Für mich zumindest. Ich möchte in einem List.Object die letzte gefüllte Zeile in einer Spalte ermitteln.
Aber mit diesem Code bringt er mich immer ans Tabellenende.
lr = Cells(Rows.Count, suchspalte).End(xlUp).Row
Ich muss in diesen Code irgendwie das Tabellenobject einbauen, aber weiß leider nicht wie. Hat jemand von Euch eine Idee?
Ich sage schon mal Danke.
Gruß
Annette

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte gefüllte Zeile in List.Object
26.06.2013 08:32:13
Tino
Hallo,
was meinst Du mit List.Object?
Dein Codeschnipsel weist auf die letzte Zeile in der suchspalte in einer Tabelle.
(Tabelle kommt drauf an wo der Code steht)
Die letzte Spalte in einer Zeile müsste so gehen. 
lr = Cells(suchZeile,Columns.Count).End(xltoleft).column
Gruß Tino

AW: Letzte gefüllte Zeile in List.Object
26.06.2013 08:37:43
Luschi
Hallo nette Anette,
so sollte es auch bei Dir funktionieren: 

Sub test1()
MsgBox lastRow_oList("Tabelle1")
End Sub
Function lastRow_oList(xName As String)
Dim oList As ListObject, n As Long
Set oList = Me.ListObjects("Tabelle1")
n = oList.DataBodyRange.SpecialCells(xlCellTypeLastCell).Row
Set oList = Nothing
lastRow_oList = n
End Function
Gru0 von Luschi
aus klein-Paris

Anzeige
AW: Letzte gefüllte Zeile in List.Object
26.06.2013 08:50:26
Luschi
Hallo nette Anette,
um es variabler zu mac hen sollte man die Funktion in ein Modul stecken und dann sieht das so _ aus: 

Sub test1()
MsgBox lastRow_oList("Tabelle1", "Liste_01")
End Sub
Function lastRow_oList(xTabName As String, xListName As String)
lastRow_oList = ThisWorkbook.Worksheets(xTabName).ListObjects(xListName).DataBodyRange. _
SpecialCells(xlCellTypeLastCell).Row
End Function
wobei 'Tabelle1' der Tabellenname und 'Liste_01' der Name des ListObjektes ist.
Gruß von Luschi
aus klein-Paris

AW: Letzte gefüllte Zeile in List.Object
26.06.2013 09:02:23
hary
Moin Luschi
Zum Verstehen.
Hab ich auch probiert,aber er zeigt mir mit:
SpecialCells(xlCellTypeLastCell).Row
die nur die letzte Zeile an(5) wenn z.B. von 5 Zeilen nur die ersten 3 belegt sind.
Hab es so geloest: 
With Worksheets("Tabelle1").ListObjects("Tabelle1").DataBodyRange
MsgBox .Cells(.Rows.Count, 1).End(xlUp).Row
End With

Muss doch aber auch gehen die 1 zu ersetzten mit der Spaltenueberschrift.
So ganz steig ich noch nicht durch beim Tabellentool.
gruss hary

Anzeige
AW: Letzte gefüllte Zeile in List.Object
26.06.2013 09:47:41
Luschi
Hallo Harry,
Du hast Recht, wenn man das Listobjekt mit der Maus durch ziehen am Rahmen erweitert,
gibt meine Funktion nur die letzte beschreibene Zellzeile zurück, deshalb so: 

Sub test1()
MsgBox lastRow_oList("Tabelle2", "meineListe_2")
End Sub
Function lastRow_oList(xTabName As String, xListName As String) As Long
Dim oList As ListObject
Dim adr As String, n As Long
Set oList = ThisWorkbook.Worksheets(xTabName).ListObjects(xListName)
adr = Split(oList.Range.Address, ":", -1, vbTextCompare)(1)
Set oList = Nothing
lastRow_oList = ThisWorkbook.Worksheets(xTabName).Range(adr).Row
End Function
Gruß von Luschi
aus klein-Paris
PS: Auch Dein Versuch bringt unter den gegebenen Umständeen nicht das korrekte Ergebnis.

Anzeige
AW: Letzte gefüllte Zeile in List.Object
26.06.2013 09:52:05
Nette13
Vielen lieben Dank Euch allen. Ich habe es letztendlich so gelöst wie Luschi. Das erschien mir am leichtesten verständlich.
VBA kann das Leben so viel einfacher machen... Danke nochmals.
Gruß
Eure nette Annette

AW: Letzte gefüllte Zeile in List.Object
26.06.2013 10:07:30
Luschi
Hallo Harry,
hier noch eine Antwort auf Deine eigentliche Frage: 

Function firstCol_oList(xTabName As String, xListName As String) As Long
firstCol_oList = ThisWorkbook.Worksheets(xTabName).ListObjects(xListName).Range.Cells(1, 1). _
Column
End Function
Sub test3()
MsgBox firstCol_oList("Tabelle2", "meineListe_2")
End Sub
Gruß von Luschi
aus klein-Paris

Anzeige
AW: Ich meinte so
26.06.2013 10:41:48
hary
Moin Luschi
Das passt so doch nicht, ich brauche Zeile 5. Hier mit dem ersten Code.
Userbild
gruss hary

verdacht
26.06.2013 11:21:50
Tino
Hallo,
ich nehme an dies verhält sich wie mit dem UsedRange/Benutzter Bereich in einer normalen Tabelle.
Teste mal diese Variante
Sub Beispiel()
Dim oList As ListObject, rngLetzte As Range
Set oList = Tabelle1.ListObjects(1)
Set rngLetzte = FindLetzte(oList.Range)
MsgBox rngLetzte.Row
End Sub

Function FindLetzte(rngRange As Range) As Range
Dim LRow As Long, LCol As Long
Dim A As Long
 
 With rngRange
   On Error Resume Next
        'Finde Zeile 
        LRow = .Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False, False).Row
        LRow = Application.Max(LRow, .Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Row)
        If LRow = 0 Then LRow = 1
   
        'Finde Spalte 
        For A = .Columns(.Columns.Count).Column To .Columns(1).Column Step -1
              LCol = .Columns(A).Find("*", , xlValues, xlWhole, xlByRows, xlPrevious).Column
              LCol = Application.Max(LCol, .Columns(A).Find("*", , xlFormulas, xlWhole, xlByRows, xlPrevious).Column)
              If LCol > 1 Then: LCol = A: Exit For
        Next A
        If LCol = 0 Then LCol = 1
        Set FindLetzte = .Parent.Cells(LRow, LCol)
 End With
 
 
End Function
Gruß Tino

Anzeige
AW: verdacht
27.06.2013 08:27:19
hary
Moin Tino
Danke, klappt.
gruss hary

noch 1 Hinweis...
26.06.2013 09:03:40
Luschi
..., das funktioniert aber nur, wenn kein Blattschutz existiert oder der Blattschutzparameter UserInterfaceOnly:=True gesetzt wurde.
Gruß von Luschi
aus klein-Paris

91 Forumthreads zu ähnlichen Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
letzte Zeile ermitteln - nebenstehende Spalten mar
Erwin

Hallo Spezialisten,
ich habe eine Tabelle, in der immer in Spalte F unterschiedlich viele Zeilen gefüllt sind.
Spalte G + H sind leer und müssen durch Bearbeiter abgearbeitet werden.
Ich möchte nun Spalte G + H mit einer Farbe (.ColorIndex = 36) "verschönern", damit die User genau w...
02.03.2009 10:03:42
Thread-ID: 1055434
7 Beiträge
letzte freie Zeile ermitteln
Kai

Hi,
wie kann ich denn die erste freie Zeile in meinem Sheet ermitteln ? Seither habe ich das so gemacht, dass ich nur B geprüft habe:
lngRow = Cells(Rows.Count, "B").End(xlUp).Row
das geht aber nicht mehr, da es vorkommen kann das eine andere Spalte weiter runter befüllt ist.
wi...
25.03.2009 11:36:06
Thread-ID: 1063680
7 Beiträge
Anzeige
letzte Zelle in Zeile via vba
Stef@n

Hallo
steh gerad auf dem Schlauch ;O
ich suche via vba die letzte gefüllte Zelle in der Zeile 1
letzte Zeile :
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row ' funktioniert
letzte Zelle in Zeile 1
For Spalte = 2 To 15 'hier möchte ich die letzte Spalte find...
20.11.2009 11:44:16
Thread-ID: 1118854
3 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
VBA: Letzte benutzte Zeile aus anderem Blatt..
WalterK

Hallo,
der folgende Codeteil läuft zwar durch, bringt mir aber bei LzBe eine 0 (Null).
Wer kann mir sagen, was ich falsch gemacht habe?
Dim LzBe As Long With Sheets("Berechnungstabelle") Application.ScreenUpdating = False .Unprotect MsgBox LzBe LzBe = Sheets("FeststellungenUeber...
29.05.2011 15:33:21
Thread-ID: 1216578
3 Beiträge
Per VBA Formel in letzte Zeile (+1) eintragen
Marten

Hallo liebe Herber-Welt,
ich konnte schon oft Lösungen in diesem Forum finden, nun muss ich aber einen eigenen Beitrag schreiben, da ich nicht weiß wie und wo ich danach gucken sollte... :)
Da ich an meinem Arbeits-PC nicht über Admin-Rechte verfüge, kann ich leider kein Jeanie benutzen...
18.07.2011 11:35:48
Thread-ID: 1222568
5 Beiträge
im VBA Code Fehlerzeile ermitteln
ChrisW

Hallo Leute,
wie kann ich ermitteln, in welcher Zeile des VBA Codes ich mich befand, als es zu einem Fehler kam?
Ich suche eine Möglichkeit herauszufinden, in welcher VBA Zeile ein "Error" aufgetreten ist, bevor das Makro auf die Fehlerbehandlungszeile gesprungen ist.
Gibt es diese...
21.09.2011 10:37:37
Thread-ID: 1230871
2 Beiträge
Anzeige

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
4
6
6
17
2
7
2
4
1
5
2
2
4
8
3
12
9
9
4
3
4
4
2
5