Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem Cells(Rows.Count)

Problem Cells(Rows.Count)
23.02.2007 20:28:00
Dieter
Hallo liebes Forum...
bin auf ein Problem gestossen, und habe bis lang keine sinvolle Lösung gefunden. Darum hier das Problem:
Ich nutze häufig den Befehl "cells(rows.count, x).end(xlup).row", um die letzte Zeile in Spalte x zu finden.
Das klappt aber nur, wenn die Zeile auch sichtbar ist... also nicht ausgeblendet. Das macht ja sogar noch einen gewissen Sinn, da dieser Befehl ja eigentlich ein Tastaurbefehl ist.
Wie bitte finde ich die letzte Zeile in einer definierten Spalte.
Entweder ist es echt kompliziert, oder aber so einfach, dass es mir dann jetzt schon leid tut, dass ich die Frage gestellt habe.
Freundlichst Dieter W.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem Cells(Rows.Count)
23.02.2007 20:51:55
Erich
Hallo Dieter,
sorry, das war NICHT die Lösung. (Ich hatte nicht getestet...)
Eine (wenn auch nicht so schnelle) Möglichkeit: 

Sub Letzte_Zeile()
MsgBox LetzteZeile(2)
End Sub
Function LetzteZeile(intSp As Integer)
Dim zz As Long
For zz = Rows.Count To 1 Step -1
If Not IsEmpty(Cells(zz, intSp)) Then Exit For
Next
LetzteZeile = zz
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Problem Cells(Rows.Count)
23.02.2007 21:02:00
Dieter
Hallo Erich,
danke erst einmal für die Ansätze... wenn es auch nicht das ist, was ich suche. Ich bin angewiesen auf Schnelligkeit und suche eine Möglichkeit, ohne For-Schleifen und Zähler bedienen zu müssen.
Nicht böse gemeint... Gibt es noch andere Vorschläge?
Sonst muss ich das mit dem Ausblenden ändern...
In diesem Sinne mache ich jetzt Feierabend und knall mich vor die Kiste...
Dieter W.
AW: Problem Cells(Rows.Count)
23.02.2007 23:53:55
Daniel
Hallo
mir fallen da zwei Möglichkeiten ein:
Entweder alles einblenden
am einfachsten mit diesem 2-Zeiler
Sub test()
With ActiveSheet
If .FilterMode = True Then .ShowAllData
.Rows.Hidden = False
End With
End Sub

oder, falls die Zellen ausgeblendet bleiben sollen, doch über ne FOR-Schleife
falls du die letze Zeile öfters benötigst, würde ich dafür eine eigende Funktion definieren, dann brauchst du es nur einmal schreiben und verwendest im eigentlichen Makro nur noch den Funktionsaufruf.
Das könnte dann so aussehen´: 
Public Function LetzteZeile(SpNr As Integer, Optional SH As Worksheet) As Long
Dim i As Long
Dim arr
If SH Is Nothing Then Set SH = ActiveSheet
With SH.UsedRange
arr = Range(SH.Cells(1, SpNr), SH.Cells(.Row + .Rows.Count - 1, SpNr)).Value
End With
For i = UBound(arr, 1) To 2 Step -1
If arr(i, 1) <> "" Then Exit For
Next
LetzteZeile = i
End Function

dieser Code sollte recht fix sein, da er anstelle eines langsamen Range-Objekte die wesentlich schnelleren Array-Variable verwendet. Ausserdem wird der zu durchsuchende Bereich auf das notwendige Minimum reduziert.
Zussätzlich kannst du diese Funktion auch im normalen Excel verwenden, nicht nur innerhalb eines Makros. (allerdings dann nur im aktiven Sheet)
Gruß, Daniel
Anzeige
AW: Problem Cells(Rows.Count)
24.02.2007 12:29:10
Dieter
Hallo Daniel...
die Function Letzte Zeile ist super. Das hat die nötige Geschwindigkeit, und berücksichtigt auch ausgeblendete Zellen. Echt Super... Außerdem noch gelernt, dass man einen Range auch einfach in ein Array kippen kann. Wusste ich bislang nur umgekehrt.
Super! Der Tag ist gerettet. Danke!
MfG Dieter W.

