Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Adresse des letzten werts eines Bereichs

Forumthread: Adresse des letzten werts eines Bereichs

Adresse des letzten werts eines Bereichs
27.03.2004 17:57:33
mainecoon
Ich habe einen Rangebereich von A4:A10.
Annahme der letzte Wert diese Bereichs ist in Zelle A8. Also A9 und A10 sind leer.
Wie lautet der VBA-Code der mir die Adresse A8 ausgibt?
Vielen Dank
Gruß Achim
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:00:36
Hajo_Zi
Hallo Achim
das geht auch ohne VBA
http://www.excelformeln.de/formeln.html?welcher=57

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro SP 3


Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:11:17
mainecoon
geht nicht.
Schließlich kann ich nicht verlangen, dass der User die entsprechenden Tastenkombi drückt, um die geschweiften Klammern zu erhalten.
Es muss in VBA eingebaut sein.
Gruß achim
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:02:42
Beni
Hallo Achim,
Gruss Beni

Sub Adresse()
r = Cells(65536, 1).End(xlUp).Row
MsgBox Cells(r, 1).Address(False, False)
End Sub

Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:04:28
Josef Ehrensberger
Hallo Achim!
Z.B. so!


Sub letzteZelle()
Dim intE As Integer
intE = Range("A10").End(xlUp).Row
MsgBox Cells(intE, 1).Address
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:09:44
mainecoon
Es geht nur um A4:A10
Und die Lösung muss in B11 eingetragen werden.
Diese Lösung funktioniert nicht.
Gruß achim
Crossposting spotlight oT
27.03.2004 18:12:42
Kurt
ot
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:20:39
Josef Ehrensberger
Hallo Achim!
Du wolltets ja VBA!
Probier mal diese Formel in "B11"!
{=ADRESSE(MAX((A4:A10<>"")*ZEILE(4:10));1)}
Achtung ArrayFormel!
Die geschweiften Klammern nicht direkt eingeben, sonder
durch abschluss der Formel mit [STRG]+[SHIFT]+[ENTER]!

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:24:03
mainecoon
Das geht nicht.
Ich MUSS eine VBA-Einbindung nehmen.
Hier muss ich eine tastenkombi drücken um die Klammern zu bekommen.
Ich benötige eine automatische Lösung.
Die hier bekam ich vorhin, bringt mir die Adresse für den Maxwert.
Dim Wo As Range, maxWo As Range, maxWert
Set Wo = [a4:a10]
maxWert = Application.Max(Wo)
Set maxWo = Wo.Find(maxWert)
Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:25:32
Josef Ehrensberger
Hallo Achim!
Dann halt so!


Sub letzteZelle()
Dim intE As Integer
intE = Range("A10").End(xlUp).Row
[B11] = Cells(intE, 1).Address
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:29:45
mainecoon
Fast.
Aber wenn es gar keinen Eintrag gibt im Bereich A4:A10, dann schreibt er mir die Überschrift von A3 in B11.
Und mit der kann ich nicht rechnen.
Es muss also eingegrenzt von A4:A10 und nur innerhalb dieses sein.
Gruß Achim
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:35:54
Josef Ehrensberger
Hallo Achim!


Sub letzteZelle()
Dim intE As Integer
intE = Range("A10").End(xlUp).Row
If intE < 4 Then intE = 4
[B11] = Cells(intE, 1).Address
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Adresse des letzten werts eines Bereichs
27.03.2004 19:04:20
mainecoon
Voll verstanden habe ich es noch nicht.
Aber jetzt funktioniert es.
Ich möchte mich sehr herzlich bedanken bei Dir.
Ich wünsche Dir einen schönen Samstag Abend.
Gruß Achim
Danke für die Rückmeldung! o.T.
27.03.2004 19:12:09
Josef Ehrensberger
Gruß Sepp

Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Danke für die Rückmeldung! o.T.
27.03.2004 19:34:42
mainecoon
Ich habe mich wohl zu früh gefreut.
Es funktioniert doch nicht so wie es sein soll.
Annahme der USER tippt in A10 einen Wert ein. Dann kommt in B11 die richtige Lösung $A$10.
tippt man in A9 einen Wert ein, darf nichts mehr passieren. Es kommt aber in B11 die Änderung zu $A$9. Das darf nicht sein.
Hast Du es mal bei Dir probiert?
Hast Du noch eine andere Idee?
Gruß Achim
Anzeige
AW: Danke für die Rückmeldung! o.T.
27.03.2004 19:51:03
Josef Ehrensberger
Hallo Achim!
Das kommt davon, wenn man nicht genau weis was der andere vorhat.
Da ich annehme, das die Aktualisierung automatisch
erfolgen soll, versuch mal diesen Code im Modul der Tabelle.


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A4:A10]) Is Nothing Then Exit Sub
Dim rng As Range
Dim strAdr As String
For Each rng In Range("A4:A10")
If rng <> "" Then
strAdr = rng.Address
End If
Next
[B11] = strAdr
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp


Ein kluger Mann macht nicht alle Fehler selbst.
Er lässt auch anderen eine Chance.
(Sir Winston Churchill)


Anzeige
AW: Danke für die Rückmeldung! o.T.
27.03.2004 19:57:22
mainecoon
Das sieht gut aus.
Jetzt funktiniert es wirklich in alle Richtungen mit allen Kombinationen.
Ein RIESEN_DANKE SCHÖN.
und einen Super Samstag noch.
Gruß Achim
AW: Adresse des letzten werts eines Bereichs
27.03.2004 18:26:29
mainecoon
So ist es komplett und geht für den MAX-Wert
Dim Wo As Range, maxWo As Range, maxWert
Set Wo = [a4:a10]
maxWert = Application.Max(Wo)
Set maxWo = Wo.Find(maxWert)
[a12] = maxWert
[a13] = maxWo.Address(0, 0)
Ich bekomme es nicht hin, wie es für den letzten Wert des Bereichs ist.
Anzeige
;

Forumthreads zu verwandten Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Suchen, Sverweis Vergleichen über einen Bereich
KLE

Hallo zusammen,
..habe mal wieder eine Blockade im Hirn und suche hier Unterstützung, Anregungen und/oder Ideen...
Folgende Herausforderung (Musterdatei liegt hier bei):
Ich habe eine Adressen-Liste und muss es aus statistischen Gründen in Gruppen zusammenfassen. Soll heißen, alle "...
18.08.2008 08:39:00
Thread-ID: 1002501
5 Beiträge
Anzeige
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Anzeige
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Vergleichen mit Funktion WENN
Uwe

Hallo liebe Forummitglieder,
ich habe ein Problem mit vergleichen von Zahlen.
Ich habe schon selbst probiert, aber das haut hinten und vorne nicht hin.
=WENN(ODER(B10=1;"100")WENN(B10=2;"200")WENN(B10=3;"300")WENN(B10=4;"400"))
Ich möchte wenn in B10 1 steht 100, bei 2 200, bei...
01.10.2008 08:25:00
Thread-ID: 1013514
9 Beiträge
Anzeige
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Such in Spalte Ergebnis in listbox
Markus

Hallo zusammen,
hab wieder mal ein Problem.
Hab ne Userform mit mehreren Textboxen und einer Listbox
In Textbox1 steht mein Suchtext das makro sucht nun im angegebenen Arbeitsblatt nach dem Text und
schreibt mir alle Daten aus der Gefundenen Zeile in Textboxen.
Hab nun fest...
14.10.2008 11:24:35
Thread-ID: 1016271
3 Beiträge
Wert der letzten Zeile in Bereich SVerweis
Elmar

Hallo,
vielleicht kann mir jemand helfen, wie ich in VBA dieser Formel ==ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Haupttabelle!R1C1:R65000C7,2,FALSE)"== beibringe, die 65000 durch die letzte belegte Zeile in einer Tabelle zu ersetzen. Die Abfrage mache ich mit ***iRow = Cells(Rows.Count, 3...
28.10.2008 20:45:00
Thread-ID: 1020084
5 Beiträge
Liste mit Wiederholungen in Spalte D reduzieren
Bernd

hallo Freaks,
ich habe eine ewig lange Tabelle, in der neben vielen anderen Informationen in der Spalte D der Name der bearbeitenden Person steht. Und das evt. 100 x, weil diese Person halt für 100 verschiedene Vorgänge zuständig ist. Und danach kommt die zweite Person, wieder mit x Einträg...
29.10.2008 12:50:28
Thread-ID: 1020239
5 Beiträge
Wert in Zellbereich prüfen
Florian

Hallo,
ich habe folgende Anforderung im Excel:
Ich bearbeite ein Testprotokoll, das vereinfacht wie folgt aufgebaut ist:
In den Zeilen stehen div. Punkte, die generellzu überprüfen sind.
In den Spalten stehen die zu prüfenden Verfahren; dies können je Testprotkoll bis zu 100 ve...
11.11.2008 16:57:00
Thread-ID: 1023615
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige