Supportnet Computer
Planet of Tech

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

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: