Office: Fehlermeldung "paste-methode des worksheet-objektes konnte nicht ausgeführt werden"

Hallo liebes Forum,

bin gerade am Verzweifeln mit meinem Makro und leider konnte ich mir bisher weder im Forum noch durch googeln Hilfe anlesen - vielleicht könnt ihr mir helfen...

Public Sub Antrag_speichern_test2()

Dim lastrow As Integer
Dim WbkNeuName As Integer
Dim WbkNeu As Workbook
Dim Anfrage As Workbook
Dim testWbk As Workbook
Dim acutalWbk As Workbook


Workbooks.Open Filename:="C:\Users\Desktop\gesamtübersichtMakros"
lastrow = 2
Do While Cells(lastrow, 1) 0
lastrow = lastrow + 1
Loop

Workbooks.Add
WbkNeuName = Cells(lastrow, 1).Row - 2
Set WbkNeu = Workbooks.Add
WbkNeu.SaveAs ("C:\Users\Desktop\" & WbkNeuName & ".xlsx")
Workbooks.Open Filename:="C:\Users\Desktop\anfrage123"
Sheets(1).Range("B3:B10").Copy

Workbooks.Open Filename:="C:\Users\Desktop\" & WbkNeuName & ""
Sheets(1).Activate
With ActiveSheet
.Range("B3").Select
.Paste
End With

End Sub

Das Makro öffnet eine vorhandene Tabelle und liest daraus eine laufende Nummer aus. Unter dieser Nummer wird ein Workbook, das neu erstellt wird, abgelegt. Aus einem bestehenden Workbook sollen nun einige Zeilen in das neu angelegte Workbook kopiert werden und beim letzten .paste bringt excel mir den laufzeitfehler "die paste-methode des worksheet-objektes konnte nicht ausgeführt werden". ich bin am verzweifeln...
es sind keine verbundenen Zellen in den Tabellen und der Blattschutz ist auch deaktiviert...

Vielen lieben Dank im Voraus.

Liebe Grüße,
Claudia

:)

 

Hi

auf Anhieb sehe ich einige Fehler....

aber was ist das?

Cells(lastrow, 1).Row - 2
In Lastrow ermittelst du die Zeile und davon willst du wieder die Zeile haben???

Oder soll der Zellinhalt ausgelesen werden?
2 Zeilen über der letzten gefunden Zelle in Spalte A von deiner Makrodatei?

soll dann auch eine neue Nummer in der Makrodatei abgelegt werden?

 

Hi Chris,

mit der lastrow Abfrage ermittele ich die nächste freie Zeile in meiner Tabelle. Da die laufende Nummer 1 aber erst in Zeile 3 generiert wurde, ist die laufende Nummer, unter der ich die Datei abspeichern will diefolgende: Cells(lastrow, 1).Row - 2.
"soll dann auch eine neue Nummer in der Makrodatei abgelegt werden?" -> verstehe leider nicht was du meinst...

Liebe Grüße und vielen Dank schonmal

 

Hi

Öhmm, da hast du einen kleinen Denkfehler *wink.gif*

Cells(lastrow, 1).Row =Lastrow


hier mal ein Versuch ohne Fehlerbehandlung

nur die Datei mit dem Code sollte offen sein
Pfad natürlich wieder anpassen... wobei der Desktop der denkbar ungünstigste Platz ist. *Smilie.
xls oder xlsx bitte auch kontrollieren! ich habe mal bei deinen Dateien xlsx angenommen.....

Code:

 

Chris, du bist mein absoluter Held des Tages *Smilie Danke!

Erklärst du mir noch 2 Sachen damit ich beim nächsten Mal schlauer bin?

1. Wo genau ist der Paste Befehl und wie kommt es dass das funktioniert ohne ein paste?
2. Wieso setzt du die workbooks am Ende auf nothing?

Tausend Dank dir!

 

Hi

freut mich wenn es passt! *Smilie

myWbAnfrage.Sheets(1).Range("B3:B10").Copy WbkNeu.Sheets(1).Range("B3")

hier wird kopiert das Paste ist unnötig, durch die ganze "Selectiererei" werden Codes nur instabil.

Select und Activate sind zu 99,99% sinnlos.

das Objekte freigeben ist in VBA nicht unbedingt erforderlich, aber programiertechnisch richtig.(aus dem Speicher entfernen)

hier gibt es einen kleine Einführung in VBA (wegen Select, Activate und Ref.)
http://www.ms-office-forum.de/forum/...29&postcount=1

und hier noch ein paar Wege wie du deinen Dateien noch öffnen und ansprechen könntest. ^^ das open verwende ich so gut wie nie in der Form wie ich es vorhin bei deinem Code gepostet habe. Zumeist ist createObject, bzw. Getopject bei mir im Einsatz.
http://www.ms-office-forum.de/forum/...10&postcount=2

die Erklärungen findest du direkt im Code.

 

Hi Chris,

vielen lieben Dank.
Eine Frage habe ich dann doch noch. Gerade versuche ich das Makro in meine GesamtübersichtMakros einzubetten, da ich ja immer nur die gleichen Pfade anspreche.
Mache ich das mit deinem Code, bekomme ich eine Fehlermeldung, da die Datei schon geöffnet ist. Ändere ich den Befehl in
Set myMakroWB = Workbooks("C:\Users\Desktop\gesamtübersichtMakros")
und versuche es so anzusprechen, bekomme ich die Fehlermeldung Index außerhalb des gültigen Bereichs *frown.gif*

Einen schönen Abend dir noch und vielen Dank,

Claudia

 

HI

*wink.gif*

Set myMakroWB = Thisworkbook

müsste eigentlich reichen.

 

Verstehe zwar nicht, warum es mit
Set myMakroWB = Workbooks("C:\Users\Desktop\gesamtübersichtMakros")
nicht funktioniert hat, aber mit thisWorkbook geht es und jetzt bin ich glücklich *Smilie

Tausend Dank dir!

 

Hi Chris und alle anderen,

habe mal wieder ein unlösbares Problem und bräuchte eure Hilfe...

Hier ist ein TEil des Codes:
Die Variablen sind alle weiter oben deklariert.

lastrow = lastrow + 1
I = 3
Do While I

 

Hallo Claudia

*wink.gif*

position = Format(Date + 5, "dd/mm/yyyy")
Set WbkAnfrage = Workbooks.OPEN("C:\Users\brobeck\Desktop\" & I - 2 & ".xlsx")
WbkAnfrage.Sheets(1).Range("E16:E17") = Format(Date, "dd/mm/yyyy")

ist aber mal rein geraten *wink.gif*
nur gehört das auch wieder geschlossen....

und das Set Position?
ist Position ein Objekt??

passt mit dem hier nicht überein!
position = Format(Date + 5, "dd/mm/yyyy")

Du mischt da einiges durcheinander......