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

letzte benutzte Zeile eines Namens-Bereichs

Forumthread: letzte benutzte Zeile eines Namens-Bereichs

letzte benutzte Zeile eines Namens-Bereichs
23.11.2008 19:43:00
Klaus
Hallo Forum,
wie bringe ich die letzte benutzte Zeile eines benannten Bereichs in eine Variable?
Beispiel:
Bereichsname = Testfeld
Name Testfeld besteht aus Text, Formeln und Datümern
Formeln dürfen NICHT gefunden werden
Mit
LAST = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
werden auch die Formeln erkannt
Für Antworten Danke im voraus
Klaus
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte benutzte Zeile eines Namens-Bereichs
23.11.2008 20:12:00
Erich
Hallo Klaus,
die Aufgabe ist für mich nicht so recht eindeutig. Sollen Zellen, in denen eine Formel steht,
von der Betrachtung ganz ausgeschlossen werden?
Wenn in B2 der Wert abc steht und in B4 die Formel ="abc": Ist dann 2 die letzte Zeile?
Machst du einen Unterschied zwischen leeren Zellen und Zellen in denen eine leere Zeichenkette steht?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: letzte benutzte Zeile eines Namens-Bereichs
23.11.2008 20:19:53
Klaus
Hallo Erich,
danke für Deine Antwort
[Wenn in B2 der Wert abc steht und in B4 die Formel ="abc": Ist dann 2 die letzte Zeile?]
Ja, B2 soll dann die letzte Zeile sein. Leere Zeichenketten kommen im Normalfall nicht vor,
aber im Falle eines Falles sollten sie ebenfalls nicht mitgezählt werden
Gruß
Klaus
Anzeige
AW: letzte benutzte Zeile eines Namens-Bereichs
23.11.2008 20:39:00
Gerd
Hallo Klaus,
sowas?

Sub b()
Dim rngA as Range,rngB As Range, lngRowLast as long
Set rngA = Intersect(Cells.SpecialCells(xlCellTypeConstants), Range("Mein_Bereich"))
Set rngB = rngA.Find(what:="*", After:=rng.Cells(1), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious)
if not rngB is nothing then lngRowLast= rngB.Row
End Sub


Gruß Gerd

Anzeige
AW: letzte benutzte Zeile eines Namens-Bereichs
23.11.2008 20:51:00
Klaus
Hallo Erich,
bei
Set rngB = rngA.Find(what:="*", After:=rng.Cells(1), SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious)
bekomme ich einen Laufzeifehler 424, "Objekt erforderlich"
Gruß
Klaus
AW: letzte benutzte Zeile eines Namens-Bereichs
24.11.2008 11:56:00
JogyB
Hi.
Gerd hatte einen kleinen Fehler eingebaut, außerdem geht die Bestimmung von rngA einfacher.

Sub test()
Dim rngA As Range
Dim rngB As Range
Dim lngRowLast As Long
Set rngA = Range("Mein_Bereich").SpecialCells(xlCellTypeConstants)
If Not rngA Is Nothing Then _
Set rngB = rngA.Find(what:="*", After:=rngA.Cells(1), SearchOrder:=xlByRows,  _
SearchDirection:=xlPrevious)
If Not rngB Is Nothing Then lngRowLast = rngB.Row
End Sub

So funktioniert es und das wesentlich schneller als die andere Methode, die kann bei großen Bereichen recht lange dauern.
Am besten hätte mir natürlich noch rngA.SpecialCells(xlCellTypeLastCell).Row zur Bestimmung der Zeile gefallen, aber das nimmt immer die letzte Zelle des Arbeitsblattes.
Gruss, Jogy

Anzeige
AW: letzte benutzte Zeile eines Namens-Bereichs
24.11.2008 15:43:00
Klaus
Hallo Jogy,
auch Dir und Gerd (den ich fälschlicherweise mit Erich angesprochen hatte, sorry)
noch einmal ein kräftiges Dankeschön – das ist ein echt tolles Forum hier!
Gruß
Klaus
AW: letzte benutzte Zeile eines Namens-Bereichs
25.11.2008 00:39:00
Erich
Hallo Klaus und Jogy,
habt ihr test() einmal getestet, wenn alle Zellen von Mein_Bereich leer sind?
Bei mir kommt da ein 1004er Fehler in der Zeile "Set rngA = ...".
Mein Vorschlag: 

