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

end(xlup)

Forumthread: end(xlup)

end(xlup)
03.07.2004 16:39:58
KlausK
Guten Tag,
gibt es eine Möglichkeit, end(xlup) erst ab einer bestimmten Zelle beginnen zu lassen. Ich muss per copy eine zweite tabelle füllen, kann aber erst ab zelle a15 beginnen. a1 bis a14 sind teilwiese leer und teilweise bechrieben. somit sollte end(xlup) also erst ab a15 auswerten.
Vielen Dank und Gruß
KlausK
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: end(xlup)
03.07.2004 17:10:39
Heinz
Hallo Klaus,
dann schreib doch in die A14 ein Leerzeichen und end(xlUp) kopiert erst ab der A15 die Daten rein.
Gruß Heinz
AW: end(xlup)
03.07.2004 17:12:37
Josef
Hallo Klaus!
Das könnte man so lösen!

Sub letzte()
Dim lngR As Long
lngR = Range("A65536").End(xlUp).Row
If lngR < 15 Then lngR = 15
End Sub

Gruß Sepp
Anzeige
AW: Wenn...
FP
Hallo Sepp,
lngR Was Klaus meint ist, alle Zellen ab A15 bis A? auswerten...
da genügt einfach:
For lngR = 15 To Cells(65536,1).End(xlUp).Row
...
Next
Beweis: bitte Test ausführen

Sub test()
Dim i As Long
Dim f As Boolean
For i = 15 To Cells(65536, 1).End(xlUp).Row
f = True
Next
If f = False Then MsgBox "nix gefunden"
End Sub

Servus aus dem Salzkammergut
Franz
Anzeige
@Franz
03.07.2004 18:59:15
Josef
Hallo Franz!
Ich habe das so verstanden, das Klaus jeweils in die erste leere Zelle
ab A15 Daten kopieren möchte und da funktioniert mein Code sehrwohl!

Sub letzte()
Dim lngR As Long
lngR = Range("A65536").End(xlUp).Row
If lngR < 15 Then lngR = 15
Cells(lngR + 1, 1) = "test"
End Sub

Geuß Sepp
Gruß Sepp
Anzeige
Herzlichen Dank
KlausK
Guten Abend,
vielen Dank für die Hinweise. Für mich war es insbesondere wichtig, den Weg zur Lösung auch zu verstehen. Das ist bei allen Tpps der Fall.
Nochmals herzlichen Dank und ein schönes Wochenende.
KlausK
;

Forumthreads zu verwandten Themen

ActiveCell.End(xlUp).Copy ActiveCell - wenn...
Karsten

Hallo,
ich möchte, dass in der selben Spalte aufwärts die Zelle erkannt und kopiert wird, welche nicht "fehlt" beinhaltet.
Den folgenden Code hatte ich bisher angewandt, nützt mir aber diesbezüglich nichts, weil er auch "fehlt" - Inhalte kopiert:
ActiveCell.End(xlUp).Copy ActiveCell...
30.11.2009 08:19:38
Thread-ID: 1120872
8 Beiträge
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Hugo

Hallo
Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100
Wie ereiche ich, dass der Wert 100 nicht in der letzten beschriebenen Zelle (wie Code oben)
sondern eine Zeile darunter eingefügt wird?
Besten Dank für eure Hilfe und Gruss
Hugo
13.12.2009 22:40:21
Thread-ID: 1123643
3 Beiträge
End(xlup) XL2003/2007
Bruno

Guten Tag zusammen
Nach der Umstellung einzelner Arbeitsstationen auf Office 2007 werden Neueinträge aus einer Eingabemaske in eine als Liste deklarierte Bestelldatentabelle bei den Stationen mit Excel 2007 nicht am Tabellenende angefügt, sondern es wird die letzte bereits vorhandene Bestel...
10.06.2010 11:13:47
Thread-ID: 1161206
4 Beiträge
Anzeige
Range("a25").End(xlUp).Select
Karsten

Hallo,
kann mir jemand den Code so umschreiben, dass er für die Spalte, in der sich die aktive Zelle befindet, funktioniert?
Range("a25").End(xlUp).Select
Danke
Gruß
Karsten
05.10.2010 12:58:51
Thread-ID: 1180744
15 Beiträge
Anzeige
Gegenteil "Cells(Rows.Count, 1).End(xlUp).Row" ?
kle

