Zeile bestimmen, in der noch Werte stehen

• Zeile bestimmen, in der noch Werte stehen von Markus vom 01.12.2003 14:22:43
  • AW: Zeile bestimmen, in der noch Werte stehen - von GerdW am 01.12.2003 14:25:25
    • AW: Zeile bestimmen, in der noch Werte stehen - von Markus am 01.12.2003 14:30:47
      • AW: Zeile bestimmen, in der noch Werte stehen - von K.Rola am 01.12.2003 15:03:50
        • AW: Zeile bestimmen, in der noch Werte stehen - von Markus am 01.12.2003 19:34:19

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

Excel-Beispiele zum Thema " Zeile bestimmen, in der noch Werte stehen"
Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen	Eine Serie von bestehenden Arbeitsblättern auswechseln
Spaltenbreite gemäß den in den Zellen stehenden Zahlen festlegen	Bestehender Formel eine 5er-Rundung hinzufügen