Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte Zeile in Range

Forumthread: letzte Zeile in Range

letzte Zeile in Range
29.10.2004 15:20:30
Toni
Hallo VBA'ler,
wie ermittle ich die letzte beschriebene Zeile in einem Bereich(z.B.G10:GG20)?
UsedRange.SpecialCells(xlCellTypeLastCell).Row funktioniert wohl nur mit ganzen Sheets und
...End(xlup).row bezieht sich wohl nur auf eine bestimmte Spalte.
Gibt es wohl ein Zwischending?
Gruss Toni
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: letzte Zeile in Range
Udo
UsedRange.Row liefert die erste Zeile der Rest ist Kopfrechnen.
Udo
AW: letzte Zeile in Range
29.10.2004 15:48:06
Toni
Hallo Udo,
diese Antwort,wenn ich Sie denn richtig verstanden habe, hilft mir nicht weiter.
Ich möchte die Zeile doch nicht im Kopf ermittlen, sonder per Programm...
Gruss Thomas
AW: letzte Zeile in Range
Udo
Na ja, einmal dumm gestellt hilft mitunter fürs ganze Leben, dann lass halt VBA rechnen.
Udo
Anzeige
AW: letzte Zeile in Range
29.10.2004 16:22:36
Toni
Hallo Udo,
deine Lebensweisheiten helfen mir erst recht nicht weiter.
Ich schreibe gerade ein VBA-Programm und habe ein konkretes Problem:
Vielleicht habe ich mich auch nicht konkret genug ausgedrückt.
Im Bereich "A1:BD600" von Tabelle1 sind Zellen gefüllt und zwar völlig variabel (z.B. Zelle B120,X200,AA500 etc.), dies ändert sich je nach Programmablauf.
Nun möchte ich für den Bereich B255:BD455 ermitteln, welche die letzte gefüllt Zeile ist.
Wie wäre es mal mit Beispielcode?
Gruss Toni
Anzeige
AW: letzte Zeile in Range
29.10.2004 16:37:42
Nepumuk
Hi,
du schreibst: Nun möchte ich für den Bereich B255:BD455 ermitteln, welche die letzte gefüllt Zeile ist.
Gleichzeitig aber: z.B. Zelle B120,X200,AA500 etc
Wenn du nur oberhalb der 455. Zeile suchst, wird aber AA500 nicht gefunden.
Hier mal ein Beispielcode, der ab der 65.536. Zeile aufwärts sucht.


Public Sub lezte_Zeile()
    Dim intColumn As Integer, lngLastRow As Long
    For intColumn = 2 To 56
        If Cells(Rows.Count, intColumn).End(xlUp).Row > lngLastRow Then lngLastRow = Cells(Rows.Count, intColumn).End(xlUp).Row
    Next
    MsgBox lngLastRow
End Sub


Gruß
Nepumuk
Und das mit VBA gut eieieieieiei
Anzeige
Fehler in eieiei
Jens_Pu
Hallo Nepumuk,
da hab ich doch glatt einen FEHLER in deinem Makro gefunden.
Public Sub lezte_Zeile() muß heissen
Public Sub letzte_Zeile() ;-))
Gruß Jens
(der den z.Z. der Schnupfen plagt)
AW: Fehler in eieiei
29.10.2004 18:09:58
Nepumuk
Hi Jens,
kein Wunder, dass das Makro nicht richtig funktioniert. Gut das ich dich habe.
Userbild
Gute Besseung wünscht
Max
Anzeige
AW: letzte Zeile in Range
Udo
Eine Möglichkeit:

Sub Letzte()
Dim z As Long
For z = 455 To 255 Step -1
If Application.CountA(Range(Cells(z, 2), Cells(z, 56))) > 0 Then Exit For
Next
MsgBox z
End Sub

Udo
AW: letzte Zeile in Range
Toni
Hallo Udo,
das ist es, vielen Dank.
Gruss Toni
;

Forumthreads zu verwandten Themen

Letzte Zeile
Walter

Hallo Excelfreunde,
Meine Kenntnisse in VBA sind gleich Null. Versuche es gerade zu lernen.
Was muß eingegeben werden damit nur bis zur letzen Zeile gedruckt wird?
Habe diesen Druckbereich. Es können 5 bis 90 Zeilen sein.
Sub BereichDrucken() Range("AE1:AP103").PrintOut Copies...
16.08.2008 09:41:32
Thread-ID: 1002319
7 Beiträge
Textfile letzte Zeile
Petra

Guten Morgen allerseits
mein Beitrag von gestern ist noch offen
https://www.herber.de/forum/messages/1003499.html
ich möchte meine Frage jetzt mal anders formulieren. Ich speichere ein Excelsheet als Textdatei ab. Wie ich auch aus mehreren Beiträgen entnehmen konnte, fügt Excel bei...
22.08.2008 10:08:12
Thread-ID: 1003757
9 Beiträge
Letzte Zeile in neues Blatt kopieren
Matthias

Hallo zusammen,
ich habe zwar in der Suche einiges über die LETZTE ZEILE gefunden, aber mein Problem konnte ich dennoch nicht richtig lösen.
Hier, was ich habe:
- In einer Excel-Datei mehrere Tabellen, die Anzahl kann sich ändern (z.B. Tabelle1, Tabelle2, Tabelle3...Tabelle 30)
...
11.09.2008 07:20:00
Thread-ID: 1008963
7 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
Letzte Zeile kopieren
J.

Hallo zusammen!
Ich benötige ein Script, dass der Buttom die letzte beschriebene Zeile in einem Arbeitsblatt in die freie Zeile darunter kopiert. Wie geht sowas?
VG
J.H.
13.11.2008 10:14:00
Thread-ID: 1024082
4 Beiträge
letzte Zeile in Liste löschen
Uwe

Hallo an Alle,
in Tabelle3 hab ich einen Button, der mir in Tabelle1 in einer Liste den letzten Eintrag löschen soll.
Also die ganze Zeile ohne die Formatierungen zu verlieren.
Die Liste fängt in Tabelle1 ab Spalte B an.
Bei der Recherche hab ich da leider nix passendes gefunden...
23.11.2008 19:04:01
Thread-ID: 1027128
4 Beiträge
Anzeige
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Letzte Zeile bestimmen
Holger

Hallo zusammen,
wie kann ich ohne VBA die letzte Zeile in einer Formel bestimmen. Den Wert dieser Zelle möchte ich dann weiter verwenden.
Gruss
Holger
04.02.2009 13:12:38
Thread-ID: 1047018
8 Beiträge
Anzeige
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049731
10 Beiträge
letzte Zeile mit Daten
Claudia

Hallo Forum,
wie kann ich per VBA den Wert der letzten Zeile einer bestimmten Spalte (z.B. Spalte B) ausgeben lassen, bei dem in der Spalte links davon das aktuelle Datum drin steht? Kennt wer den Befehl dazu?
11.02.2009 18:37:00
Thread-ID: 1049732
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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