Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei End.(xldown)

Forumthread: Fehler bei End.(xldown)

Fehler bei End.(xldown)
27.08.2003 15:55:31
Frank
Hallo,

ich habe eine Verständnisfrage.

Ich springe mit dem folgenden Makro beginnend mit A7 in die letzte gefüllte Zeile. Dann wird in der übernächsten Zeile eine Summe in Spalte E gebildet.

Wenn nun ab von a7 bis a65530 alle Felder leer sind bleibt der Cursor nicht auf a7 stehen und fügt dann in b9 eine Summe ein sondern er springt in A65530 und will dann noch 2 Zeilen tiefer für die Summen - mit entsprechender Fehlermeldung.

Warum?

Das Makro lautet:
Sheets("Journal").activate
range("a7").select
Activecell.end(xldown).select
activecell.offset(2,4).select
Selection ="=sum(R7C5:R[-1]C)"
Wäre nett wenn mir jemand zum Verständnis weiterhilft.

Frank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei End.(xldown)
27.08.2003 16:20:02
PeterW
Hallo Frank,

das end(xlDown) entspricht der Tastenkombination Strg+Pfeil runter. Schau dir dieses Verhalten mal in einer Tabelle an. Du musst im Code prüfen, ob in A8 etwas steht. Nebenbei, auf Select kann fast immer verzichtet werden:


Sub Frank()
If Range("A8") <> "" Then
Sheets("Journal").Range("a7").End(xlDown).Offset(2, 4).FormulaR1C1 = "=sum(R7C5:R[-1]C)"
Else
Range("A7").Offset(2, 4).FormulaR1C1 = "=sum(R7C5:R[-1]C)"
End If
End Sub


Gruß
Peter
Anzeige
Danke
28.08.2003 07:47:25
Frank
Hallo Peter,

danke für die Info,hat mir im Verständnis sehr geholfen und ohne select gehts wirklich schneller

Frank
;

Forumthreads zu verwandten Themen

Endxldown - 2010
Lucia

Hallo zusammen,
ich habe in meinem excel 2007 folgenden code zur Datenübernahme von einem Formular in das Excel:
Private Sub Datenuebernahme_Click() Range("A8").Select If ActiveCell.Offset(0, 0).Value "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(0, 0).Select If NameZa...
29.12.2010 16:56:31
Thread-ID: 1193246
3 Beiträge
Anzeige
VBA-Range in Formel verwenden
Peter

Guten Tag
Ausgangsbasis ist eine SUMMEWENN-Formel (Datei-übergreifend), die ich in einem Spaltenbereich eingetragen habe.
=SUMMEWENN('[KUME.xlsm]DEFG'!$P$7:$P$48;LINKS(A2;LÄNGE(A2)-3);'[KUME.xlsm]DEFG'!$AO$7:$AO$48)
Nun habe ich das Argument 1 mit r_KUME1 und das Argument r_KUME3 al...
19.08.2013 14:27:35
Thread-ID: 1327468
6 Beiträge
mit VBA vorangehendes Zeichen löschen
Micha

Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden...
18.02.2014 15:05:59
Thread-ID: 1350226
16 Beiträge
Range.end(xldown)
Christian

Hi Leute !Ich will in einer Tabelle die nächste freie Zeile ermitteln.mit Cells(1,1).end(xldown).offset(1,0) klappt das an sich, aber wenn die Tabelle leer ist oder nur eine Zeile enthält dann nicht, weil das Ding zur letzten Zeile geht.
Wie kann ich sowas am elegantesten lösen?Wenns geht oh...
04.02.2003 12:06:12
Thread-ID: 213494
2 Beiträge
VBA Range End Zelle ermitteln
Peter
Hallo,
ich möchte gern die aktuell ausgewälte range in zahlen auslesen. Also statt A1:J10 -> 1 | 1 | 10 | 10 damit ich damit weiter arbeiten kann.
Aktueller code:
Dim test As String
Dim spaltennummer_erste As Long
Dim zeilennummer_erste As Long
Dim spaltennumm...
11.02.2023 23:13:44
Thread-ID: 1919882
6 Beiträge
.End(xlDown).Row - Eleganter möglich in einer def. Range?
Ralf
Hallo liebes Forum,

ich habe eine Frage bzw. benötige einen Hinweis für die Ermittlung der letzten Benutzenzeile in einer Range. Im Grunde ist das Ermitteln dieser Spalte durch die Funtkion der SpecialCells oder der .End(xlDown) Funktion relativ einfach. Dennoch habe ich mir im Kopf irgendw...
23.09.2023 13:36:23
Thread-ID: 1947122
5 Beiträge
Selection.End(xlDown).=Offset(1,0).Select funktioniert nicht
Stephan
Liebes Forum,
in meinem bisher umfangreichsten EXCEL Projekt, habe ich ein Formblatt erstellt, das von unterschiedlichen Usern verwendet werden soll. Die im Formblatt ermittelten Daten sollen in einer "Datenbank" (Tabellenblatt) gespeichert werden. Mein erstes Makro soll also die Werte definiert...
29.12.2023 08:50:00
Thread-ID: 1958910
7 Beiträge
VBA-Sverweis + Datum, mehr als 1 Zelle
Alex

Hallo Leute,
mit diesem Code führe ich für eine Datei einen Bearbeiternachweis.
Das läuft so, wenn jemand auf dem 1. Tabellenblatt eine Eintragung macht, wird dies auf dem 2. Tabellenblatt mit Name und Datum protokolliert.
Das geht, wenn man nur 1 Zelle beschreibt oder die Eintragun...
02.05.2009 16:43:02
Thread-ID: 1072438
11 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
Endxldown - 2010
Lucia

Hallo zusammen,
ich habe in meinem excel 2007 folgenden code zur Datenübernahme von einem Formular in das Excel:
Private Sub Datenuebernahme_Click() Range("A8").Select If ActiveCell.Offset(0, 0).Value "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(0, 0).Select If NameZa...
29.12.2010 16:56:31
Thread-ID: 1193246
3 Beiträge
VBA-Range in Formel verwenden
Peter

Guten Tag
Ausgangsbasis ist eine SUMMEWENN-Formel (Datei-übergreifend), die ich in einem Spaltenbereich eingetragen habe.
=SUMMEWENN('[KUME.xlsm]DEFG'!$P$7:$P$48;LINKS(A2;LÄNGE(A2)-3);'[KUME.xlsm]DEFG'!$AO$7:$AO$48)
Nun habe ich das Argument 1 mit r_KUME1 und das Argument r_KUME3 al...
19.08.2013 14:27:35
Thread-ID: 1327468
6 Beiträge
mit VBA vorangehendes Zeichen löschen
Micha

Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden...
18.02.2014 15:05:59
Thread-ID: 1350226
16 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