AW: zwischenablage löschen
21.02.2006 12:28:09
F
Hallo Harald,
ich habe den Code mit copy und paste in meine Excel Datei kopiert,
und application.cutcopymode = false steht auch drin,
trotzdem kommt die Meldung.
Ich habe den Code nur leicht verändert,
durch einfügen von:Workbooks("sensor1.dat").Close SaveChanges:=False
hier noch einmal der Code:
Private Sub CommandButton1_Click()
Dim endee As Long
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
endee = .Cells(Rows.Count, 5).End(xlUp).Row 'letzte gefüllte in Spalte 5
.Range("A1:E" & endee).Copy
End With
Windows("Book1").Activate
Range("A1").Select
ActiveSheet.Paste
Range("G5").Select
Workbooks("sensor1.dat").Close SaveChanges:=False
With Application
.ScreenUpdating = True
.CutCopyMode = False
End With
End Sub
Mit freundlichen Grüssen Frank