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 / Tabellenkalkulation
Tabellenkalkulation
Fragevon Sebbl vom 11.03.2020, 20:34 Options
Wechseln zischen zwei Arbeitsmappen per Makro
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B4:I17").Select
Selection.Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Sheets("Monatsabrechnung").Select !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Workbooks("Monatsabrechnung.xlsm").Activate
Sheets("Statistik 2007").Select
Range("O5:O16").Select
Selection.Copy
Workbooks("Jahresauswertung.xlsm").Activate
Sheets("Monatsabrechnung").Select !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Range("J5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
............
Else: Exit Sub
End If
End Sub
Hi ich hab ein kleines Problem beim Umschalten zwischen zwei Arbeitsmappen (siehe Auszug). Irgendwie bleibt mein Visual Basic immer an den Stellen mit den !!!!!!!!!!!! hängen.
Kann mir jemand sagen, was ich falsch mache ??? Ich will einfach nur zwischen 2 Arbeitsmappen kopieren.
Achso ich benutze dieses Makro in Excel 2007 (bzw. würde dies gern da verwenden)
Danke schonmal im Vorraus
Sebastian
Range("B4:I17").Select
Selection.Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Sheets("Monatsabrechnung").Select !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Range("B4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Workbooks("Monatsabrechnung.xlsm").Activate
Sheets("Statistik 2007").Select
Range("O5:O16").Select
Selection.Copy
Workbooks("Jahresauswertung.xlsm").Activate
Sheets("Monatsabrechnung").Select !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Range("J5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
............
Else: Exit Sub
End If
End Sub
Hi ich hab ein kleines Problem beim Umschalten zwischen zwei Arbeitsmappen (siehe Auszug). Irgendwie bleibt mein Visual Basic immer an den Stellen mit den !!!!!!!!!!!! hängen.
Kann mir jemand sagen, was ich falsch mache ??? Ich will einfach nur zwischen 2 Arbeitsmappen kopieren.
Achso ich benutze dieses Makro in Excel 2007 (bzw. würde dies gern da verwenden)
Danke schonmal im Vorraus
Sebastian
Antwort 1 von Hajo_Zi vom 11.03.2020, 21:26 Options
Hallo Sebastian,
auf select kann in VBA zu 9,9% verzichtet werden.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B4:I17").Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Sheets("Monatsabrechnung").Range("B4").PasteSpecial Paste:=xlValues
ThisWorkbook.Sheets("Statistik 2007").Range("O5:O16").Copy
Sheets("Monatsabrechnung").Range("J5").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
Gruß Hjao
auf select kann in VBA zu 9,9% verzichtet werden.
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("B4:I17").Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Sheets("Monatsabrechnung").Range("B4").PasteSpecial Paste:=xlValues
ThisWorkbook.Sheets("Statistik 2007").Range("O5:O16").Copy
Sheets("Monatsabrechnung").Range("J5").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
Gruß Hjao
Antwort 2 von Sebbl vom 11.03.2020, 22:41 Options
Danke für die schnelle Antwort ;O)
Leider funktioniert das Ganze trotzdem nicht so wirklich.
Vielleicht muss ich noch erwähnen, dass ich in zwei verschieden Arbeitsmappen kopieren möchte.
Die eine heißt Monatsabrechnung.xlsm und die andere Jahresauswertung.xlsm
Es sollen also Zellwerte von einer Arbeitsmappe in eine ander kopiert werden.
Gruss sebbl
Leider funktioniert das Ganze trotzdem nicht so wirklich.
Vielleicht muss ich noch erwähnen, dass ich in zwei verschieden Arbeitsmappen kopieren möchte.
Die eine heißt Monatsabrechnung.xlsm und die andere Jahresauswertung.xlsm
Es sollen also Zellwerte von einer Arbeitsmappe in eine ander kopiert werden.
Gruss sebbl
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
via Makro Arbeitsmappen verknüpfen
Günter03 30.08.2007 - 33 Hits - 2 Antworten
Excel Arbeitsblätter
schwester 02.10.2007 - 167 Hits - 4 Antworten
Möchte zwei Wenn Prüfungen verschachteln und in ein Makro einbetten- kennt jemand den Befehl
servus 30.10.2007 - 76 Hits - 2 Antworten
Suchen in Arbeitsmappen
jennit 30.06.2008 - 67 Hits -
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
