Ein Fall für Onur (Select)

Wennerfaellt · 2024-06-07T22:21:05+00:00

https://www.herber.de/bbs/user/169911.xlsm Sub Nord() Sheets("Beck").Select Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("AB").Range("A1") End Sub Sub Süd() Sheets("Beck").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("AB").Range("A1") End Sub Nachdem Onur immer wieder Predigt, dass .Select in den meißten Fällen nicht nötig ist, und ich das beherzigt habe, und damit viel Rechenzeit und Bildgeflimmer spare, steh ich hier nun vor einem Rätsel. Die oben angegebenen Codes unterscheiden sich nur dadurch, dass ich in Süd das "Select" weggelassen, und damit aus zwei Zeilen eine gemacht habe. Im Ergebnis sollte im Tabellenblatt AB eigentlich dasselbe stehen(?) Wenn Du diese Frage für Dich klar hast, öffne die Datei umd probier es aus. Mein Ergebnis weiter unten, bitte erst später lesen;-) . . . . . . . . . . Im Sub Nord bekomme ich alle Adressen übertragen, im Sub Süd nur die Erste. Warum???

@All,

wenn man sich auf ein nicht aktives Tabellenblatt beziehen will ist in der Codezeile

Sheets("Beck").Cells(Sheets("Beck").Rows.Count, 1).End(xlUp).Row)

an DIESER Stelle Sheets("Beck").Cells(Sheets("Beck").Rows.Count, 1).End(xlUp).Row) logischerweise ein Bezug aufs betreffende Tabellenblatt erforderlich. Die Frage wäre: ist der Bezug an DIESER Stelle Sheets("Beck").Cells(Sheets("Beck").Rows.Count, 1).End(xlUp).Row) tatsächlich erforderlich? Die Anzahl an Zeilen ist in allen Blättern identisch. M.E. ist die folgende Schreibweise deshalb ebenfalls völlig korrekt:

Sheets("Beck").Cells(Rows.Count, 1).End(xlUp).Row)

Oder übersehe ich da etwas?

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Hallo,

vielleicht sollte man das Kernproblem zusammenfassen:

Es gibt eine Datei mit zwei Blättern: "Beck" mit einer beliebigen Anzahl von gefüllten Zellen und "AB" mit, im Ausgangszustand, nur leeren Zellen.
Der Code ist hinter dem Blatt "AB".

Mit Sheets("Beck").select mache ich das für die nachfolgenden Anweisungen, insbesondere Adressierungen, zum aktiven Blatt.
Cells(Rows.Count, 1).End(xlUp).Row bezieht sich hier also auf "Beck" mit 6 Zeilen, die auch alle in das Blatt "AB" kopiert werden.

Im Gegensatz dazu ist bei dem anderen Makro das Blatt "AB" aktiv.
Sheets("Beck").Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("AB").Range("A1")
Also bezieht sich Cells(Rows.Count, 1).End(xlUp).Row hier auf das Blatt "AB", welches hier leer ist, d.h. der Wert wird zu 1.
Genau wie bei der With-Syntax gilt hier, dass man die einzelnen Teile der Adressierungen auch auf das gewünschte Blatt referenzieren muß:
Sheets("Beck").Range("A1:A" & Sheets("Beck").Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("AB").Range("A1")

Das gilt ja generell bei Makros, die in Modulen oder Diese Arbeitsmappe stehen.
Also wieder einmal ein Beweis dafür, dass eine saubere Referenzierung das A u. O ist, um (vor allem nicht offensichtliche) Fehler zu vermeiden.

Aber der TE äußert sich nicht mehr dazu.

Gruß

Edgar

Forumthread: Ein Fall für Onur (Select)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Ein Fall für Onur (Select)

Forumthread: Ein Fall für Onur (Select)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread