PDA

Vollständige Version anzeigen : VBA Code läuft nicht mehr


benzer77
23.09.2016, 08:00
Hallo Zusammen,

Ich habe das Problem das mein VBA Code nicht mehr funktioniert seit ich die Dateien von .xls auf .xlsm umgespeichert habe.

Kann mir da einer helfen?
Sub Tabuebertrag()


Windows("Hst-Schenker_EuroPal.Pool_Eingabe16.xlsm").Activate
Sheets("Pal.Ausgang").Select
Rows("3:64").Select
Range("A3:M65536").Select
Selection.Copy
Windows("Hst-Schenker_EuroPal.Pool_Auswertung16.xlsm").Activate
Sheets("Pal.Ausgang").Select
Range("A3").Select
ActiveSheet.Paste
Windows("Hst-Schenker_EuroPal.Pool_Eingabe16.xlsm").Activate
Sheets("Pal.Eingang").Select
Range("A3:M65536").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Hst-Schenker_EuroPal.Pool_Auswertung16.xlsm").Activate
Sheets("Pal.Eingang").Select
Range("A4").Select
Range("A3").Select
ActiveSheet.Paste
End Sub


ich komm einfach nicht hinter den Fehler!

Hajo_Zi
23.09.2016, 08:14
Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
<a href="http://hajo-excel.de/select.htm" title="Hinweise zu select usw." >Hinweise zu select usw. Hajo-Excel.de</a>
<a href="http://www.online-excel.de/excel/singsel_vba.php?f=61." >Hinweise zu select usw. Online-Excel.de</a>
<a href="http://www.online-excel.de/excel/singsel_vba.php?f=78." >Hinweise zu select usw. Online-Excel.de</a>

Option Explicit

Sub Tabuebertrag()
With Workbooks("Hst-Schenker_EuroPal.Pool_Eingabe16.xlsm")
.Sheets("Pal.Ausgang").Range("A3:M65536").Copy Sheets("Pal.Ausgang").Range("A3")
.Sheets("Pal.Eingang").Range("A3:M65536").Copy .Sheets("Pal.Eingang").Range("A3")
End With
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

benzer77
23.09.2016, 08:55
Danke Hajo,

die Cursor Bewegungen rühren vom Makro Recorder her!

Danke für deine schnelle Antwort klappt schon gut nur das er das 2 TB nicht kopiert!
Ausgang funktioniert aber Eingang nicht!

Hast du da noch ne Idee?

Führe das Modul mit deinem Code über eine Schaltfläche aus...

Gruß benzer

Hajo_Zi
23.09.2016, 08:59
ich sehe die Datei nicht und kann dazu nichts schreiben.
Ich sehe gerade, warum muss kopiert werden, es ist doch die gleiche Tabelle und gleiche Stelle.
Oder habe ich da was falsch gesehen?
<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

benzer77
23.09.2016, 09:30
Nein sind 2 Dateien deshalb das kopieren!

Es gibt die Hst-Schenker_EuroPal.Pool_Eingabe16.xlsm
aus der die Daten in Hst-Schenker_EuroPal.Pool_Auswertung16.xlsm
übertragen werden soll.

die Tabellen Blätter sind in beiden Dateien identisch.

Hajo_Zi
23.09.2016, 09:37
dann so ich sehe die zweite Datei nicht.
Option Explicit

Sub Tabuebertrag()
With Workbooks("Hst-Schenker_EuroPal.Pool_Eingabe16.xlsm")
.Sheets("Pal.Ausgang").Range("A3:M65536").Copy Workbooks("Datei2.xlsm").Sheets("Pal.Ausgang").Range("A3")
.Sheets("Pal.Eingang").Range("A3:M65536").Copy Workbooks("Datei2.xlsm").Sheets("Pal.Eingang").Range("A3")
End With
End Sub


<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

benzer77
23.09.2016, 11:55
Vielen Dank Hajo!

Läuft wie es soll!

Gruß Benzer