Private Sub CommandButton1_Click()
Workbooks.Open "H:\FT13\BERICHTE\artikeldatenbank\datenbank\datenrechner.xls"
Windows("Datenbank Sai112.xls").Activate
Sheets("Berechnung").Select
Columns("B:B").Select in dieser Zeile der Fehler
Selection.Copy
Windows("Datenrechner.xls").Activate
Sheets("Altdaten").Select
Range("A1:A20000").Clear
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Neudaten").Select
Application.Run "datenrechner.xls!vergleichen"
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Datenbank Sai112.xls").Activate
Sheets("Stammdaten").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Datenrechner.xls").Activate
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
es soll eigentlich nur Spalte B von einem Blatt ins andere kopieren (im Prinzip mit ein paar Extras). Wenn ich den Code ausführe, dann hört er bei Columns("B:B").select auf und bringt mir eine Fehlermeldung. Woran liegt das? Ich habe das mit dem Makrorecorder aufgenommen. habe es auch schon mit Range und Cells probiert. Jedoch immer wieder der gleiche Fehler. Weiß jemand, woran das liegt?
gruß
Slugger