AW: Fehlermeldung - Zwischenspeicher
14.02.2008 16:11:05
Renee
Hi André
Was mache ich nun? Aufhören VBA zu programmieren ;-)
Hier ist mal eine Kommentierung deines Makros:
Sub voreinstellung_adr_kp()
' Workbooks.Open Filename:="C:\meinpfad\mappe.xls" ' Öffnet eine andere Arbeitsmappe
Selection.Copy ' Kopiert was grad zufällig selektiert ist in den Zwischenspeicher
Application.CutCopyMode = False ' Zwischenspeicher löschen
ActiveWindow.Close ' Schliesst das aktive Fenster / sprich geöffnete Mappe
Range("C14").Select ' Selektiert die Zelle C14 im jetzt aktiven Blatt
ActiveSheet.Paste ' Ein leeren Zwischenspeicher auf das Blatt (wohin?) kopieren
Range("J15").Select ' Selektiert die Zelle J15 im jetzt aktiven Blatt
End Sub
Das ist doch alles genau was du machen willst, oder?
Wenn schon müsste es heissen
Activesheet.Range("C14").Paste
ohne das Ganze .Select Gefummel vor und nachher
GreetZ Renée