Hallo,
Dieser Code findet die letzte Zeile:
Worksheets("Seriendruck").Cells(Rows.Count, 1).End(xlUp).Row
Aber wie muss es heißen für die letzte beschrieben Spalte einer Zeile x ?
erhalte nicht das richtige Ergebnis ;o(
Letzer Versuch war: (Zeile 14)
n = Worksheets("Daten...
21.02.2011 15:06:16
Thread-ID: 1202113
2 Beiträge
End(xlUp).Row auf zwei Zeilen prüfen
urmila

Hallo zusammen,
ich brauche eure Hilfe...
Es ist so, ich habe in Spalte A Marken stehen (z.B. VW, Audi etc.) und in Splate B die dazugehörige Modelle (Golf, Jetta, Passat (passend zu den Marken) etc.)
Nun will ich immer auf die letzte Zeile springen, aber soll basierend auf Spalte B...
12.09.2013 14:23:26
Thread-ID: 1330519
7 Beiträge
Anzeige
end(xlup) bis xlLastCell löschen Schleife??
ms_michael_2002

Hallo!
Warum löscht er die rows nicht?
In spalte "B" ist der Schlüssel bis dahin soll er die letzte befüllte Zelle suchen.
Der Rest soll gelöscht werden!
Wollte die werte in ROWS("lastrow:lastrow1") übergeben und löschen.
Sub RowCountLoeschen() Dim lastrow As Integer Dim la...
15.10.2013 11:46:27
Thread-ID: 1334433
3 Beiträge
Beschreibung zu xlUp xlEnd xl.........
Christian

Hallo Leute,ich habe schon oefter gesehen, das es mit Befehlen wie xlUp, xlDown, xlSpecialCells usw. moeglich ist, Bereiche zu markieren oder zu durchsuchen.Leider kann ich nirgends eine Beschreibung oder Befehlsuebersicht finden (auch nicht in der Excel-Hilfe).Kann mir jemand sagen, wo ich etw...
14.08.2002 14:36:45
Thread-ID: 148558
4 Beiträge
End(xlUp) überschreibt Zelle
Zoe401

Hallo,
ich habe .End(xlUp) schon des öfteren verwendet, aber hier bei dem Code überschribt es mir immer die letzte Zelle. Das im FETT geschriebenen ist das Problem. Ich gehe von Zelle A12 nach oben (xlUp) und dann +1 um in die nächste Zeile zu schreiben. Beim ersten mal geht das auch, aber...
06.03.2018 13:34:23
Thread-ID: 1612488
4 Beiträge
Frage zur Range-Eigenschaft "End(xlUp)"
Joachim

Hallo zusammen, vielleicht weiss jemand von Euch Rat!!!

Mit ' cells(65336,1).End(xlUp).row ' kann man sehr leicht die letzte Zeile ermitteln, die in Spalte 1 einen Eintrag besitzt.

Leider scheint dies nicht immer zu funktionieren, inbesondere dann, wenn in Tabellenbereichen Ei...
17.07.2003 10:07:45
Thread-ID: 282058
2 Beiträge
Range / End(xlUp)
Rafael
Liebe Boardgemeinde,

ich möchte den Code meines Macros verkürzen. U.a. sollen die Inhalte zusammenhängender, aber in der Adresse wechselnder Zellen fett markiert werden.

Leider funktioniert der folgende Ausdruck nicht:

Tabelle1.Range((Cells(Rows.Count, 2).End(xlUp)), _
(...
06.10.2003 13:58:56
Thread-ID: 319430
5 Beiträge
End(xlUp).Row bei Formeln
Newbe
Kann mir jemand sagen was ich mache wenn ich die letzte Zeile die beschrieben ist raus finden will wenn unter der letzten beschriebenen Zelle noch Formeln drin stehen die mir die Zelle "" schrieben - End(xlUp).Row verhält sich nämlich so das er auch die Zellen ausgibt in denen solche Formeln drin st...
08.12.2003 15:39:32
Thread-ID: 349065
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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