Hallo,
ich habe folgendes Makro geschrieben das aus einer existierenden Exce Tabelle Daten in eine andere kopiert. Man drueckt einen Button und das Programm wird ausgefuehrt, leider kommt dann noch folgende Meldung die ich mit Yes beantworten muss, aber diese Meldung moechte ich nicht haben. Wie muss ich das machen?
Die Meldung:
There is a large amount of information on the clipboard. Do you want to be able to paste this information into antother program later?
Yes or No
Im voraus schonmal herzlichen Dank.
Viele Gruesse Chris
Sub UpdateData()
Dim datafile1 As String
Dim datafile2 As String
datafile2 = ActiveWorkbook.Name
'get the file name of the data which contains the raw data from the lotus notes
datafile1 = „c:\PhoneLogServiceFollowUp.xls“
Workbooks.Open Filename:=datafile1
datafile1 = ActiveWorkbook.Name
Range(„A2:L15000“).Select
Selection.Copy
Windows(datafile2).Activate
Range(„A2“).Select
ActiveSheet.Paste
Workbooks(datafile1).Close savechanges:=False
Workbooks(datafile2).RefreshAll
Windows(datafile2).Activate
Sheets(„MainData“).Select
Range(„A2“).Select
End Sub
ich habe folgendes Makro geschrieben das aus einer
existierenden Exce Tabelle Daten in eine andere kopiert. Man
drueckt einen Button und das Programm wird ausgefuehrt, leider
kommt dann noch folgende Meldung die ich mit Yes beantworten
muss, aber diese Meldung moechte ich nicht haben. Wie muss ich
das machen?
Hi Christoph,
mit Sicherheit habe ich falsche Blattnamen, aber probier mal dieses als Ansatz:
Option Explicit
Sub UpdateData()
On Error GoTo Fehler
Application.DisplayAlerts = False
With ThisWorkbook.Worksheets("Tabelle1")
Workbooks.Open "c:\PhoneLogServiceFollowUp.xls"
.Range("A2:L15000").Copy Destination:=ActiveWorkbook.Worksheets("Tabelle1").Range("A2")
ActiveWorkbook.Close savechanges:=False ' Wieso false? True wäre angesaagt bei Änderungen
.RefreshAll 'noch nie benutzt, muss aml schauen was das ist
.Activate
.Sheets("MainData").Range("A2").Select
End With
Fehler:
Application.DisplayAlerts = True
End Sub
Gruß
Reinhard
Hallo,
erstmal danke fuer die Antowort. Aber in deiner Loesung oeffnet er die neue Tabelle selektiert und kopiert es auch, aber leider wieder in die gleiche Tabelle. Dann ist es wieder so wie vorher. Ich moechte den Inhalt in eine neue Tabelle einfuegen.
–>With ThisWorkbook.Worksheets(„Tabelle1“) 'hier waehlst du die Tabelle aus und in diesem Bereich kommt auch vor
–>Destination:=ActiveWorkbook.Worksheets(„Tabelle1“).Range(„A2“)
'dann ist klar das er es in die gleiche Tabelee einfuegt.
Ich hab jetzt schon ein paar Moeglichkeiten versucht als Destination den neuen Zielpfad anzugeben, aber leider erfolglos…komm irgendiwe nicht drauf.
Viele Gruesse Chris
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Chris, hallo Reinhard,
ich kenne diese Meldung in seiner deutschen Variante, nur als Hinweis des Clipboards, dass hier größere Mengen an Daten im Clipboard sind.
Und damit als Frage, ob sie im Clipboard bleiben sollen, für andere Applikationen.
Hat m.E. nichts mit dem anderen Problem zu tun.
Oder hab ich was falsch verstanden???
Ullrich Sander