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
|