[VBA] - letzte Zelle ausgeben, ohne Null

[HelpingHand]

Hallo zusammen.
Ich möchte gern via VBA die letzte Zelle ausgeben, in der ein Wert steht. Es handelt sich jedoch hier um einen direkten Verweis auf ein anderes Tabellenblatt, so dass bei meiner Formel immer 0 als letzter Wert ausgegeben wird (da ich die Formel auf A20 ergänzt habe).


Sub letzte_zelle()
  Dim r As Long
  r = Range("A65").End(xlUp).Row
  Range("E3") = r
End Sub

Hier wurde auch immer nur die Zeilenzahl angegeben, hätte jedoch gern den Text...


Lange Rede kurzer Sinn:

Ich möchte immer das "Gesamtergebnis" als letzte Zelle ausgegeben haben und nicht die leeren Zellen darunter, in denen eine Formel steht.. Individuell übertragbar auf Spalte A, B, C.. Dieses verschiebt sich durch den Datenschnitt.



Lg

[schauan]

Hallöchen,

mit dem codeschnipsel ist es egal, ob in Deinem Fall Null oder Nix steht. Der Code springt zur ersten nicht leeren Zelle von unten / A65 (sofern über A65 min. eine Leerzelle steht. Wenn eine Formel drin steht, ist die Zelle nicht leer.

Hier mal ein Formelansatz, den Du sicher auch in VBA verwenden kannst.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	1	5
2	2
3	0
4	3
5	4
6	5
7	0

Zelle	Formel
B1	=VERWEIS(2;1/(A1:A10);A1:A10)

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

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

[Case]

Hallo, :19:

das Prinzip - bezogen auf dein Beispiel - siehst Du in folgender Datei: :21:

  Letzte_Zeile_in_Spalte_in_der_nur_Formeln_sind.xlsb (Größe: 25,55 KB / Downloads: 3)