Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren

Forumthread: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren

Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 08:39:33
anno
Hallo,
muss per vba aus geoeffneter .xlsm ( Quelle ) einen bestimmten Worksheet-Blattbereich als .jpg in eine weitere geoeffnete .xlsm ( bestimmter Blattbereich ) kopieren.
Dabei tritt Fehler: 'Laufzeitfehler 1004: Die PasteSpecial-methode des Range-Objektes konnte nicht ausgefuehrt werden' auf.
Getestet in Versionen: 'MS Office Prof Plus 2016' ( lokaler PC ) und 'MS 365' ( ueber Netzwerk )
Meine Suche in Foren brachte mich leider nicht weiter.
Kann jemand helfen? Mit Bildern in vba habe ich praktisch keine Erfahrung.
Gruß
anno

https://www.herber.de/bbs/user/169527.txt
Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 09:25:19
Oberschlumpf
Hi,

zeig doch bitte per Upload eine EXCEL-Bsp-Datei MIT Bsp-Daten und dem Code...in der Datei.

Ciao
Thorsten
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 10:45:56
schauan
Hallöchen,

was würdest Du bei PasteSpecial für eine Option nehmen? Hast Du da was mit Picture?
ich hätte ActiveSheet.Pictures.Paste ... im Angebot.


Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
19.05.2024 09:06:59
anno
Hallo,

aktualisiert: habe die ganze Datei upgeloadet: https://www.herber.de/bbs/user/169568.xlsm
sowie die dazu notwendige Vorlage-Datei: https://www.herber.de/bbs/user/169569.xlsm
Dabei tritt Fehler: 'Laufzeitfehler 1004: Die PasteSpecial-methode des Range-Objektes konnte nicht ausgefuehrt werden' auf.
Aktuelle Erkenntnis: ab und an funktionierte es auf lokalem PC. Ueber Netzwerk ? Kann es ein zeitliches Problem sein?


Gruß
Anton
Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
19.05.2024 13:51:19
schauan
Hallöchen,

habe es jetzt mehrfach getestet, hat immer funktioniert. Ergebnis:
https://www.herber.de/bbs/user/169571.xlsm
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 10:47:11
schauan
... das war an den TE gerichtet.
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 11:16:33
anno
Hallo schauan,

ich verstehe 'ActiveSheet.Pictures.Paste' in diesem Zusammenhang nicht.
Der Bereich auf dem Arbeitsblatt soll von einer ( aktiven Quelle ) .xlsm als .jpg in eine andere ( nicht aktives Ziel ) .xlsm ( beide geoeffnet ) kopiert werden.
Soll ich deiner Meinung nach nur vor dem ...paste auf die Ziel.xlsm aktivieren?
Gruß
anno
Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 11:30:20
schauan
Hallöchen,

Du kannst da mal etwas experimentieren. Eigentlich kannst Du zum "Bildertransport" ein einfaches Paste verwenden. Da kannst Du den Range direkt kopieren und als Bild einfügen.
Funktionieren tut mit PasteSpecial z.B. so was - wenn das zwei unterschiedliche Dateien sind. Dazu kopierst Du den Range hier als Bild

ThisWorkbook.Sheets(1).Range("C3").CopyPicture
ActiveWorkbook.Sheets(1).Range("C3").PasteSpecial

oder eben, wenn das Ziel nicht aktiv ist,

ThisWorkbook.Sheets(1).Range("C3").CopyPicture
Workbooks("Mappe1").Sheets(1).Range("C3").PasteSpecial

PasteSpecial hat sich nur in manchen Fällen etwas eng - da muss man genau schauen, was geht, wie man vorgeht, wie adressiert.


Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 11:36:56
schauan
... ich habe mir den Code mal angeschaut. Was mir am Anfang aufgefallen ist, da steht 

    Set w_wsZ = w_wbZ.Worksheets(s_ZB)

    ' Vorlage entsperren ...

    w_wbZ.Unprotect Password:=s_xW(2)


1)
Das Blatt w_wsZ ist nicht gesondert geschützt?
2)
Ich würde den Arbeitsmappenschutz mal vor dem set w_wsZ raus nehmen.


Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 15:24:10
schauan
3)
... und was mir noch aufgefallen ist, wo definierst Du w_wsQ ?

Mit Option Explicit am Anfang des Moduls bekommst Du eine Meldung, wenn eine Variable nicht definiert ist.
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 11:07:58
anno
Hallo Thorsten,

habe den vba-Teil hier: https://www.herber.de/bbs/user/169527.txt upgeloadet.
? Ausreichend
Gruß
Anton
Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 11:11:38
Onur
Was sollen wir mit einem Makro, das nur zusammen mit der entsprechenden Datei funktioniert ohne die Datei anfangen? Mutmaßen, wie die Datei dazu aussehen könnte ???
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
19.05.2024 08:48:55
anno
Hallo onur,

aktualisiert: habe die ganze Datei upgeloadet: https://www.herber.de/bbs/user/169568.xlsm
sowie die dazu notwendige Vorlage-Datei: https://www.herber.de/bbs/user/169569.xlsm
Aktuelle Erkenntnis: ab und an funktionierte es auf lokalem PC. Ueber Netzwerk ? Kann es ein zeitliches Problem sein?
Gruß
Anton
Anzeige
AW: Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
17.05.2024 14:37:29
Oberschlumpf
echt jetzt???

diese txt-Datei hattest du - doch schon - in deinem Erst-Beitrag gezeigt!
UND TROTZDEM, nein, GENAU DESWEGEN bat ich dich um eine - vollständige - Datei = Excel-Datei MIT Daten UND Code

aber ok, du verstehst mich nich, ich werd wohl dich nich verstehen...
weiter viel Erfolg...ciao Thorsten
Anzeige

Forumthreads zu verwandten Themen

Fehler in der Formel
Baywatch

Hi
ich habe eine Formel und die tut es leider nicht. Wenn ich MIN durch Max ersetze klappt es, aber warum bei min NIcht?
Vielleicht findet jemand den Denkfehler?
{=(BEREICH.VERSCHIEBEN(Daten!$A$1;SUMME(WENN(Daten!D1:D5002=MIN(WENN(Daten!F1:F5002="M"; Daten!D1:D5002;0));ZEILE(Date...
15.08.2008 15:59:00
Thread-ID: 1002235
8 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Anzeige
Bei Fehler schließen verhindern
Wolfgang

Einen guten abend an alle
Ich suche eine Lösung für folgendes Problem:
Ich habe eine Monatstabelle (Tab1 bis31) hier sind Spalten vorgegeben, bzw. werden
durch sverweis gefüllt, in den Tabellen sind nur einige Eingabefelder frei, ansonsten sind
die Tabellen geschützt.
Mein P...
17.12.2008 19:38:53
Thread-ID: 1033686
12 Beiträge
Fehler in der Verkettung der Formel ?
Selma

Hallo Leute,
ich habe in Spalte E und F mit Formeln die Zelleninhalte verkettet. Mit einem Makro markiere ich ab Zeile 3 die Zellen in Spalte E und F und erzeugte eine Datei move.bat die danach ausgeführt wird.
In Spalte E stehen die Ordnername die erstellt werden und in Spalte F die D...
21.12.2008 13:20:00
Thread-ID: 1034590
2 Beiträge
wo ist mein fehler in der wenn-funktion?
Caro

=WENN(UND(H3="A";K3="A";N3="A");"Top 01";WENN(UND(H3="A";K3="A";N3="B");"Top 02";WENN(UND("h3"="a"; "k3"="a";"n3"="A");"Top 03";WENN(UND("h3"="a";"k3"="b";"n3"="A");"Top 04";WENN(UND("h3"="a"; "k3"="c"; "n3"="A");"Top 05";WENN(UND("h3"="a";"k3"="b";"n3"="b");"Top 06";WENN(UND("h3"="a"; "k3"="c...
26.03.2009 00:16:05
Thread-ID: 1064042
6 Beiträge
Anzeige
Anwendungs- oder objektdefinierter Fehler
Josef

Hallo!
Ich bekomme nach dem Start des Makros immer den Fehler Anwendungs- oder objektdefinierter Fehler.
Das Makro hatte bereits funktioniert . Ich hatte nur den Pfad geändert:
Im Ordner mit der Variable dokname3 befinden sich csv Dateien, welche dann eingelsen werden.
Wo könnte...
07.07.2009 10:00:05
Thread-ID: 1086825
6 Beiträge
Anwendungs- oder objektdefinierter Fehler
Josef

Hallo!
Ich bekomme nach dem Start des Makros immer den Fehler Anwendungs- oder objektdefinierter Fehler.
Das Makro hatte bereits funktioniert . Ich hatte nur den Pfad geändert:
Im Ordner mit der Variable dokname3 befinden sich csv Dateien, welche dann eingelsen werden.
Wo könnte...
07.07.2009 08:08:22
Thread-ID: 1086829
3 Beiträge
Anzeige
"Anwendungs- oder objektdefinierter Fehler"
eres

Hallo Excel-Freunde,
habe mir in die Standard-Symbolleiste eine benutzerdefinierte Schaltfläche eingebaut und dieser ein Makro aus der personl.xls zugewiesen. Diese Makro besteht nur aus einer Zeile, in der ich eine Datei öffne (also Workbooks.Open Filename:= ...)
In der zu öffnenden...
28.07.2009 13:18:05
Thread-ID: 1091892
7 Beiträge
Fehler in der Matrix
westcasio

Hallo Leute,
ich habe hier ein Makro indem ich den Bereich von A1:A100 auf A1:A10000 erhöhen möchte, leider zeigt er mir immer einen Fehler an, wenn ich es ausführe. Könnt ihr mir helfen, bitte?
Sub DelDups_OneList() Dim iListCount As Integer Dim iCtr As Integer ' Turn off screen updati...
05.11.2009 16:21:00
Thread-ID: 1114764
8 Beiträge
Anzeige
Fehler in der Formel
Roger

Hallo zusammen
Ich habe folgende Formel:
=SUMMENPRODUKT((ANZAHL2(SU!F$4:F34)*(MONAT(SU!C$4:C34)=D27)*(SU!C$4:C34>0)))
Damit will ich im Blatt SU die Einträge in Spalte F zählen, in Spalte C ist jeweils ein Datum, in Zelle D27 der Monat 1.
Das ganze zählt aber nicht richtig....
27.01.2010 10:14:32
Thread-ID: 1133294
3 Beiträge
suche code um Inhalt der Zwischenablage einfügen
ray

Hallo,
ich habe jetzt schon eine halbe stunden via google ber www.herber.de gesucht und finde nur code um die Zwischenablage zu leeren.
ich möchte code, der mir den Inhalt der zwischenablage dort einfügt, wo der curser grad (in einer Textbox" steht.
WEr kann helfen
Viele Grüße...
11.02.2010 12:40:20
Thread-ID: 1137722
6 Beiträge
Anwendungs- oder Objektdefinierter Fehler
Werner

Hallo zusammen
Beim öffnen der Datei möchte ich Daten aus einer anderen Datei vom Sheets("Datensammler") und vom Sheets("Datensalle") kopieren und in die geöffnete Datei einfügen. Das klappt auch beim ersten Sheets. Wenn ich dann das 2. kopieren will, bekomme ich bei Sheets("Datensalle").S...
10.08.2010 07:15:00
Thread-ID: 1171349
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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