Live-Forum - Die aktuellen Beiträge
Datum
Titel
22.10.2025 19:40:18
Prüfen ob Datei offen
22.10.2025 19:07:50
Bedingtes kopieren in andere A.-Blätter u. VBA Anpassungen
22.10.2025 16:04:18
Auswahl der Datenüberprüfung auf Folgezellen übertragen
22.10.2025 15:36:11
wie oft kommt ein Buchstabe in einem Array vor, Zählenwenn
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ende einer Tabelle festlegen

Forumthread: Ende einer Tabelle festlegen

Ende einer Tabelle festlegen
07.07.2003 11:13:12
Michael
Guten Tag,
ich habe ein kleines Problem. Ich lösche eine Tabelle mit
Range("a2:c100").ClearContents. Danach wir die Tabelle per Code mit Daten aus einem anderen Blatt gefüllt, aber jedesmal mit einer anderen Anzahl von Zeilen.
Das Ende der Tabelle liegt aber dann immer bei Zeile 100 (STRG-Ende). Da die Daten von diesem Blatt aber in ein Datenbankprogramm importiert werden, werden immer zu viele Zeilen importiert (immer bis 100) obwohl nur 29 Datensätze Werte erhalten. Mit welchem Befehl kann ich das Ende auf die letzte ausgefüllte Zeile sezten (die Zeilennr ist ein hochgezählter Wert, also bekannt.
Danke schon mal für die Hilfe
Gruß
Michael
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Ende einer Tabelle festlegen
07.07.2003 13:07:28
Daniel P
Hallo Michael,
Excel merkt sich irgendwie, welche Zellen mal benutzt waren, und springt immer wieder nach unten. Versuche es mal mit CurrentRegion.
Range("A1").CurrentRegion gibt den zusammenhängenden Bereich um A1 herum zurück. Wenn Du mit Offset und Resize ein bisschen spielst, kommst Du auf die unterste, gefüllte Zelle:
set oRng=Range("A1")
set oRng=oRng.CurrenRegion
set oRng=oRng.Resize(,1)
set oRng=oRng.Offset(oRng.Rows.Count-1)
Daniel

Anzeige
AW: Ende einer Tabelle festlegen
07.07.2003 11:24:48
WernerB.
Hallo Michael,
so kannst Du die die Zeilennummer der letzten Zelle mit Inhalt in der Spalte "A" ermitteln:
MsgBox Cells(Rows.Count, 1).End(xlUp).Row
Viel Erfolg wünscht
WernerB.

AW: Ende einer Tabelle festlegen
07.07.2003 12:17:13
Michael
Das hilft nicht! Ich weiß wo das Ende ist, ich WILL es festlegen!!!!.
Mit "STRG-ENDE" springt Excel zu einer bestimmen Zelle. Aber ich weiß nicht wie diese Zeile zu stande kommt. Ich habe z.B. 26 Zeilen in der Tabelle aber mit "STRG-ENDE" springt er immer in zeile 29. Das muss irgendwas mit dem ClearContenst bzw. Clear zu tun haben. Kann ich denn mit "Cells(Rows.Count, 1).End(xlUp).Row"
auch das Ende der Tabelle festlegen. Das ist wichtig, weil die Datenbank immer bis zu dem mit "STRG-ENDE" angezeigten Ende die Daten improtiert. D. H. es werden viele leere Datensätze mit Importiert.


Anzeige
AW: Ende einer Tabelle festlegen
08.07.2003 20:29:45
WernerB.
Hallo Michael,
das nachstehende Makro ermittelt selbsttätig das Ende der Tabelle und kopiert die Werte in die "Tabelle2". Vielleicht gibt es Dir ja einen Denkanstoß.
Wenn Du aber unbedingt mit "STRG-ENDE" arbeiten willst, solltest Du nach dem Löschen der unteren Werte die Datei speichern; danach funktioniert "STRG-ENDE" wieder in Deinem Sinne. 

Sub Michael()
Dim laR As Long
laR = Cells(Rows.Count, 1).End(xlUp).Row
Range("A2:C" & laR).Copy
Sheets("Tabelle2").Range("A2").PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Viel Erfolg wünscht
WernerB.

Anzeige
AW: Ende einer Tabelle festlegen
07.07.2003 11:20:34
Thomas Scher
Hallo Michael,versuche es mal damit! MUst du nur auf deine Zelle wo der erste Wert drin steht ändern ..
Range("A2").Select 'markiert alle daten in den Zellen
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Dann nur noch den letzten Wert in der DB suchen und dahin kopieren..das sieht dann ungefähr so aus !
Sheets("??").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
gruss
Thomas

Anzeige
;

Forumthreads zu verwandten Themen

Bereich Ende mit Strg+Ende
Kerstin

Werden bei einer bestehenden Tabelle Zeilen gelöscht und danach Strg+Ende gedrückt, springt Excel zum ehemals letzen Zelle (Bsp. zuerst letzte Zeile 20, Löschen der Zeilen 10-15, Springen mit Strg+Ende -> Excel geht in Zeile 20 und nicht Zeile 14). Wie kann man das Dokument bearbeiten, so dass...
10.04.2002 12:42:07
Thread-ID: 112062
4 Beiträge
STRG+Ende
Detlef

Hallo zusammen,
ich habe ein Kopierproblem. Wenn ich ein komplettes Blatt kopieren möchte, bekomme ich den Hinweis: Excel kann diesen Vorgang mit den verfügbaren Ressourcen nicht ausführen. Bitte wählen Sie weniger Daten aus oder schließen Sie andere Programme.
Das Problem scheint in de...
19.07.2010 15:05:42
Thread-ID: 1167742
6 Beiträge
Strg + Ende
Peter

Hallo,
ich habe das Problem, dass mit STRG + Ende immer die zuletzt bearbeitete Zelle erreicht.
Kann ich dieses Verhalten ändern, da ich dummerweise zuletzt in der Zelle iv65536 war.
Gruß
Peter
13.10.2010 10:25:34
Thread-ID: 1182167
3 Beiträge
Summenprodukt am Ende der Tabelle
Bernhard

Wertes allwissendes Forum!
Ich probier jetzt schon seit zwei Stunden eine Summenproduktformel ans Ende meiner Tabelle zu bringen, aber ich bekomme es einfach nicht hin.
In Spalte G soll das Summenprodukt von Spalte I und Spalte J gebildet werden, dann durch die Summe aus Spalte K getei...
08.03.2011 10:53:51
Thread-ID: 1204725
4 Beiträge
Rahmen und Formel bis Ende der Tabelle
Alex105

Hallo Zusammen,
ich habe eine Tabelle, die ich mithilfe von einem Makro formatieren lasse. Jetzt benötige ich für 2 Punkte innerhalb dieser Tabelle mal bitte Eure Hilfe.
1. Punkt: In E2 fängt eine Wenn-Formel an, die bis ans Ende der Tabelle laufen soll (Tabellenlänge ist dynamisch)
...
12.05.2014 10:31:47
Thread-ID: 1361048
8 Beiträge
Cursor springt zu weit nach Return
mike49

Hallo zusammen,
wenn ich mein Übersichtsmappe öffne, wird die Eingabezelle beim aktuellen Datum zur Werteingabe angesprungen. Das ist so gewollt und funktioniert auch prima.
Nach der Stundeneingabe und Drücken der Return-Taste springt der Cursor jedoch in die Eingabezelle des nächsten M...
14.08.2014 15:29:29
Thread-ID: 1376489
3 Beiträge
Spalte mit selben Wert bis Ende der Tabelle fuelle
Marvin

Hallo zusammen,
Ich habe folgendes Problem:
Ich habe eine Tabelle mit mehreren Spalten von denen alle ausgefuellt sind, ausser eine, Spalte O. In die soll ueberall der Wert "GBP" eingefuegt werden, allerdings nur bis zum Ende der Tabelle.
Bisher habe ich diesen Code: Sub ContentGBP(...
16.01.2015 15:58:30
Thread-ID: 1403249
9 Beiträge
Anzeige
Autofill bin Ende der Tabelle in anderer Datei
Marvin

Hallo zusammen,
ich habe folgenden Code, der mir die Formel in Zelle A1 bis zum Ende der Tabelle mit einem Autofill "kopiert":
Private Sub CommandButton1_Click() letzte = Cells(Rows.Count, 3).End(xlUp).Row Range("A1").AutoFill Destination:=Range("A1:A" & letzte) End Sub Ich probier...
03.02.2015 11:10:32
Thread-ID: 1406890
4 Beiträge
Anzeige
Debugger springt an bei Nutzung weiterer Exceldatei
bernhardtautz

Hallo VBA -Experten,
eine ungewöhnliche Frage:
Ich habe eine Anwendung gebastelt, die zahlreiche Makros enthält u.a. solche die bei beim Öffnen, Speichern oder Drucken aktiviert werden und auch einige, die bei Änderungen auf bestimmten Blättern greifen, oder Funktionen deaktivieren, ku...
21.04.2015 21:14:30
Thread-ID: 1422273
3 Beiträge
Anzeige
For i = 3 To Ende der Tabelle?
Chep

Hallo Forum,
ich arbeite momentan mit For i = 3 To 100. Das Poblem ist jedoch das meine Tabelle teilweise darunter bzw darüber mit Werten gefüllt ist. Anstatt 100 fest vorzugeben würde ich gerne das Ende der Tabelle bzw. die letzte Zeile mit Werten angeben. Jemand einen Rat wie ich das umse...
22.05.2015 14:32:18
Thread-ID: 1427348
9 Beiträge
erstelltes Tabellenblatt immer wieder verwenden
Jo

Hallo zusammen,
nachdem mir vorhin schon bei einem anderen Problem sehr gut geholfen wurde, habe ich hier die nächste Hürde.
Ich habe eine Excel-Datei mit 2 Tabellenblättern.
In der Tabelle1 stehen meine Grunddaten in mehreren Zeilen und Spalten. Alle 16 Zeilen wiederholt sich das...
27.10.2015 10:49:51
Thread-ID: 1454665
5 Beiträge
Zeilen abhängig aus/einblenden in anderer Tabelle
Martin

Hallo, habe das Forum durchsucht, aber nicht die Lösung für meine Frage gefunden:
In Tabelle2 ändert sich der Wert in Zelle H1 über die Formel "=Tabelle1!$D$26".(entweder Wert "1" oder "2"), Nun möchte ich, dass sich in Tabelle2 die Zeilen 5 bis 39 ausblenden, wenn in Tabelle2 in Zelle H1 d...
03.05.2016 12:56:30
Thread-ID: 1491659
13 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Ende einer Tabelle festlegen in Excel

Schritt-für-Schritt-Anleitung

  1. Daten löschen: Wenn du eine Tabelle mit Range("A2:C100").ClearContents leerst, merkt sich Excel manchmal die letzten benutzten Zellen. Um das Ende der Tabelle korrekt festzulegen, kannst du den Bereich dynamisch anpassen.

  2. Letzte Zeile ermitteln: Verwende den folgenden Befehl, um die letzte Zeile mit Daten zu ermitteln:

    laR = Cells(Rows.Count, 1).End(xlUp).Row

  3. Ende der Tabelle anpassen: Um das Ende der Tabelle zu definieren, kannst du den ermittelten Wert nutzen, um deinen Bereich zu kopieren oder weitere Daten hinzuzufügen.

  4. Makro erstellen: Du kannst ein Makro wie folgt erstellen, um die letzten Werte in eine andere Tabelle zu kopieren:

    Sub TabelleKopieren()
   Dim laR As Long
   laR = Cells(Rows.Count, 1).End(xlUp).Row
   Range("A2:C" & laR).Copy
   Sheets("Tabelle2").Range("A2").PasteSpecial Paste:=xlValues
   Application.CutCopyMode = False
End Sub

Häufige Fehler und Lösungen

  • STRG-ENDE springt zu weit: Wenn STRG-ENDE immer zu einer bestimmten Zeile springt, die nicht mit deinen Daten übereinstimmt, kann das an nicht sichtbaren Inhalten oder formatierten Zellen in deiner Tabelle liegen. Überprüfe, ob es leere Zellen oder Formatierungen gibt, die Excel als "genutzt" betrachtet.

  • Letzte Zeile nicht korrekt ermittelt: Stelle sicher, dass du die richtige Spalte angibst, wenn du die letzte Zeile ermittelst. Verwende Cells(Rows.Count, <Spalte>).End(xlUp).Row, wobei <Spalte> die entsprechende Spalte ist.

Alternative Methoden

  1. CurrentRegion verwenden: Mit Range("A1").CurrentRegion kannst du den zusammenhängenden Bereich um eine Zelle ermitteln. Damit kannst du schnell das Ende der Tabelle festlegen.

  2. Offset und Resize: Kombiniere Offset und Resize, um den Bereich der letzten Zeile und Spalte dynamisch zu definieren.

  3. Direktes Kopieren: Wenn du nur den Bereich kopieren möchtest, kannst du auch direkt mit:

    Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select

    arbeiten, um die Daten zu markieren, bevor du kopierst.

Praktische Beispiele

  • Wenn du Range("A1").CurrentRegion verwendest, um den Bereich zu ermitteln, kannst du nachfolgend den Bereich anpassen und kopieren:

    Set oRng = Range("A1").CurrentRegion
oRng.Copy Destination:=Sheets("Tabelle2").Range("A1")

  • Bei Verwendung von Offset und Resize:

    Set oRng = Range("A1").CurrentRegion
Set oRng = oRng.Resize(, 1).Offset(oRng.Rows.Count - 1)

Tipps für Profis

  • Regelmäßiges Speichern: Speichere deine Datei nach dem Löschen von Inhalten. Das hilft Excel, das STRG-ENDE Verhalten zu korrigieren.

  • Zellenformatierung überprüfen: Manchmal kann das Format einer Zelle dazu führen, dass Excel denkt, sie sei belegt. Überprüfe die Zellen auf unerwünschte Formatierungen oder Inhalte.

  • Makros optimieren: Stelle sicher, dass dein Makro effizient ist, indem du unnötige Berechnungen vermeidest und nur die benötigten Bereiche bearbeitest.

FAQ: Häufige Fragen

1. Wie kann ich das Ende meiner Tabelle dauerhaft festlegen?
Um das Ende der Tabelle festzulegen, nutze VBA, um die letzte Zeile zu ermitteln und den Bereich manuell zu definieren.

2. Warum springt STRG-ENDE nicht zur richtigen Zeile?
Das liegt häufig daran, dass Excel Zellen als "benutzt" merkt. Überprüfe den Bereich auf leere oder unsichtbare Inhalte, die das Verhalten beeinflussen.

3. Was ist der Unterschied zwischen ClearContents und Clear?
ClearContents löscht nur die Inhalte der Zellen, während Clear auch die Formatierungen entfernt. Dies kann das Verhalten von STRG-ENDE beeinflussen.

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