Sub b1()
Dim rngA As Range, rngF As Range, lngRowLast As Long
If Intersect(Cells.SpecialCells(xlCellTypeConstants), _
Range("Mein_Bereich")) Is Nothing Then
MsgBox "'Mein_Bereich' enthält keine Konstanten."
Else
Set rngA = Range("Mein_Bereich").SpecialCells(xlCellTypeConstants)
Set rngF = rngA.Find(what:="*", After:=rngA.Cells(1), _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
If rngF Is Nothing Then
MsgBox "'Mein_Bereich' enthält keine nichtleere Konstante."
Else
lngRowLast = rngF.Row
MsgBox "Letzte Zeile: " & lngRowLast
End If
End If
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: letzte benutzte Zeile eines Namens-Bereichs
25.11.2008 17:14:44
Klaus
Hallo Erich,
ja danke, dass hatte ich auch schon gemerkt und
eine entsprechende Prüfung eingebaut ...
Gruß
Klaus
AW: letzte benutzte Zeile eines Namens-Bereichs
23.11.2008 20:51:13
Daniel
Hi
du könnest dir dafür eine Funktion schreiben, durch die Specialcells-Funktion werden Formeln ausgeschlossen:

Function LetzteBenutzteZeileOhneFormeln(rng As Range) As Long
Dim Zelle As Range
On Error GoTo ende
For Each Zelle In rng.SpecialCells(xlCellTypeConstants, 23)
If LetzteBenutzteZeileOhneFormeln


das sieht im Code dann so aus:


Dim Last as long
Last = LetzteBenutzteZeileOhneFormeln(Range("Testfeld"))


Gruß, Daniel

Anzeige
AW: super
23.11.2008 20:57:02
Klaus
Hallo Daniel,
funktioniert super – vielen Dank dafür!
Gruß aus Hamburg
Klaus

Forumthreads zu verwandten Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 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
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:17:00
Thread-ID: 1017692
4 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 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
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
Letzte Leere Zelle in Spalte C
Wacker

Ich habe eine Spalte "C" in der Zahlen fortlaufend erfasst werden.
Bin bereits hier bei Zelle C4500.
Ich müsste jetzt Wissen wie kann ich die Letzte Zelle in der Spalte "C" finden, in der noch keine Zahl Eingetragen ist.
Und dann benötige ich noch für diverse Berechnungen, die Forme...
07.12.2008 22:23:00
Thread-ID: 1030940
9 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Anzeige
nach letzter beschriebener Zeile einfügen
lisa

Hallo zusammen
Ich habe einen kopierten Datensatz, der in eine neue Tabelle1 ind die nächste frei Zeile eingefügt werden soll.
Hat hier jemand eine Idee, wie ich die erste freie Zelle in Spalte a finden kann und dort dann die Werte eingefügt werden?
Liebe Grüße Lisa
03.02.2009 17:36:42
Thread-ID: 1046730
8 Beiträge
Letzte Zeile bestimmen
Holger

Hallo zusammen,
wie kann ich ohne VBA die letzte Zeile in einer Formel bestimmen. Den Wert dieser Zelle möchte ich dann weiter verwenden.
Gruss
Holger
04.02.2009 13:12:38
Thread-ID: 1047018
8 Beiträge
Hilfe zu letzter zeile (xlUp) aus Bereich
chris

Hallo VBA experten,
habe schon versucht im Forum zu suchen finde aber nichts passendes.
Ich benötige die letzte zeile aus einem Bereich.
Die letzte zeile also Zelle einer Spalte ist kein Problem.Das mache ich so:
Sub neu() MsgBox ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row...
12.02.2009 10:53:00
Thread-ID: 1049939
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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