VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Nobody

Datum:
15.11.2021 09:32:14

Views:
470

Rating:

Antwort:

Thema:
ein oft gemachter Fehler

Nachtrag ich sehe gerade die Antwort des Kollegen, und der war aufmerksamer als ich!! Hochachtung an den Kollegen, und Lösung von mir.

stelle deinen Code bitte so um: teste bitte zuerst ob der Copyrange stimmt. Aktiviere zum ansehen Sheet "Sales data" und schu dir den Range an.

Sheets("Sales data").Cells(j, 1), Resize(1 23)).Copy: Exit Sub Das Exit Sub dient nur zum Stoppen des Codes um dir den Rang anzusehen

Warum klappt es so?? Cells(j, 1) bezieht sich auf das Blatt "Sales data" und Resize erweiter den Bereich um 23 Spalten nach rechts

Mit Resize(10, 1) erweiterst du um 10 Zeilen nach unten, und Resize( 10, 5) erweitert um die angegebenen Spalten und Zeilen. Verstanden?

mfg Nobody

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen