Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Zelle mit konstantem Wert in Excel

Forumthread: Letzte Zelle mit konstantem Wert in Excel

Letzte Zelle mit konstantem Wert in Excel
04.05.2009 14:37:38
Daniel
Hallo zusammen,
mit welchem VBA-Befehl komme ich an die letzte Zeile mit einem konstantem Wert (KEINE Formel!!) in einem Excel-Blatt? (Mit Cells(Rows.Count,1).End(xlUp).Row bekomme ich ja die letzte Zeile mit einer Formel zurückgeliefert)
Vielen Dank für eine Antwort!
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zelle mit konstantem Wert in Excel
04.05.2009 14:40:34
Tino
Hallo,
z. Bsp. so.

Sub Beispiel()
Dim LRow As Long
LRow = Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
MsgBox "letzte Zeile mit Werten ist die " & LRow
End Sub


Gruß Tino

AW: Letzte Zelle mit konstantem Wert in Excel
04.05.2009 14:44:54
Daniel
Das ist schon mal Top! Wie kann ich den Befehl noch anpassen, dass er die letzte Zeile zurückgeben werden soll, wo in Spalte A ein Wert steht?
Anzeige
AW: Letzte Zelle mit konstantem Wert in Excel
04.05.2009 14:53:35
Tino
Hallo,
so müsste es gehen.

Sub Beispiel()
Dim LRow As Long
LRow = Range("A:A").Find("*", , xlValues, 2, 1, 2, False, False).Row
MsgBox "letzte Zeile mit Werten ist die " & LRow
End Sub


Gruß Tino

AW: Letzte Zelle mit konstantem Wert in Excel
04.05.2009 14:55:25
Daniel
Perfekt!! Vielen Dank!
Anzeige
Anmerkung...
04.05.2009 15:05:36
Tino
Hallo,
nur noch eins, enthält die Tabelle nur Formeln oder ist die Tabelle leer, kommt es zum Fehler.
In einem solchen Fall müsste man es so machen.

Dim LRow As Long
On Error Resume Next
LRow = Range("A:A").Find("*", , xlValues, 2, 1, 2, False, False).Row
On Error GoTo 0
If LRow = 0 Then
MsgBox "Keine festen Werte gefunden"
Else
MsgBox "letzte Zeile mit Werten ist die " & LRow
End If


Aber in der Regel hat eine Tabelle eine Überschrift die aus festen Werten besteht,
dann braucht es keine Fehlerbehandlung.
Gruß Tino

Anzeige
mal ne Frage …
04.05.2009 16:37:38
Klaus
… von einem VBA-Anfänger:
Was genau bedeuten eigentlich die Parameter
("*", , xlValues, 2, 1, 2, False, False)
Gruß
Klaus
AW: mal ne Frage …
04.05.2009 16:47:32
Heiner
Hi,
das ist die fehleranfällige, weil versionsabhängige Variante, die benannten Argumente einzusparen,
und das auch noch ziemlich inkonsequent. Gewöhn dir das gar nicht erst an, sondern benutze
die Argumente so, wie sie in der Hilfe zu Find stehen.
mfg Heiner
Anzeige
AW: mal ne Frage …
04.05.2009 16:55:25
Tino
Hallo Heiner,
habe noch keine schlechte Erfahrung gemacht damit,
außer mit SearchFormat (hier nicht dabei) dieser ist Versionsabhängig.
Bei mir gehts unter Version XP, xl2000, xl2003 u. xl2007.
Bei welcher Version gehts nicht?
Gruß Tino
AW: mal ne Frage …
04.05.2009 16:51:02
Tino
Hallo,
Syntax
Ausdruck.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
Dies sind die Parameter für diese Funktion, schau mal in der Hilfe nach.
Anstelle der Konstanten, verwende ich gern den Wert dieser Konstanten damit der Code nicht so lang ist
Beispiele:
So mache ich es.

LRow = Range("A:A").Find("*", , xlValues, 2, 1, 2, False, False).Row


So geht’s auch


LRow = Range("A:A").Find("*", , xlValues, xlPart, xlByRows, xlPrevious, False, False).Row


oder auch noch so


LRow = Range("A:A").Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, Searchorder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False).Row


Gruß Tino

