Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worksheets().Range in Verbindung mit letzter Zeile

Forumthread: Worksheets().Range in Verbindung mit letzter Zeile

Worksheets().Range in Verbindung mit letzter Zeile
07.02.2014 18:45:34
schluk5
Hallo,
ich weiss grad nicht, wo hier der Fehler liegt und finde auch nichts passendes dazu hier im Forum.
Was ist am folgenden Code nicht in Ordnung? 

Range("M:M").Value = Worksheets("Daten").Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)). _
Value

Ohne den Teil, der nur den "beschrieben Bereich" beruecksichtigt geht es ja: 

Range("M:M").Value = Worksheets("Daten").Range("A:A").Value

Hier fehlen mir vermutlich noch ein paar Grundlegende VBA Kentnisse...
Viele Gruesse!

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Immer wieder das gleiche...
07.02.2014 19:14:00
EtoPHG
schluk,
Die Objekte Range("M:M"), Cells(r,c) und Rows.Count referenzieren nicht auf die vorangestellten Objekte.
Wichtig: In was für einem Klassenmodul (Arbeitsmappe, Tabelle, Modul) steht der Code?
Je nachdem beziehen sich die unreferenzierten Objekte auf das gerade aktive Blatt oder eben die Tabelle in deren Klassenmodul der Code steht. Zudem willst du einen Teil einer Spalte einer gesamten Spalte zuordnen. Ist das beabsichtigt?
Eine vollständige Referenzierung könnte z.B. lauten: 
With ThisWorkbook.Worksheets("Daten")
.Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy
ActiveSheet.Cells(1,13).PasteSpecial Paste:=xlPasteValues
End With
Gruess Hansueli

Anzeige
AW: Immer wieder das gleiche...
07.02.2014 19:28:32
Franc
k .. ich hätte erst deinen Beitrag lesen sollen bevor ich "falsch" antworte ;-)
Wieder was dazugelernt. ^^
wußte gar nicht, das Cells(Rows.Count, 1).End(xlUp) so funktioniert
normal liefert das doch nur den Wert zurück ...
naja - wieder was dazugelernt

Was liefert was ?...
07.02.2014 20:34:36
EtoPHG
Franc,
Grundsätzlich liefert Cells(Rows.Count, 1).End(xlUp) gar nichts, sondern stellt ein Objekt dar, nämlich die letze Zelle mit Inhalt einer Spalte von unten nach oben gesehen.
Die Default-Eigenschaft einer Zelle ist deren Wert, spricht .Value.
Wenn du also eine einfache Zuweisung des Zellobjekts zu einer Variablen machst, z.B. durch
V = Cells(Rows.Count, 1).End(xlUp) dann wird in V der Wert des Objekts übergeben.$
Wenn du .Row anhängst, dann eben die Eigenschaft Row, als die Zeilennummer der Zelle.
Schreibst du hingegen Set V = Cells(Rows.Count, 1).End(xlUp), wird die Variable V (sofern als Objekt oder Variant definiert) zu einem weiteren Objekt, das die wiederum die Eigenschaft .Value hat.
Also: Immer gut unterscheiden, was ist ein Objekt, was eine Methode (z.B. End), was eine Eigenschaft!
Gruess Hansueli

Anzeige
AW: Was liefert was ?...
07.02.2014 20:54:19
EtoPHG
Franc, denn richtigerweise hätte der Anfang lauten sollen:
Die Methode .End mit dem Parameter xlup angewandt auf das Objekt Cells(Rows.Count, 1) liefert als Objekt die erste, nicht leere Zelle aus der Richtung des letzten Zelleadresse der Spalte A nach oben gesehen zurück.
Die Methode liefert übrigens eine von den meisten Anwendern unerwartete Zelle zurück, wenn die letzte Zelle der Spalte einen Inhalt hat. Welche und warum?
Gruess Hansueli

Anzeige
AW: Was liefert was ?...
08.02.2014 00:48:30
Franc
Ich weiß schon, warum ich bei VBA "kaum Kenntnisse ausgewählt habe" ^^
Ich finde zwar Möglichkeiten wie ich Dinge umsetzen/anpassen kann aber das Problem ist wohl das ich häufig nicht weiß warum/wie das funktioniert.
Deshalb hatte ich auch erwartet, das
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
auf Fehler läuft, weil für mein Verständnis nicht nur die Spaltenangabe fehlt sondern auch .End(xlUp) unvollständig war.
Das mit Objekt/Methode/Eigenschaft war mir auch nicht (so) bekannt. (ahh mir wird grad bewusst wie wenig ich weiß ...)
Ich denk aber ich habe was dazugelernt und dafür bin ich dir dankbar.

Anzeige
AW: Immer wieder das gleiche...
07.02.2014 19:31:29
schluk5
Ah ok. Das wusste ich natuerlich nicht...:-( Danke Hansueli!!
Der Code steht in einem Tabellenblatt "Suche". In dieses wollte ich beispielhaft einen Bereich aus dem Tabellenblatt "Daten" kopieren.
Das Mit der Zuordnung der verschieden grossen Bereiche war natuerlich unguenstig gewaehlt.
Eigenltich bin ich auf der Suche nach einer Loesung fuer ein etwas anderes Problem und hatte obiges Besipiel nur gewaehlt, da ich dachte es waere einfacher zu erklaeren.
Mein eigentliches Problem ist folgendes (der code steht wieder im Arbeistblatt "Suche"): 

If Application.CountIf(Worksheets("Daten").Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)),  _
Range("D30")) Then
Else: MsgBox "ungueltige Artikelnummer"

Es soll ueberprueft werden ob der Zelleninhalt in "D30" aus dem Tabellenblatt "Suche" in einer Liste in Tabellenblatt "Daten" vorhanden ist.
So funktioert es (aus nun bekannten Gruenden) jedenfalls nicht.
Muss ich hier wieder mit der with-Umgebung arbeiten?

Anzeige
Alle aufdröseln...
08.02.2014 08:41:37
EtoPHG
Hallo schluk, 
    Dim rBereich As Range
Dim vKriterium As Variant
With ThisWorkbook.Worksheets("Daten")
Set rBereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
vKriterium = ThisWorkbook.Worksheets("Daten").Range("D30").Value
If WorksheetFunction.CountIf(rBereich, vKriterium) Then
' kommt vor
Else
MsgBox "ungueltige Artikelnummer"
End If
Gruess Hansueli

Anzeige
AW: Worksheets().Range in Verbindung mit letzter Zeile
07.02.2014 19:24:05
Franc
3 Fehler ^^
1.
Cells(Rows.Count, 1).End(xlUp) ist unvollständig
Um die letzte Zeile zu finden muss .row ergänzt werden also
Cells(Rows.Count, 1).End(xlUp).Row
2.
dann gehts aber immer noch nicht
Nehmen wir an die letzte Zeile ist 10, dann würde der Audrück diesen Bereich ergeben
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Row)
Cells(1, 1) = A1
Cells(Rows.Count, 1).End(xlUp).Row = 10
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp).Row) = Range("A1:10")
Wie wir sehen, fehlt die Spaltenangabe
3.
Du musst auch den Bereich eingrenzen, wo du es einfügst (bei mir stand ansonsten überall unterhalb der letzten Zeile "#nv"
Richtig ist (hab letzt zeile ausgelagert, damit es übersichtlicher wird
lLetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
Range("M1:M" & lLetzteZeile).Value = Worksheets("Daten").Range(Cells(1, 1), Cells(lLetzteZeile, 1)).Value
Anzeige
;

Forumthreads zu verwandten Themen

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
letzte benutzte Zeile eines Namens-Bereichs
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],...
23.11.2008 19:43:00
Thread-ID: 1027146
11 Beiträge
Anzeige
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
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
Letzte Zeile eines Bereiches finden
Claudia

Hallo zusammen,
ich suche per Formel die letzte belegte Zelle im Bereich E22:E33. Kann mir da jemand helfen? Es darf nicht die letzte belegte Zelle in Spalte E sein, weil im Anschluss noch Zellen belegt sind.
Danke!
Viele Grüße
Claudia
27.04.2009 15:07:05
Thread-ID: 1071392
9 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige
letzte Zelle in Zeile via vba
Stef@n

Hallo
steh gerad auf dem Schlauch ;O
ich suche via vba die letzte gefüllte Zelle in der Zeile 1
letzte Zeile :
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row ' funktioniert
letzte Zelle in Zeile 1
For Spalte = 2 To 15 'hier möchte ich die letzte Spalte find...
20.11.2009 11:44:16
Thread-ID: 1118854
3 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
letzte Zeile eines Bereichs
Mike


Hallo Cracks,
in einer Tabelle mit vielen aufeinanderfolgenden Bereichen möchte
ich jeweils pro zusammenhängender Gruppe die letzte benutzte
Zeile ausfindig machen.
Tabelle1 BC4AZeile 75B  6C  7D  8    9    10    11AZeile 1...
26.05.2010 09:29:22
Thread-ID: 1158829
4 Beiträge
VBA - letzte Zeile ermitteln
WalterK

Hallo,
für die letzte belegte Zeile in Spalte D habe ich folgende Codezeile gefunden:
Zeletzte = Cells(Rows.Count, 4).End(xlUp).Row
Leider werden hier auch die Formelergebnisse "" mitberücksichtigt.
Wie müßte die Codezeile lauten, wenn für die Ermittlung der letzten belegten Zei...
09.12.2011 11:55:16
Thread-ID: 1241383
6 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Arbeiten mit Worksheets().Range und der letzten Zeile in Excel VBA

Schritt-für-Schritt-Anleitung

  1. Bestimme die letzte Zeile in einem Bereich: Um die letzte Zeile mit Inhalt zu finden, kannst du den folgenden VBA-Code verwenden:

    Dim letzteZeile As Long
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row

  2. Verwende Worksheets().Range: Um auf einen Bereich zuzugreifen, der von der ersten bis zur letzten Zeile reicht, nutze diesen Code:

    With ThisWorkbook.Worksheets("Daten")
   .Range(.Cells(1, 1), .Cells(letzteZeile, 1)).Copy
End With

  3. Setze Werte in einen anderen Bereich: Um die Werte in eine andere Spalte zu übertragen, kannst du den folgenden Code verwenden:

    ActiveSheet.Range("M1:M" & letzteZeile).Value = Worksheets("Daten").Range(.Cells(1, 1), .Cells(letzteZeile, 1)).Value

Häufige Fehler und Lösungen

  • Unzureichende Referenzierung: Wenn du Range("M:M") verwendest, ohne das Arbeitsblatt zu referenzieren, kann es zu Problemen kommen. Stelle sicher, dass du die richtige Referenz hast:

    With ThisWorkbook.Worksheets("Daten")
   .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).Copy
