Supportnet / Forum / Tabellenkalkulation
Laufzeitfehler 1004 bei Select
Frage
Hi!
Ich habe mit dem Excel97 - Makro-Recorder gerade dieses Makro aufgenommen:
Range("A2:F4000").Select
ActiveWindow.SmallScroll Down:=-12
Selection.ClearContents
Range("A2").Select
Workbooks.Add
Workbooks.OpenText FileName:="C:\Temp\lumkomm.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(8, _
2), Array(59, 2), Array(66, 2), Array(74, 2))
Range("A1:F4000").Select
Selection.Copy
Windows("lumkomm.xls").Activate
Range("A2").Select
ActiveSheet.Paste
führe ich das Makro aus, so funktioniert es.
Binde ich es auf einen Button ein und klicke diesen an, so bekomme ich bei
Range("A1:F4000").Select
einen Laufzeitfehler 1004 "Die Select-Methode des Range-Objektes ist fehlerhaft"
Danke für Eure Hilfe!
Antwort 1 von CaroS
Hi,
ersetze Range("A1:F4000").Select
durch Sheets("Name_der_Tabelle").Range("A1:F4000").Select
Hat bei mir auch schon mal geholfen.
CaroS
ersetze Range("A1:F4000").Select
durch Sheets("Name_der_Tabelle").Range("A1:F4000").Select
Hat bei mir auch schon mal geholfen.
CaroS
Antwort 2 von nighty
hi dk_150
dein bezug ist verloren gegangen,eindeutige ziele wären angebracht statt der selectionen
gruss nighty
hab mal versucht es zu kuerzen
Private Sub CommandButton1_Click()
Workbooks(1).Sheets(1).Range("A2:F4000").ClearContents
Workbooks.Add
Workbooks.OpenText Filename:="C:\Temp\lumkomm.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(8, _
2), Array(59, 2), Array(66, 2), Array(74, 2))
Workbooks(1).Sheets(1).Range("A1:F4000").Copy Workbooks(2).Sheets(1).Range("A2")
End Sub
dein bezug ist verloren gegangen,eindeutige ziele wären angebracht statt der selectionen
gruss nighty
hab mal versucht es zu kuerzen
Private Sub CommandButton1_Click()
Workbooks(1).Sheets(1).Range("A2:F4000").ClearContents
Workbooks.Add
Workbooks.OpenText Filename:="C:\Temp\lumkomm.txt", Origin:=xlWindows, _
StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), Array(8, _
2), Array(59, 2), Array(66, 2), Array(74, 2))
Workbooks(1).Sheets(1).Range("A1:F4000").Copy Workbooks(2).Sheets(1).Range("A2")
End Sub