113 Forumthreads zu ähnlichen Themen

Cells(Rows.Count, "A").End(xlUp).Row für Spalten
Moritz

Hallo,
es gibt folgenden Code:
Cells(Rows.Count, "A").End(xlUp).Row
Den man z.B. in einer For-Schleife verwenden kann, dass die Forschleife bis zum Ende des Dokuments läuft (Zeilen).
Wie muss ich den Code umschreiben, dass er nicht die Zeilen von unten nach oben zählt, sondern d...
11.09.2009 13:12:45
Thread-ID: 1102004
3 Beiträge
Anzeige
Gegenteil "Cells(Rows.Count, 1).End(xlUp).Row" ?
kle

Hallo,
Dieser Code findet die letzte Zeile:
Worksheets("Seriendruck").Cells(Rows.Count, 1).End(xlUp).Row
Aber wie muss es heißen für die letzte beschrieben Spalte einer Zeile x ?
erhalte nicht das richtige Ergebnis ;o(
Letzer Versuch war: (Zeile 14)
n = Worksheets("Daten...
21.02.2011 15:06:16
Thread-ID: 1202113
2 Beiträge
.Cells(Rows.Count, "B").End(xlUp).Row
SaSchu

Hallo zusammen,
ohne Eure Hilfe komme ich nicht weiter.
Ich habe eine Tabelle aus der Daten in eine andere Datei kopiert werden sollen. Dazu gibt es ein Makro das das Öffnen einer zusätzlichen (Ziel-)Datei bewirkt. Dann wird in dieser Datei eine bestimmte Zeile gesucht und dann 1000 Zei...
15.08.2011 11:54:01
Thread-ID: 1226101
9 Beiträge
Anzeige
.Cells(Rows.Count, 1).End(xlUp).Row
Erik Kaubitzsch
Liebe Gemeinde,
ich benutze folgenden Code (innerhalb einer With-Anweisung), um die letzte beschriebene Zelle einer Spalte zu ermitteln: .Cells(Rows.Count, 1).End(xlUp).Row
Funktioniert auch wunderbar, nur leider habe ich festgestellt, dass die Zeile den Rückgabewert 1 hat, wenn die erste...
08.07.2014 08:35:07
Thread-ID: 1369223
2 Beiträge
Vba count.row bei leer zeilen
Carmen

Hallo zusammen,
hänge mal wieder bei vba. und zwar hab ich eine export tabelle (Tabelle1)die zwischen den relevanten Zeile leere zeilen und spalten hat. nun möchte ich diese tabelle in ein neues blatt kopieren, weiß aber nicht wie ich die größe ermitteln kann trotz der leerzeilen und spalte...
23.05.2009 15:46:16
Thread-ID: 1076869
16 Beiträge
Cells(Rows.Count, "A").End(xlUp).Row für Spalten
Moritz

Hallo,
es gibt folgenden Code:
Cells(Rows.Count, "A").End(xlUp).Row
Den man z.B. in einer For-Schleife verwenden kann, dass die Forschleife bis zum Ende des Dokuments läuft (Zeilen).
Wie muss ich den Code umschreiben, dass er nicht die Zeilen von unten nach oben zählt, sondern d...
11.09.2009 13:12:45
Thread-ID: 1102004
3 Beiträge
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge
Gegenteil "Cells(Rows.Count, 1).End(xlUp).Row" ?
kle

Hallo,
Dieser Code findet die letzte Zeile:
Worksheets("Seriendruck").Cells(Rows.Count, 1).End(xlUp).Row
Aber wie muss es heißen für die letzte beschrieben Spalte einer Zeile x ?
erhalte nicht das richtige Ergebnis ;o(
Letzer Versuch war: (Zeile 14)
n = Worksheets("Daten...
21.02.2011 15:06:16
Thread-ID: 1202113
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
2
1
8
8
1
15
2
2
1
8
8
1
2
3
9
15
2
2
1
8
8
1
2
1