Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen markieren (ohne Formeleinträge)

Zeilen markieren (ohne Formeleinträge)
07.09.2008 18:35:00
Selma
Hallo Leute,
ich habe versucht ab Zeile 2 bis letzte gefüllte Zelle der Spalte B (leere Formelergebnisse sollen nicht berücksichtigt werden) die Zeilen zu markieren, leider ohne Erfolg.
Rows("2:" & Range("B65536").End(xlUp).Row).Select
Was muss ich ändern?
Vielen Dank im Voraus !
Liebe Grüße,
Selma

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen markieren (ohne Formeleinträge)
07.09.2008 18:47:35
Uduuh
Hallo,
die letzte Zelle "" musst du in einer Schleife suchen.

Sub ttt()
Dim lngI As Long
lngI = Cells(Rows.Count, 2).End(xlUp).Row
Do While Cells(lngI, 2) = ""
lngI = lngI - 1
Loop
Range(Cells(2, 2), Cells(lngI, 2)).EntireRow.Select
End Sub


Gruß aus’m Pott
Udo

AW: Zeilen markieren (ohne Formeleinträge)
07.09.2008 19:06:08
Erich
Hallo Selma,
wenn du das öfter brauchst, lohnt sich eine kleine Funktion dafür
(LZWeSp steht kurz für "Letzte Zeile mit Wert größer "" in Spalte..."):

Option Explicit
Sub test()
Dim lngL As Long
lngL = LZWeSp(2)
If lngL > 0 Then Range(Cells(2, 2), Cells(lngL, 2)).Select
End Sub
Function LZWeSp(sp As Long) As Long
Dim rngF As Range
Set rngF = Columns(sp).Find("*", Cells(1, sp), xlValues, , , xlPrevious)
If rngF Is Nothing Then
LZWeSp = 0
Else
LZWeSp = rngF.Row
End If
End Function

@Udo: Ein Schleifchen wird hier doch nicht wirklich gebraucht...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Zeilen markieren (ohne Formeleinträge)
07.09.2008 20:29:38
Uduuh
Hallo Erich,
hast Recht.
Allerdings wollte Selma Zeilen markieren.

Sub test()
Dim lngL As Long
lngL = LZWeSp(2)
If lngL > 0 Then Range(Cells(2, 2), Cells(lngL, 2)).EntireRow.Select
End Sub


Gruß aus’m Pott
Udo

AW: Zeilen markieren (ohne Formeleinträge)
07.09.2008 22:18:55
Selma
Vielen Dank Udo!
Vielen Dank Erich!
LG,
Selma

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige