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

Problem mit Selection.End(xlDown)

Forumthread: Problem mit Selection.End(xlDown)

Problem mit Selection.End(xlDown)
12.04.2022 08:28:27
Albert
Hallo liebes Forum,
ich habe ein Problem bei 

Range(Selection, Selection.End(xlDown)).Select
und zwar kann es vorkommen, das nur eine Zeile Daten hat und dann wird bis ans Tabellenende selektiert. Es soll aber in diesem Fall nur die eine Zeile selektiert sein.
Hinweis: Wenn Mehrere Zeilen vorhanden sind funktioniert das Makro richtig (alle Zeilen die Daten in Spalte A haben werden selektiert).
Der Makroteil ist folgender:

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Bitte um Hilfe wie das Makro aussehen soll, damit es auch bei nur einer befüllten Zeile funktioniert.
Danke!
LG
Bert
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit Selection.End(xlDown)
12.04.2022 08:52:40
Alex
Morgen Bert
Versuche mal über das Worksheet:
sh.Cells(Rows.Count, 1).End(xlUp).Row
1=Spalte A usw.
Ich habe das mit einer Funktion gelöst, die folgende Parameter erwartet: ein Workscheet und den SpaltenIndex und als Rückgabewert die letzte benutzte Zelle.
Gruss Alex
AW: Problem mit Selection.End(xlDown)
12.04.2022 09:05:40
Rudi
Hallo,
Select ist i.d.R. überflüssig.
Letztlich reicht
Range("A1").Currentregion.Select
Gruß
Rudi
Anzeige
AW: Problem mit Selection.End(xlDown)
12.04.2022 09:44:57
Albert
Hallo Rudi,
danke für den Vorschlag welcher auch super funktioniert bis auf folgendes Problem:
Der Spalten-Selektionsbereich muss ("A1:G1") umfassen weil es vorkommen kann, dass einzelne Zellen in Zeile A auch leer sein können.
Deshalb habe ich für die Spalten Range("A1:G1").Select verwendet und nicht "Selection.End(xlToRight)".
Gibt es dafür auch noch eine Lösung in deinem Code?
Bitte nochmals um Hilfe.
Danke!
LG
Bert
Anzeige
AW: Problem mit Selection.End(xlDown)
12.04.2022 10:13:29
Rudi
Zeile A kennt mein Excel nicht.
Immer A:G
Range("A1").Currentregion.Resize(,7).Select
Gruß
Rudi
AW: Problem mit Selection.End(xlDown)
12.04.2022 10:27:15
Albert
Hallo Rudi,
was, dein Excel kennt Zeile A nicht hihihi.
Danke, dass ist jetzt Perfekt.
Danke auch an Alex.
Schönen Tag und LG
Bert
wenn perfekt dann geschlossen. owT
12.04.2022 10:29:05
Rudi
Anzeige
;

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
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 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
Herangehensweise an folgendes VBA Makro(Word)
reasyeasypeasy

Moin,
ich habe ein kleines Problem, ein VBA-Makro in Word zu realisieren und hoffe hier eine kleine Hilfestellungen zu bekommen. Keinen kompletten Code, dass bekomme ich alleine hin.:)
Ich habe ein Userform erstellt, auf dem man bestimmte Sachen anklicken kann. Je nach dem, was angeklic...
16.02.2015 19:12:48
Thread-ID: 1409760
4 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
Fehler bei End.(xldown)
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...
27.08.2003 15:55:31
Thread-ID: 300906
3 Beiträge
Zahl aus Text per VBA/ Verwendung von Ranges
Ranges

Hallo liebe Herber Fans,
ich habe ein Problem mit dem extrahieren einer Zahl aus Text per VBA. Alle Codes, die ich fand, waren als Funktion definiert. Mich reizt aber der Code, um ihn nach Worksheet Change laufen zu lassen. Als Formel ist Zahl aus Text kein Problem, in diesem Fall muß es a...
03.03.2008 17:08:00
Thread-ID: 957604
3 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
Anzeige
Anzeige

Infobox / Tutorial

Probleme mit Selection.End(xlDown) in Excel VBA lösen

Schritt-für-Schritt-Anleitung

  1. Problem verstehen: Das Problem tritt auf, wenn du versuchst, mit Range(Selection, Selection.End(xlDown)).Select eine Auswahl zu treffen. Wenn nur eine Zeile Daten vorhanden ist, wird bis zum Ende der Tabelle selektiert.

  2. Alternative Methode: Verwende statt Selection.End(xlDown) die Methode Cells(Rows.Count, 1).End(xlUp).Row, um die letzte benutzte Zelle in Spalte A zu finden.

  3. Implementierung: Hier ist ein Beispiel, wie du dein Makro anpassen kannst:

    Sub AuswahlMitLetzteZeile()
   Dim letzteZeile As Long
   letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A1:G" & letzteZeile).Select
   Selection.Copy
End Sub

Häufige Fehler und Lösungen

  • Fehler: Auswahl geht bis zum Ende der Tabelle, wenn nur eine Zeile vorhanden ist.

    • Lösung: Verwende Cells(Rows.Count, 1).End(xlUp).Row, um die letzte benutzte Zeile zu ermitteln.

  • Fehler: Verwendung von Select ist überflüssig.

    • Lösung: Du kannst direkt mit Range("A1:G" & letzteZeile).Copy arbeiten, um das Clipboard zu befüllen, ohne die Auswahl zu verändern.

Alternative Methoden

  1. CurrentRegion: Eine einfache Methode ist die Verwendung von CurrentRegion, um die gesamte Region um die Zelle A1 zu wählen.

    Range("A1").CurrentRegion.Resize(, 7).Copy

  2. Verwendung von Arrays: Du könntest die Daten auch in ein Array einlesen und dann die benötigten Informationen verarbeiten, ohne die Zellen direkt auszuwählen.

Praktische Beispiele

  • Beispiel 1: Um alle Daten in Spalte A bis zur letzten benutzten Zeile zu kopieren:

    Sub KopiereDaten()
   Dim letzteZeile As Long
   letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A1:A" & letzteZeile).Copy
End Sub

  • Beispiel 2: Wenn du eine bestimmte Spalte und die nächste befüllte Zeile brauchst:

    Sub KopiereBisZurNaechstenBefuelltenZeile()
   Range(Selection, Selection.End(xlToRight)).Copy
End Sub

Tipps für Profis

  • Vermeide Select: In den meisten Fällen ist es effizienter, direkt mit dem Range-Objekt zu arbeiten, anstatt die Auswahl zu ändern.

  • Funktionen nutzen: Schreibe wiederverwendbare Funktionen, die Parameter wie das Arbeitsblatt und die Spaltenindexnummer akzeptieren, um die letzte benutzte Zelle zu finden.

  • Error Handling: Implementiere Fehlerbehandlungsmechanismen, um mit unerwarteten Situationen umzugehen, wie z.B. leeren Spalten.

FAQ: Häufige Fragen

1. Wie kann ich die letzte benutzte Zeile in einer anderen Spalte finden? Du kannst die Methode Cells(Rows.Count, Spaltennummer).End(xlUp).Row verwenden, wobei Spaltennummer die Nummer der gewünschten Spalte ist.

2. Warum wird die Auswahl manchmal bis zum Ende der Tabelle ausgeweitet? Das passiert, wenn die Zelle, von der aus du startest, leer ist. Daher solltest du immer die letzte benutzte Zeile ermitteln, bevor du die Auswahl triffst.

Beliebteste Forumthreads (12 Monate)

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