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

zwischenablage löschen

zwischenablage löschen
21.02.2006 11:15:34
F
Hallo,
nach ausführen eines Makros
(Frage von heute: Fehler: Select method of Range class failed)
kommt bei erneutem ausführen des
Makros diese Meldung:
There is a large amount of information on the clipboard.usw
Ist es möglich die Zwischenablage zu löschen?
Meine VBA Hilfe hilft mir da nicht wirklich.
Mit freundlichen Grüssen Frank

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zwischenablage löschen
21.02.2006 12:15:27
Harald
Hi nochmal,
durch application.cutcopymode = false (was ich dir in den Code geschrieben hatte,) wird der Zwischenspeicher gelöscht)
Gruss Harald
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
Anzeige
AW: zwischenablage löschen
21.02.2006 12:32:03
Harald
Hi,
ändere nur die Reihenfolge.
Die Abfraeg für den Zwischenspeicher, wird durch das Speichern ausgelöst. Zu diesem Zeitpunkt ist die Zwischenablage aber noch nicht per cutcopymode=false geleert.
Setz die Speicherzeile ganz ans Ende
Gruss Harald
AW: zwischenablage löschen
21.02.2006 13:48:13
F
Hallo Harald,
es gibt noch viel für mich zu lernen,
Danke
Mit freundlichen Grüssen Frank
Danke für die Rückmeldung m.T
21.02.2006 14:58:16
Harald
noch viel zu lernen ?
Warum sollte es dir besser gehen als uns allen ;-D
Gruss Harald

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige