Hi,
ich bräuchte dringend mal Hilfe. Bin in VBA nicht so fitt und helfe mir immer mit Aufzeichnen.
Mein Problem: Mit VBA habe ich per Autofilter Daten gefiltert, markiert und in die Zwischenablage kopiert. Dann möchte ich ein anderes Workbook öffnen und dort die nächste leere Zelle finden und die Daten einfügen. Solange ich das Makro in Einzelschritten laufen lassen, ist das alles auch kein Problem. Aber beim direkten Start, kommt immer die Fehlermeldung: "Ausführung des Codes wurde unterbrochen". Und er bleibt bei Workbooks.Open Filename:= ……. hängen, machmal auch erst eine Zeile drunter.
Was hab ich falsch gemacht? Weiß jemand Rat?
(Ich habe keinen Haltepunkt gesetzt!)
Vielen Dank
Claudia
Hier mein Code:
Dim strEnde As String
Range("P1").Select
Selection.AutoFilter Field:=16, Criteria1:="sto"
Range("P:P").Find(what:="", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Select

strEnde = ActiveCell.Row - 1
strEnde = "2:" & strEnde
Rows(strEnde).EntireRow.Select

Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy

Workbooks.Open Filename:="D:\Beispiele\Archiv.xls"

Columns("A:A").Select
Selection.Find(what:="", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Select
ActiveSheet.Paste

ActiveWorkbook.Save