Fehler: Select method of Range class failed
21.02.2006 07:36:31
F Zap
ich habe folgendes Macro mit dem Recorder
aufgezeichnet, und einem Command Button zugewiesen.
Aber beim betätigen des Buttons kommt folgende
Fehlermeldung:
Run time error '1004':
Select method of Range class failed
und diese Zeile ist markiert:
Range("A:A,G:G,H:H").Select
hier das Macro:
Private Sub CommandButton1_Click()
Workbooks.OpenText Filename:= _
"C:\Documents and Settings\My Documents\sensor1.dat", Origin:= _
xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1) _
, Array(11, 1), Array(20, 1), Array(26, 1), Array(32, 1), Array(39, 1), Array(46, 1), Array( _
50, 1)), ThousandsSeparator:=" ", TrailingMinusNumbers:=True
Range("A:A,G:G,H:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
Columns("A:E").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1:E25").Select
Selection.Copy
Windows("Book1").Activate
Range("A1").Select
ActiveSheet.Paste
Range("G5").Select
End Sub
Wo liegt der Fehler????
Mit freundlichen Grüssen Frank