Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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

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

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

83 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
Verweis Wert aus letzter Zeile mit Inhalt
Joerschi

Hallo liebe Excel-Community,
ich probiere nun schon ein bisschen rum, komme aber leider nicht weiter.
Ich möchte den Wert aus einem Verweis bestimmen.
In einer Spalte B sind x-Anzahl Zahlenwerte vorgegeben. Der letzte Wert davon soll als Kriterium für den Verweis bestimmt werden und...
22.03.2009 18:09:10
Thread-ID: 1062681
6 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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
10
4
4
5
8
2
2
7
3
2
4
5
2
5
3
4
7
8
15
3
5
2
17