Zeile des letzten Wert ausgeben

[bender.ac]

Hallo zusammen,

gegeben sei die folgende Tabelle:

	A	B
1	T001	1.1.2015
2	T002	2.1.2015
3	T001	5.1.2015
4	T003	5.1.2015

Ich möchte eine Funktion welche mit die Zeilennummer des letzten vorkommens von zB T001 ausgibt. In diesem Beispiel also 3.
Folgende Vereinfachungen können getroffen werden: Die Spalte in der das Datum steht ist monoton wachsend (d.h. der Wert in einer Zelle ist niemals kleiner als der Wert eine Zeile weiter oben).

Das Ergebnis soll dann so aussehen:

T001	3
T002	4
T003	2

Ich habe schon mal "Verweis " mit Verweis rumprobiert aber bin auf keinen grünen Zweig gekommen... Kann mir bitte jemand helfen?

Danke schön!

Achim

[Officer]

Hallo,
mit dem folgenden Makro sollte es klappen:

Code: Visual Basic

1. Sub Letzte_Zeile_auslesen()
2.  
3. Dim a, b
4.  
5. Set wsakt = ThisWorkbook.Sheets("Tabelle1")
6.  
7. '** Durchlaufen der Spalte E ab Zeile 6
8. For a = 1 To wsakt.Cells(Rows.Count, 5).End(xlUp).Row
9.  
10.   '** Durchlaufen der Spalte A ab Zeile 1
11.  For b = wsakt.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
12.    
13.     '** Prüfen auf Treffer
14.    If wsakt.Cells(a, 5).Value = wsakt.Cells(b, 1).Value Then
15.       '** Eintragen der Zeilennummer
16.      wsakt.Cells(a, 6).Value = b
17.       Exit For
18.     End If
19.   Next b
20.  
21. Next a
22. End Sub
23.  
24.  

Die Ergebnisse werden in der Spalte F neben die Suchbegriffe (E6:E8) eingetragen.

In der beigefügten Datei findest du den Code ebenfalls noch einmal zum testen.

Gruß Alois

[Frank Furter]

Hallo zusammen,

gegeben sei die folgende Tabelle:

	A	B
1	T001	1.1.2015
2	T002	2.1.2015
3	T001	5.1.2015
4	T003	5.1.2015

Ich möchte eine Funktion welche mit die Zeilennummer des letzten vorkommens von zB T001 ausgibt. In diesem Beispiel also 3.
Folgende Vereinfachungen können getroffen werden: Die Spalte in der das Datum steht ist monoton wachsend (d.h. der Wert in einer Zelle ist niemals kleiner als der Wert eine Zeile weiter oben).

Das Ergebnis soll dann so aussehen:

T001	3
T002	4
T003	2

Ich habe schon mal "Verweis " mit Verweis rumprobiert aber bin auf keinen grünen Zweig gekommen... Kann mir bitte jemand helfen?

Danke schön!

Achim

hi Achim, bei deiner musterlösung hast du dich doch vertan, oder..? ich würde deine idee mit dem VERWEIS() aufgreifen..:

=VERWEIS(2;1/($A$1:$A$1000=D1);ZEILE($A$1:$A$1000))

wobei in D1, D2 usw. die T001 usw. stehen...