Herbers Excel-Forum - das Archiv

Zeile bestimmen, in der noch Werte stehen

Bild

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

Bild

Betrifft: AW: Zeile bestimmen, in der noch Werte stehen
von: GerdW
Geschrieben am: 01.12.2003 14:25:25
Ist die Spalte bekannt?

Gerd
Bild

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
Bild

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
Bild

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
Bild
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