letzter Wert

[PSW]

Hallo Leute,

ich benötige ein wenig Hilfe, stehe im Moment auf dem Schlauch.

Mit

WorksheetFunction.Max(Range("D:D")) 

bekomme ich aus der Spalte D den höchsten Wert angezeigt, das sagt "Max" aus.

jetzt benötige ich aber den "letzten Wert" aus aus der Spalte, wie lautet der?

Im Voraus vielen Dank

Peter

[WillWissen]

Hi,

Code:

=VERWEIS(2;1/($D$1:$D$200<>"");$D$1:$D$200)

[marose67]

Hallo Günter,

das klappt nur wenn die Zeilen nacheinader befüllt werden. in meinem Beispiel wurde die "211" als letztes eingegeben ...

Tabelle1

	D	E	F	G	H	I
1	1					1
2	2
3	211
4	3

Formeln der Tabelle

Zelle Formel I1 =VERWEIS(2;1/($D$1:$D$200<>"");$D$1:$D$200)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8



Gruß
Marcus

[Jockel]

Hallo Günter,

das klappt nur wenn die Zeilen nacheinader befüllt werden. in meinem Beispiel wurde die "211" als letztes eingegeben ...

Gruß
Marcus

Hallo, ich glaube es geht um den Wert der am Ende der Liste steht, nicht der der als letztes eingegeben wurde...

[WillWissen]

Hi Marcus,

deinen Einwand verstehe ich jetzt gerade nicht. Es wird mit der Formel immer der letzte Eintrag der Spalte gefunden.

Arbeitsblatt mit dem Namen 'Tabelle1'
	D	E
1	5	xx
2	17
3	211
4	6
5
6	a
7
8	2
9
10	xx

Zelle	Formel
E1	=VERWEIS(2;1/($D$1:$D$200<>"");$D$1:$D$200)

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[marose67]

Hallo Günter,
velleicht habe ich die Fage ja falsch verstanden. Mein letzter Eintrag wurde zwischen den vorherigen Einträgen gemacht.

sorry
Marcus

[PSW]

Hallo Leute,

ich füge mal meine Beispieltabelle bei.

Also, wenn ich die Userform starte, möchte ich, dass das Feld "letzter Bestand" gefüllt wird mit dem letzten Wert aus der Tabelle, Spalte "E".

Ich hoffe es wird jetzt klarer.

MfG

Peter

[Klaus-Dieter]

Hallo,

versuche es mal so:

Code:

Private Sub UserForm_Initialize()
   
   Text_Laufende_Nummer = ""                                          'Laufende Nummer
   Text_Alter_Bestand = Cells(Range("E" & Rows.Count).End(xlUp).Row, 5)                                          'Alter Bestand
   Text_Zugang = ""                                                   'Zugang
   Text_Abgang = ""                                                   'Abgang
   Text_Neuer_Bestand = ""                                            'Neuer Bestand
   
End Sub

[PSW]

Hallo Klaus-Dieter,

es funktioniert.

Vielen Dank für deine Unterstützung.

Peter