End With

  • Fehlende Spaltenangabe: Wenn du Cells(Rows.Count, 1).End(xlUp) verwendest, vergiss nicht die .Row-Eigenschaft hinzuzufügen:

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

Alternative Methoden

  • Verwendung von Range.End: Du kannst die letzte Zeile auch mit Range("A1").End(xlDown).Row finden, allerdings kann dies zu unerwarteten Ergebnissen führen, wenn die Zelle unter A1 leer ist.

  • Zugriff auf ActiveSheet: Anstelle von ThisWorkbook.Worksheets kannst du auch ActiveSheet verwenden, um auf das aktuell aktive Blatt zuzugreifen. Dies kann jedoch zu Verwirrungen führen, wenn das falsche Blatt aktiv ist.

Praktische Beispiele

  • Kopieren eines Bereichs: Um einen Bereich von Zellen zu kopieren, der von der ersten bis zur letzten Zeile reicht, kannst du den folgenden Code verwenden:

    Dim letzteZeile As Long
letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("M1:M" & letzteZeile).Value = Worksheets("Daten").Range("A1:A" & letzteZeile).Value

  • Zählen mit CountIf: Um zu überprüfen, ob ein bestimmter Wert in einem Bereich vorhanden ist, kannst du diesen Code verwenden:

    Dim vKriterium As Variant
vKriterium = ThisWorkbook.Worksheets("Suche").Range("D30").Value
If WorksheetFunction.CountIf(Worksheets("Daten").Range("A1:A" & letzteZeile), vKriterium) Then
   ' Wert gefunden
Else
   MsgBox "Ungültige Artikelnummer"
End If

Tipps für Profis

  • Verwende For Each Schleifen: Wenn du durch einen Bereich iterieren möchtest, kannst du For Each cell In Range verwenden, um jeden Wert einzeln zu verarbeiten.

  • Optimierung der Performance: Deaktiviere Bildschirmaktualisierung und automatische Berechnungen während der Ausführung deines Codes, um die Performance zu verbessern:

    Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' Dein Code hier
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

FAQ: Häufige Fragen

1. Wie finde ich die letzte Zeile einer bestimmten Spalte?
Verwende den Code letzteZeile = Cells(Rows.Count, 1).End(xlUp).Row, wobei die 1 die Spalte A repräsentiert. Ändere die Zahl für andere Spalten entsprechend.

2. Was ist der Unterschied zwischen .Row und .Value in VBA?
.Row gibt die Zeilennummer einer Zelle zurück, während .Value den Inhalt der Zelle wiedergibt.

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