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 / Skripte(PHP,ASP,Perl...)
Skripte(PHP,ASP,Perl...)
Fragevon Sebbl vom 12.03.2020, 15:05 Options
Probleme mit Makro zwischen 2 Arbeitsmappen
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 hoffe hier kann mir vielleicht jemand weiterhelfen ;O)
Also ich habe oben einen Ausschnitt meiner Makro-Datei abgebildet.
Ich habe in diesem Makro das Problem, dass mir VBA einen Fehler bei den Zeilen mit den Ausrufezeichen anzeigt. (also die Ausrufezeichen sind in dem VBA-Projekt natürlich nicht enthalten !)
Hat sich in Office 2007 in der Richtung etwas geändert oder was mache ich falsch ?
(falls es wichtig ist : Das Makro befindet sich in der Arbeitsmappe Monatsabrechnung)
MfG 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 hoffe hier kann mir vielleicht jemand weiterhelfen ;O)
Also ich habe oben einen Ausschnitt meiner Makro-Datei abgebildet.
Ich habe in diesem Makro das Problem, dass mir VBA einen Fehler bei den Zeilen mit den Ausrufezeichen anzeigt. (also die Ausrufezeichen sind in dem VBA-Projekt natürlich nicht enthalten !)
Hat sich in Office 2007 in der Richtung etwas geändert oder was mache ich falsch ?
(falls es wichtig ist : Das Makro befindet sich in der Arbeitsmappe Monatsabrechnung)
MfG Sebastian
Antwort 1 von gast123 vom 12.03.2020, 19:11 Options
hi sebastian
habe kein excel 7 daher ein glücksspiel
gruss gast123
erste zeile ist der tabellenname einzutragen
habe kein excel 7 daher ein glücksspiel
gruss gast123
erste zeile ist der tabellenname einzutragen
ThisWorkbook.Worksheets("DeineTabelle").Range("B4:I17").Copy
Workbooks.Open Filename:="c:\vorlagen\Jahresauswertung.xlsm"
Workbooks("Jahresauswertung").Worksheets("Monatsabrechnung").Range("B4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Workbooks("Monatsabrechnung").Worksheets("Statistik 2007").Range("O5:O16").Copy
Workbooks("Jahresauswertung").Worksheets("Monatsabrechnung").Range("J5").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Else
Exit Sub
End IfÄhnliche Themen
Zirkelbezug
Hasilein 08.06.2007 - 146 Hits - 4 Antworten
via Makro Arbeitsmappen verknüpfen
Günter03 30.08.2007 - 32 Hits - 2 Antworten
Excel Arbeitsblätter
schwester 02.10.2007 - 166 Hits - 4 Antworten
Wechseln zischen zwei Arbeitsmappen per Makro
Sebbl 11.03.2008 - 27 Hits - 3 Antworten
Suchen in Arbeitsmappen
jennit 30.06.2008 - 66 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
