Office: Abfrage der Zwischenablage

Hi,

ich stehe mal wieder vor einem Problem.....

Code:

Sub Datei_einlesen()

Dim wb As Workbook
Dim lngZ As Long
Dim strFileName
Dim strFilter As String

strFilter = "Excel-Dateien(*.xl*), *.xl*"

ChDrive "P"
ChDir "P:\DSTV"

strFileName = Application.GetOpenFilename(strFilter)
If strFileName = False Then Exit Sub

Set wb = Workbooks.Open(strFileName)

Range("L21").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R[-13]C[-10]:R[479]C[-10])"
Range("A8:I" & Range("L21").Value).Select
Selection.Copy
ActiveWindow.Close savechanges = False
Windows(ThisWorkbook.Name).Activate
    Sheets(" ->Versandliste").Select
    Range("A2").Select
ActiveSheet.Paste
Sheets("Auftragsdaten").Select

MsgBox "Die Versandliste wurde eingelesen.", vbInformation, "Hinweis"

End Sub

Beim Schließen der geöffneten Datei kommt immer die frage ob ich die kopierten Daten in der Zwischenablage behalten will oder nicht. Kann man das als Befehl direkt einbauen?!?

 

Moinsens!

application.cutcopymode = false

Gruß, Michael

 

Diese Meldung meine ich.....und möchte die immer mit JA beantworten.....

Ich muss das doch unter ActiveWindow.Close setzen oder?!?

 

Moinsens!

_Das_ hast Du nicht gesagt. Und bislang kannte ich immer nur die Frage, diese "nervige" Abfrage mit "Nein" zu beantworten.

Ich befürchte mal, das geht nicht. Kleines Beispiel-Objekt im Anhang...

Hinter dem Button ist folgender Code:

Code:

Private Sub btn_Copy_Click()

    Dim s1 As Worksheet
    Dim r1 As Range
    Dim r2 As Range
    
    Set s1 = ActiveSheet
    Set r1 = s1.Range("d2:f4")
    Set r2 = s1.Range("j2")

    r2.ClearContents
    
    r1.Copy
    r2.PasteSpecial Paste:=xlPasteValues
    
    'r1.ClearContents
    
    'Application.CutCopyMode = False

End Sub

Hier kannst Du mal mit den letzten beiden, noch auskommentierten, Zeilen herumspielen. So wie jetzt: Die Markierung bleibt erhalten (gestrichelte Linie) und die Nachfrage würde beim Schließen kommen.

Wenn das .ClearContents durchgeführt wird, verschwindet die Markierung und die Nachfrage kommt ebenfalls nicht mehr. Allerdings ist auch nichts mehr in der Zwischenablage.

Das .CutCopyMode auf false zu setzen hat den gleichen Effekt: Zwischenablage leer und keine Nachfrage.

Ich kenne aber keine Möglichkeit, die Markierung, und damit die Nachfrage, zu entfernen, die Daten aber trotzdem in der Zwischenablage zu erhalten.

Gruß, Michael

 

meine Idee für das ganze wäre ja noch zwischen den beiden Tabellen hin und her zu wechseln

Quelldatei öffnen -> Markieren -> Kopieren -> Zieltabelle auswählen -> Daten einfügen -> zurück zur Quelldatei -> diese Schließen und ab zur Zieldatei

Damit würde sich diese Nachfrage ja erledigen und es wäre gelöst. Dabei entsteht für mich aber das Problem das die Quelldatei immer verschiedene Namen trägt. Oder gibt es dafür einen Befehl zum schnellen Wechseln?!?