Anzeige
AW: mal ne Frage …
04.05.2009 17:02:05
Heiner
Hi,
konsequent wäre:
LRow = Range("A:A").Find("*", , -4163, 2, 1, 2, 0, 0).Row
und außerdem noch kürzer, aber nicht sicher(Version)!
mfg Heiner
AW: mal ne Frage …
04.05.2009 17:03:31
Tino
Hallo,
ich kann mir aber xlValues u. xlFurmulas besser merken.
Gruß Tino
AW: Bei Anworten im Forum...
04.05.2009 18:23:16
Daniel
... sollte man den Code so verständlich wie möglich gestalten, dh Benannte Parameter und xlVariablen anstelle der Zahlenwerte verwenden.
Schließlich sind die meisten Fragesteller hier keine Profis (es heißt ja auch "Beginners All Purpose Insruction Code")
aber auch für die eigene Arbeit ist das hilfreich, weil schon im Code schneller erkennt, was passiert und man nicht erst langwierig Dokumentationen lesen muss (die sowiso meist nicht vorhanden und wenn veraltent sind).
Außerdem spielt bei der Verwendung von Benannten Parametern die Reihenfolge und Vollständigkeit der Parameter keine Rolle, so daß dadurch eine Quelle für schwer auffindbare Fehler gleich vermieden wird.
Ebenso sind für die meisten Menschen sprechende Texte leichter zu lernen als eine Vielzahl von abstakten, leicht verwechselbaren Zahlenfolgen.
(Ich muss ja mein Gehirn nicht damit belasten, ob jetzt der LookAt-Parameter der 4. oder 5. ist)
Ich denke mal, daß diese Vorteile mehr wiegen als ein bisschen mehr Tipparbeit.
Und wenn die zuviel ist, kann man sich ja mit dem Makrorecorder behelfen und die entspechenden Teile des aufgezeichneten Codes in das eigene Makro kopieren.
Gruß, Daniel
Anzeige
AW: Bei Anworten im Forum...
04.05.2009 18:38:07
Tino
Hallo,
das liegt ja wohl im ermessen des Programmierers, ich habe mir die Parameter beigebracht und kann diese so direkt aus dem Kopf schreiben.
Natürlich kann ich die Parameter auch anders angeben, die werden mir ja direkt vorgeschlagen und ich bräuchte nur auswählen, aber wie gesagt mir es so lieber.
Gruß Tino
Anzeige
AW: Bei Anworten im Forum...
04.05.2009 18:44:33
Daniel
Hi
... schreibst du den Code aber nicht für dich, sondern für den Fragesteller.
Daher gehts nicht darum, was dir lieber, sondern was für den Fragesteller hilfreicher ist.
Ich denke mal nicht, daß dieser die entsprechenden Zahlencodes im Kopf hat.
Sonst würde er wahrscheinlich hier nicht fragen, sondern antworten.
Gruß, Daniel
Anzeige
kann man drüber streiten...
04.05.2009 18:58:59
Tino
Hallo,
was man wie zu tun und zu lassen hat.
Wenn es unklar ist, kommt die Rückfrage schon von alleine und der Fragende hat zudem auch noch was dazugelernt, nämlich was hinter diesen Konstanten steckt.
Habe ich ja auch nach Rückfrage im Forum beantwortet.
Gruß Tino
bei welcher Version geht es nun nicht?.
04.05.2009 17:06:02
Tino
Hallo,
bei mir gehts unter Version XP, xl2000, xl2003 u. xl2007.
Gruß Tino
Anzeige
Danke an alle
04.05.2009 17:05:21
Klaus
Danke an alle für die verständlichen Antworten …
Klaus

Forumthreads zu verwandten Themen

Adresse des letzten Wertes einer Tabelle?
Moni

Hallo,
ich habe ein Problem, dass ich zum Teil mithilfe des Forums hier schon lösen konnte. Nur ein kleines Stückchen fehlt mir noch.
Zur Situation:
Ich habe eine Tabelle mit einer Spalte (C5:C221) in der ich jeden Tage einen Wert eintrage, bis die Tabelle irgendwann mal voll ist. I...
13.08.2008 14:11:59
Thread-ID: 1001534
9 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Anzeige
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Anzeige
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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