Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Anwendungen(Java,C++...)
Anwendungen(Java,C++...)
Fragevon Subi2212 vom 24.10.2020, 20:37 Options
Makro Paste
Hi
die anforderungen für mein makro sind folgende:
auf knopfdruck soll eine datei geöffnet und eine zeile eines bestimmten registerblattes kopiert werden
dann soll eben diese zeile in ein anderes Excel kopiert werden.
bis zum Öffnen bzw. Kopieren der Dateien funktioniert alles, aber das einfügen funktioniert nicht (bei acitvesheet.paste bleibt das makro immer hängen).
kann mir wer helfen?
anbei das bisherige makro:
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="D:\Test\F1.xls"
Workbooks("F1.xls").Activate
Worksheets("Werte").Activate
ActiveSheet.Rows("1:1").Select
Selection.Copy
Workbooks("F1.xls").Save
Workbooks("F1.xls").Close
Workbooks("1_Uebersicht.xls").Activate
Worksheets("Werte").Activate
ActiveSheet.Rows("1:1").Select
ActiveSheet.Paste
Worksheets("Uebersicht").Activate
End Sub
die anforderungen für mein makro sind folgende:
auf knopfdruck soll eine datei geöffnet und eine zeile eines bestimmten registerblattes kopiert werden
dann soll eben diese zeile in ein anderes Excel kopiert werden.
bis zum Öffnen bzw. Kopieren der Dateien funktioniert alles, aber das einfügen funktioniert nicht (bei acitvesheet.paste bleibt das makro immer hängen).
kann mir wer helfen?
anbei das bisherige makro:
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="D:\Test\F1.xls"
Workbooks("F1.xls").Activate
Worksheets("Werte").Activate
ActiveSheet.Rows("1:1").Select
Selection.Copy
Workbooks("F1.xls").Save
Workbooks("F1.xls").Close
Workbooks("1_Uebersicht.xls").Activate
Worksheets("Werte").Activate
ActiveSheet.Rows("1:1").Select
ActiveSheet.Paste
Worksheets("Uebersicht").Activate
End Sub
Ähnliche Themen
Kann Spiel nicht deinstallieren
Venom 15.04.2007 - 131 Hits - 2 Antworten
Wie funktioniert eigentlich ein Routenplaner?
luke 15.04.2007 - 166 Hits - 1 Antwort
TR/Click.Agent.JH.4 VIRUS
Venom 16.04.2007 - 225 Hits - 3 Antworten
Mittels Makro Excel-Datei speichern
Francis 13.02.2008 - 87 Hits - 3 Antworten
Makro in VBA
Bollerkohl 21.08.2008 - 51 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
