Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
316to320
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vorletzte Reihe in gefilterter Tabelle

vorletzte Reihe in gefilterter Tabelle
05.10.2003 16:41:58
RainerL
Hallo Forum,
komme selbst nicht weiter. Um in einer Tabelle die letzte Reihe zu finden, benutze ich:

r = ActiveCell.SpecialCells(xlLastCell).Row

msgbox Cells(r,1) zeigt mir den Inhalt der Zelle in Saplt A in der letzten Reihe an.
msgbox Cells(r-1,1) zeigt mir den Inhalt der vorletzten Zelle an.

Wie kann ich den Inhalt einer Zelle der vorletzten Reihe in einer gefilterten Tabelle auslesen?

Danke für Tips, Hiweise, Hilfe

Rainer

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

Betreff
Datum
Anwender
Anzeige
AW: vorletzte Reihe in gefilterter Tabelle
05.10.2003 17:36:55
RainerW
Hallo Namensvetter :-)

so geht es bei mir Excel 9.0:


Sub test()
Dim r
r = ActiveCell.SpecialCells(xlLastCell).Row - 1
MsgBox Range("A" & r) ' Wenn Spalte A sonst anderen Buchstaben
End Sub


Gruß Rainer
AW: vorletzte Reihe in gefilterter Tabelle
05.10.2003 17:52:29
Holger Levetzow
das wird so nicht klappen! In r ist dann die zeile davor, nicht die Zeile des gefilterten Wertes davor (die wird wohl gesucht). Außerdem gibt die message den Wert der Zelle zurück.
Versuche mal:
1. Beispiel: nur die Zeilenummer des nächsten Wertes

Sub test()
r = ActiveCell.SpecialCells(xlLastCell).Row
'Adresse und Wert merken
adresse = Cells(r, ActiveCell.Column).Address
wert = Range(adresse).Value
'Inhalt löschen
Range(adresse).ClearContents
'neue letzte Zelle finden
r = ActiveCell.End(xlUp).Row
'Zelle wieder beschreiben
Range(adresse) = wert
End Sub

2. Beispiel: die Zeilennummern aller Werte (letzter wird z.B. 1 sein, wenn Spaltenüberschrift in Zeile 1 steht)

Sub alle()
Range("A65536").Select
Cells(ActiveCell.End(xlUp).Row, ActiveCell.Column).Select
r = ActiveCell.Row '1. Zelle mit Wert
While r > 1
'Adresse und Wert merken
adresse = ActiveCell.Address
wert = ActiveCell.Value
'Inhalt löschen
ActiveCell.ClearContents
'neue letzte Zelle finden
Cells(ActiveCell.End(xlUp).Row, ActiveCell.Column).Select
'Zelle wieder beschreiben
Range(adresse) = wert
r = ActiveCell.Row 'nächste Zelle mit Wert
Wend
End Sub

mfg Holger
Anzeige
Vorletzte Reihe in gefilterter Tabelle - Formel
05.10.2003 22:32:16
Boris
Hi Rainer,

ich biete dir noch ne Formelvariante - bezogen auf Spalte A:

{=KGRÖSSTE(WENN(TEILERGEBNIS(3;INDIREKT("A"&ZEILE(1:100)));ZEILE(1:100));2)}

Array-Formel - die {geschweiften Klammern} nicht mit eingeben, sondern Formeleingabe mit Strg-Shift-Enter abschließen. Das erzeugt sie.

Mit (auch Array-Formel)

{=INDEX(A:A;KGRÖSSTE(WENN(TEILERGEBNIS(3;INDIREKT("A"&ZEILE(1:100)));ZEILE(1:100));2))}

erhälst du den zugehörigen Eintrag.

Grüße Boris
Danke!
06.10.2003 04:09:33
RainerL
Danke für die Hilfe

Die Lösung von Holger Levetow funktioniert gut.
Die Lösung von Boris habe ich nicht probiert.

Rainer
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzahl der Zeilen steuern
Alex

Guten Morgen Liebe Excel Anwender,
auch zu diesem Problem gibt es sicher schon Beiträge im Forum, konnte sie leider nicht Finden. Und zwar möchte ich die Anzahl der Zeilen steuern die mit Formeln gefüllt werden.
Z.B
Anzahl der Zeilen 3
A1
A2
A3
...
02.10.2008 07:20:00
Thread-ID: 1013790
2 Beiträge
Anzeige
Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Anzeige
Anzahl Zellen mit gleichen Inhalt / welcher Wert?
StefanS

Hallo zusammen,
...und schon wieder ich - konnte im Archiv nichts finden!
Für Euch bestimmt suuuper einfach, für mich die Hölle.
Ich möchte gerne überprüfen, ob in der Spalte B:B Zellen mit gleichen Inhalt doppel oder mehrfach vorhanden sind und wenn ja, welchen Wert diese Zellen ha...
14.05.2009 14:06:36
Thread-ID: 1075153
5 Beiträge
Zahlenreihe nach bestimmten Regeln filtern
Reinhard

Hallo Wissende,
in einem Rätsel-Forum wo ich häufig bin stiess ich auf dieses:
"Ihr habt alle natürlichen Zahlen von 1 bis 50 (inklusive) zur Verfügung.
Bildet nun aus diesen Zahlen eine möglichst lange Zahlenreihe.
Wobei folgendes gilt:
Jede Zahl muß entweder die Summe oder...
03.04.2010 19:28:50
Thread-ID: 1150009
3 Beiträge
ZÄHLENWENN mit aktivem Filter
Guido

Hallo Leute,
vielleicht kann mir jemand bei folgendem Problem helfen:
Ich möchte die Anzahl von Daten zählen, die einem bestimmten Kriterium entsprechen (z.B. größer 100) und in einer Spalte stehen, die bereits einen Filter gesetzt hat, um bestimmte Werte auszublenden.
Dafür verwen...
07.09.2010 22:43:44
Thread-ID: 1176247
2 Beiträge
Zeilen nach Einträgen filtern
Joni

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich habe eine Liste mit Datensätzen und möchte diese über die Eingabe von Werten "in Echtzeit" filtern. Dies funktioniert mit dem Spezialfilter und folgendem Makro.
Private Sub Worksheet_Change(ByVal Target As Ra...
24.09.2010 18:31:04
Thread-ID: 1179243
3 Beiträge
Zeilen mehrfach nach Einträgen filtern
Joni

Hallo,
ich möchte aus einer Liste Daten heraus filtern. Dabei hilft mir das Makro von Klaus aus meiner vorigen Frage
https://www.herber.de/forum/messages/1179259.html
Zusätzlich möchte ich die gefundenen Zeilen mit meinem ursprünglichen Makro noch filtern. Dann könnte ich zuerst all...
26.09.2010 14:52:36
Thread-ID: 1179331
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
5
6
4
6
4
2
1
2
1
3
1
2
7
1
8
3
2
6
4
5
3
1
6
1