Anzeige
Archiv - Navigation
996to1000
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
Inhaltsverzeichnis

letzte Zeile in Spalte mit bestimmten wert

letzte Zeile in Spalte mit bestimmten wert
07.08.2008 10:12:34
Jakob
Hallo,
wie kann ich per VBA die letzte Zeile in der Spalte P ermitteln die den Wert "x" enthält?
Vielen Dank schon mal.
Gruß,
Jakob

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte Zeile in Spalte mit bestimmten wert
07.08.2008 10:20:00
serge
Hallo Jakob
versuch es so:

Sub suchen()
Range("P65536").Select
Selection.End(xlUp).Select
Do Until ActiveCell = "x"
ActiveCell.Offset(-1, 0).Range("A1").Select
Loop
End Sub


Gruss Serge

AW: letzte Zeile in Spalte mit bestimmten wert
07.08.2008 10:20:46
Ramses
Hallo
Entweder eine Schleife mit der Find-Methode oder ganz rudimentär

Sub FindP()
Dim lRow As Long
For i = 1 To Cells(Rows.Count, 16).End(xlUp).Row
If Cells(i, 16) = "x" Then
lRow = i
End If
Next i
MsgBox "Letzes X in Zeile: " & lRow
End Sub


Gruss Rainer

Anzeige
AW: letzte Zeile in Spalte mit bestimmten wert
07.08.2008 10:20:00
Rudi
Hallo,
bspw. so:

Sub tt()
Dim iMax As Long, i As Long
For i = Cells(Rows.Count, 16).End(xlUp).Row To 1 Step -1
If Cells(i, 16) = "x" Then
iMax = i
Exit For
End If
Next
MsgBox iMax
End Sub


Gruß
Rudi

AW: letzte Zeile in Spalte mit bestimmten wert
07.08.2008 11:19:00
Jakob
Vielen Dank an alle für die schnelle Hilfe.
Es funktioniert wunderbar.
Grüße,
Jakob

So z. B.
07.08.2008 10:26:01
backowe
Hallo Jakob,
VBA-Code:
Sub LetzesXinSpalteP()
MsgBox Evaluate("=LOOKUP(2,1/(P1:P65535=""X""),ROW(P:P))")
End Sub
Gruss Jürgen
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige