Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: bender.ac am Februar 23, 2015, 10:40:47 Vormittag

Titel: Zeile des letzten Wert ausgeben
Beitrag von: bender.ac am Februar 23, 2015, 10:40:47 Vormittag
Hallo zusammen,

gegeben sei die folgende Tabelle:

AB
1T0011.1.2015
2T0022.1.2015
3T0015.1.2015
4T0035.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:
T0013
T0024
T0032

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
Titel: Antw: Zeile des letzten Wert ausgeben
Beitrag von: Officer am Februar 23, 2015, 11:06:51 Vormittag
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
Titel: Antw: Zeile des letzten Wert ausgeben
Beitrag von: Frank Furter am Februar 23, 2015, 15:16:30 Nachmittag
Zitat von: bender.ac link=topic=28239.msg30507#msg30507 =1424684447
Hallo zusammen,

gegeben sei die folgende Tabelle:

AB
1T0011.1.2015
2T0022.1.2015
3T0015.1.2015
4T0035.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:
T0013
T0024
T0032

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...