Live-Forum - Die aktuellen Beiträge
Datum
Titel
03.12.2023 20:16:30
Listbox mit Eingabe füllen
03.12.2023 18:04:26
Dateien in Ordner umbenennen
03.12.2023 18:01:10
Zahlenreihenrätsel- nächste Zeile über Formel ermitteln
Du konntest keine passende Antwort finden?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum
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
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
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
Nur gefilterte Daten in die Listbox
Larissa


Hallo,
ich möchte nur gefilterte Daten in der Listbox anzeigen lassen und kriege das nicht hin.
Ich füge mal meinen Code ein:
Private Sub UserForm_Activate() Dim lLetzte As Long Dim lZeile As Long Dim lLibox As Long Application.ScreenUpdating = False With Me.ListBox1 .Co...
17.01.2009 20:14:35
Thread-ID: 1040981
7 Beiträge
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige