Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon jojo5 vom 19.05.2020, 17:26 Options
Laufzeitfehler '1004' - bei Sheets().Range(Cells(), Cells()).copy
Hallo,
den o.g. Fehler erhalte ich bei folgendem Code:
Set raZelle = Range("ExcName_Hochrechnung_Quelle")
ErsteZeile = Range(raZelle.Address).Row
ErsteSpalte = Range(raZelle.Address).Column
LetzteZeile = Sheets("Hochrechnung").Cells(Rows.Count, ErsteSpalte).End(xlUp).Row
LetzteSpalte = ErsteSpalte + 2
Sheets("Hochrechnung").Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte)).Copy
Wenn ich "Sheets("Hochrechnung")." weglasse, funktioniert es - allerdings wird nur dann der korrekte Bereich kopiert, wenn zur Laufzeit dieses Sheet selektiert/aktiviert ist. Das möchte ich aber (eigentlich) nicht.
Was muss ich an o.g. Code ändern, damit ich
- ohne zu selektieren/aktivieren - den gewünschten Bereich in den Zwischenspeicher bekomme?
Vielen Dank schon mal
Jojo
den o.g. Fehler erhalte ich bei folgendem Code:
Set raZelle = Range("ExcName_Hochrechnung_Quelle")
ErsteZeile = Range(raZelle.Address).Row
ErsteSpalte = Range(raZelle.Address).Column
LetzteZeile = Sheets("Hochrechnung").Cells(Rows.Count, ErsteSpalte).End(xlUp).Row
LetzteSpalte = ErsteSpalte + 2
Sheets("Hochrechnung").Range(Cells(ErsteZeile, ErsteSpalte), Cells(LetzteZeile, LetzteSpalte)).Copy
Wenn ich "Sheets("Hochrechnung")." weglasse, funktioniert es - allerdings wird nur dann der korrekte Bereich kopiert, wenn zur Laufzeit dieses Sheet selektiert/aktiviert ist. Das möchte ich aber (eigentlich) nicht.
Was muss ich an o.g. Code ändern, damit ich
- ohne zu selektieren/aktivieren - den gewünschten Bereich in den Zwischenspeicher bekomme?
Vielen Dank schon mal
Jojo
Antwort 1 von Hajo_Zi vom 19.05.2020, 17:29 Options
Hallo ,
With Sheets("Hochrechnung")
.Range(.Cells(ErsteZeile, ErsteSpalte), .Cells(LetzteZeile, LetzteSpalte)).Copy
End With
Gruß Hajo
With Sheets("Hochrechnung")
.Range(.Cells(ErsteZeile, ErsteSpalte), .Cells(LetzteZeile, LetzteSpalte)).Copy
End With
Gruß Hajo
Antwort 2 von jojow vom 19.05.2020, 17:58 Options
Hallo Hajo,
super - vielen Dank!
Die Idee hatte ich auch. Aber ich habe keine Punkte vor "Cells" gesetzt. Wann muss ich das denn tun? Immer bei "With"?
Danke, Gruß
Jojo
super - vielen Dank!
Die Idee hatte ich auch. Aber ich habe keine Punkte vor "Cells" gesetzt. Wann muss ich das denn tun? Immer bei "With"?
Danke, Gruß
Jojo
Ähnliche Themen
Brauche hilfe bei Excel Makro
Kesc 10.01.2007 - 85 Hits - 6 Antworten
Mappei öffnen und wieder schliessen VBA
kurt32 30.01.2007 - 94 Hits - 2 Antworten
IF..Then Bedingung in Makro perfomanter machen
Markus76 06.03.2007 - 111 Hits - 7 Antworten
Laufzeitfehler '438
sebal 14.11.2007 - 56 Hits - 9 Antworten
Laufzeitfehler 1004
igrimm 29.04.2008 - 59 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
