Laufzeitfehler wegen select?
30.10.2007 13:31:37
lisa
Ich möchte mit dem unten gezeigten Code, Daten von einer Mappe in die andere copieren.
Das funktioniert sehr gut, dank Hajo´s Hilfe.
Nun habe ich mir einen Macro aufgezeichnet der mir diese Daten sortieren soll.
Hier habe ich auch schon ein Problem.
Beim select bekomme ich dann den Laufzeitfehler. Kann das am Select liegen?
Wie umgehe ich diesen Select?
Ich habe es so probiert, das funktioniert aber leider nicht.
Range("A1:b65000").sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Hier mein orig. Macro
Workbooks.Open Filename:= _
"P:\\Datenbank.xls"
Sheets("Datenbank").Unprotect Password:=""
Sheets("Datenbank").Range("A4:A65000").Copy Workbooks("lesen org.xls").Sheets("Tabelle3").Range( _
"A2")
Sheets("Datenbank").Range("G4:G65000").Copy Workbooks("lesen org.xls").Sheets("Tabelle3").Range( _
"C2")
Windows("Datenbank.xls").Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges = False ' bis hier hin läuft der Code sauber durch
Sheets("Tabelle3").Activate
Range("A1:b65000").Select ' hier bekomme ich einen Laufzeitfehler, könnte das am Select liegen?
Selection.sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("C2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Sheets("Tabelle2").Activate
Sheets("Tabelle3").Visible = True
Wenn jemand Zeit hat und mir hierbei helfen könnte?
Gruß Lisa