Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler: Select method of Range class failed

Fehler: Select method of Range class failed
21.02.2006 07:36:31
F Zap
Hallo,
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

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler: Select method of Range class failed
21.02.2006 08:40:29
Harald E
Moin frank,
ersetze mal
Range("A:A,G:G,H:H").Select
Range("H1").Activate
Selection.Delete Shift:=xlToLeft
durch
Range("A:A,G:H").Delete Shift:=xlToLeft
versuche select soweit wie möglich zu vermeiden.
Z.B. auch nicht
Range("A1:E25").Select
Selection.Copy
sondern
Range("A1:E25).Copy
Gruss Harald
AW: Fehler: Select method of Range class failed
21.02.2006 09:07:11
F Zap
Hallo Harald,
jetzt kommt die gleiche Fehlermeldung bei:
Columns("A:E").Select
und die Spalten A,G und H sind trotzdem nicht gelöscht.
Noch eine Idee ???
Mit freundlichen Grüssen Frank
AW: Fehler: Select method of Range class failed
21.02.2006 09:17:27
Harald E
Hi,
hmmm. Da ich nicht weiß, wie diese *.dat aussieht, kann ich auch nur mutmaßen.
Blattschutz fällt als Ursache aus, das gibt ne andere Fehlermeldung.
Sind verbundene Zellen drin ?
Vielleicht bezieht er sich auf die Mappe, in der der Code steht und nicht auf die neu geöffnete. In diesem Fall ist jede Range-Angabe zuzuweisen, oder per
With activeworkbook.activesheet
Vorgänge
End with
Gruss Harald
Anzeige
AW: Fehler: Select method of Range class failed
21.02.2006 09:31:36
F Zap
Hallo Harald,
ich habe beide Dateien mal auf den Server gelegt.
Die .dat Datei habe ich umbenannt in sensor1dat.txt
https://www.herber.de/bbs/user/31265.xls

Die Datei https://www.herber.de/bbs/user/31266.txt wurde aus Datenschutzgründen gelöscht

Mit freundlichen Grüssen Frank
AW: Fehler: Select method of Range class failed
21.02.2006 10:18:43
Harald E
Hi,
jawohl, war die Zuordnung. Code überarbeitet und getestet.

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False 'Bildschirmflackern aus
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
With Workbooks("sensor1.dat").Sheets(1)
.Range("A:A,G:H").Delete
.Columns("A:E").Select
Selection.Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
.Range("A1:E25").Copy
'oder wenn letzte Zelle variabel sein kann
'Dim Lrow As Long
'Lrow = .Cells(Rows.Count, 5).End(xlUp).Row 'letzte gefüllte in Spalte 5
'.Range("A1:E" & Lrow).Copy
End With
Windows("Book1").Activate
Range("A1").Select
ActiveSheet.Paste
Range("G5").Select
With Application
.ScreenUpdating = True
.CutCopyMode = False
End With
End Sub

Gruss Harald
Anzeige
AW: Fehler: Select method of Range class failed
21.02.2006 10:30:20
F Zap
Wow, ich bin begeistert, Vielen Dank Harald
Mit freundlichen Grüssen Frank
Danke für die Rückmeldung owT
21.02.2006 10:50:00
Harald E
Gruss Harald

98 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige