Mit Referenzzelle kopieren
14.01.2009 10:33:37
M
eine neue Formulierung meines Problems:
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.
// Ich muss die Daten in der Übersicht von einer angeklickten Zelle aus, versetzt einfügen.
Dim u As Range
With ActiveWorkbook 'Befundung
Set u = ThisWorkbook.Activesheet.ActiveCell
'Eingangsdatum
.Sheets("Befundung").Range("C5").Copy u.Offset(rowoffset:=3, columnoffset:=3).Activate
Activesheet.Paste
Objektvar. im withblock nicht def.
Ich muss in ThisWorkbook eine Zelle manuell wählen. Es bleibt mir nichts anderes übrig.
Vielen Dank