Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
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
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Copy-Paste Problem

Copy-Paste Problem
14.01.2009 07:48:00
M
Hallo liebe Excel Gemeinde,
ich habe ein Problem mit meinem Makro:
Ich habe eine Befundungsdatei, aus der Daten kopiert werden und folglich in eine Gesamtübersicht (von einer Referenzzelle aus versetzt ) eingefügt werden. Das habe ich folgendermaßen realisiert:
Das öffnen der Quelldatei klappt, doch die Fehlermeldung beim Einfügen:
Objektvariable im withblock nicht definiert.
Ein Beipielauszug:
Sub Datenimport()
Dim u As Workbook
With ActiveWorkbook 'Befundung
Set u = ThisWorkbook.Activesheet.ActiveCell
.Sheets("Befundung").Range("C5").Copy Destination:=u.Offset(rowoffset:=3, columnoffset:=3).Activate
Activesheet.Paste
Vielen Dank vorab!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Copy-Paste Problem
14.01.2009 08:32:55
Tino
Hallo,
ohne Deinen Code zu testet
Dim u As Workbook
Set u = ThisWorkbook.Activesheet.ActiveCell
Diese Zeilen funktioniert so nicht.
Du musst die Tabelle und auch die Zelle angeben,
es geht nicht mit Active… zu arbeiten.
(Set u = ThisWorkbook.Sheets("Tabelle1").Range("a1"))
Auch die Deklarierung ist bei Dir für eine Arbeitsmappe vorgesehen
und nicht für eine Zelle (Dim u As Range).
Gruß Tino
AW: Copy-Paste Problem
14.01.2009 08:45:00
Tino
Hallo,
so müsste Dein Code aussehen.

Dim u As Range
With ActiveWorkbook 'Befundung
Set u = ThisWorkbook.Sheets("Tabelle1").Range("A1")
.Sheets("Befundung").Range("C5").Copy u.Offset(3, 3)
'...


Gruß Tino

Anzeige
AW: Copy-Paste Problem
14.01.2009 10:13:00
M 

Set u = ThisWorkbook.Activesheet.ActiveCell
.Sheets("Befundung").Range("C5").Copy Destination:=u.Offset(rowoffset:=3, columnoffset:=3). _
Activate
Activesheet.Paste


Ich habe keine bestimmte Referenzzelle sondern nur eine willkürlich angeklickte. Das soll "ActiveCell" sein.
Aber trotzdem danke vorab!

AW: Copy-Paste Problem
14.01.2009 13:12:00
Tino
Hallo,
dann musst du die Zuweisung zuvor schon machen bevor du in die andere Datei wechselst.
Oder du musst kurz diese Datei aktivieren.
Anders geht’s nicht, Active sagt der Name schon ist die aktive Tabelle und aktive Zelle, bist Du in einer anderen Datei unterwegs, ist diese nicht mehr die aktive.
Gruß Tino
Anzeige
AW: Copy-Paste Problem
14.01.2009 13:53:05
M
Danke für den Tipp! Nun kommt aber eine neue Fehlermeldung mit der ich noch weniger anfangen kann.
"Laufzeitfehler '9' Index außerhalb des gültigen bereiches
With ActiveWorkbook 'Befundung
'Eingangsdatum
.Sheets("Befundung").Range("C5").Value.Copy
ThisWorkbook.Activate
ActiveCell.Offset(rowoffset:=3, columnoffset:=3).Activate
Activesheet.Paste
End With
End Sub
AW: Copy-Paste Problem
14.01.2009 14:40:00
Tino
Hallo,
teste mal so

ActiveWorkbook.Sheets("Befundung").Range("C5").Copy
ThisWorkbook.Activate
ActiveCell.Offset(3, 3).PasteSpecial (xlPasteValues) 'nur Werte einfügen
Application.CutCopyMode = False


Gruß Tino

Anzeige
AW: Copy-Paste Problem
14.01.2009 17:14:00
M
hey tino,
danke für deine hilfe. jetzt tut alles perfekt. ich hatte noch einen weiteren fehler bei mir entdeckt.
zu viele deklarationen drin!
Danke!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige