Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
![Rot](images/pfeil_rot.gif) ActiveSheet.Paste funktioniert nicht |
16.07.2024 12:28:49 |
Ani |
|
|
|
16.07.2024 14:36:58 |
xlKing |
|
|
|
16.07.2024 15:37:28 |
Ani |
|
|
|
17.07.2024 17:11:30 |
xlKing |
|
|
|
18.07.2024 09:13:31 |
Ani |
|
|
|
16.07.2024 14:51:41 |
ralf_b |
|
|
|
18.07.2024 09:36:04 |
Ani |
|
|
|
18.07.2024 09:54:50 |
ralf_b |
|
|
Von:
Ani |
Datum:
16.07.2024 12:28:49 |
Views:
168 |
Rating:
|
Antwort:
|
Thema:
ActiveSheet.Paste funktioniert nicht |
Hallo zusammen,
ich habe ein Problem und bin langsam am Verzewiefeln. Bisher hat mein Makro immer wunderbar funktioniert. Seit paar Tagen bekomme ich jedoch immer bei dem Befehl "ActiveSheet.Paste die Fehlermeldung "Laufzeitfehler 1004: Die Paste-Methode des Worksheet-Objektes konnte nicht ausgeführt werden."
Bei meinen Kollegen läuft das Makro einwandfrei durch. Hat jemand eine Idee, woran das liegen könnte?
Danke und Gruß
Ani
Code:
Sub DatenKopieren()
Dim Pfad As String
Dim urdatei
Set urdatei = Worksheets(ActiveSheet.Index)
Application.DisplayAlerts = False
Pfad = Sheets(1).Range("V48")
Workbooks.Open Pfad & "\" & Sheets(1).Range("V49"), Local:=True
Sheets(1).Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ActiveWindow.Close
Sheets("Tabelle1").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
![Rot](images/pfeil_rot.gif) ActiveSheet.Paste funktioniert nicht |
16.07.2024 12:28:49 |
Ani |
|
|
|
16.07.2024 14:36:58 |
xlKing |
|
|
|
16.07.2024 15:37:28 |
Ani |
|
|
|
17.07.2024 17:11:30 |
xlKing |
|
|
|
18.07.2024 09:13:31 |
Ani |
|
|
|
16.07.2024 14:51:41 |
ralf_b |
|
|
|
18.07.2024 09:36:04 |
Ani |
|
|
|
18.07.2024 09:54:50 |
ralf_b |
|
|