Herbers Excel-Forum - das Archiv
Zeile bestimmen, in der noch Werte stehen
Betrifft: Zeile bestimmen, in der noch Werte stehen
von: Markus
Geschrieben am: 01.12.2003 14:22:43
Hallo,
ich möchte aus einem Tabellenblatt den Zahlenwert der Zeile haben,
in der noch Werte stehen, d.h. in Zeile+1 steht dann nichts mehr.
Wer weiß hier Rat ?
Danke im voraus.
Gruß
Markus
Betrifft: AW: Zeile bestimmen, in der noch Werte stehen
von: GerdW
Geschrieben am: 01.12.2003 14:25:25
Ist die Spalte bekannt?
Gerd
Betrifft: AW: Zeile bestimmen, in der noch Werte stehen
von: Markus
Geschrieben am: 01.12.2003 14:30:47
Hallo Gerd,
die Spalten, in denen Werte stehen gehen von A bis H.
Alle diese Spalten sind auch bis zur gleichen Zeile mit
Werten gefüllt (es variiert hier die Zeilenanzahl zwischen
1 und 384).
Gruß
Markus
Betrifft: AW: Zeile bestimmen, in der noch Werte stehen
von: K.Rola
Geschrieben am: 01.12.2003 15:03:50
Hallo,
Option Explicit
Sub letzteZeile()
Dim S As Integer, lS As Integer, Z As Long, lZ As Long
lZ = 65536: If [a65536] = "" Then lZ = [a65536].End(xlUp).Row
For S = 2 To 8
If Cells(65536, S) <> "" Then
lZ = 65536
lS = 1
Exit For
Else
If Cells(65536, S).End(xlUp).Row > lZ Then
lZ = Cells(65536, S).End(xlUp).Row
lS = S
End If
End If
Next
MsgBox "letzte Zeile ist Zeile " & lZ & " in Spalte " & lS
End Sub
Gruß K.Rola
Betrifft: AW: Zeile bestimmen, in der noch Werte stehen
von: Markus
Geschrieben am: 01.12.2003 19:34:19
Hallo K.Rola,
vielen Dank.
Das war's was ich gebraucht habe.
Gruß
Markus