Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Letzte Zeile finden
14.12.2007 20:57:35
Harald
Hallo im Excelforum,
ich möchte mit vba die letzte Zeile finden was ich seither mit diesem code gemacht habe
z = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
wie mache ich das wenn die letzten Zeilen ausgeblendet sind
mfg
Harald K

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile - ausgeblendete Zeilen
14.12.2007 21:14:00
Erich
Hallo Harald,
vielleicht hilft dir das - aus dem Archiv
https://www.herber.de/forum/archiv/848to852/t849006.htm#849022

' AW: Problem Cells(Rows.Count) - Daniel Eisert 23.02.2007 23:53:55
Public Function LetzteZeile(intC As Integer, Optional ws As Worksheet) As Long
Dim ii As Long, arr ' as Variant
If ws Is Nothing Then Set ws = ActiveSheet
With ws.UsedRange
arr = Range(ws.Cells(1, intC), ws.Cells(.Row + .Rows.Count - 1, intC)).Value
End With
For ii = UBound(arr, 1) To 2 Step -1
If arr(ii, 1)  "" Then Exit For
Next
LetzteZeile = ii
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Letzte Zeile finden
14.12.2007 21:21:00
Peter
Hallo Harald,
z = Range("A1").CurrentRegion.Rows.Count + 1
Gruß Peter

AW: Letzte Zeile finden
14.12.2007 21:26:00
Harald
Hallo im Forum,
Vielen Dank für eure schnellen Antworten mit euren Vorschlägen ist mein Problem restlos gelöst.
Vielen Dank
Harald K

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige