collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 87
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 3
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14395
  • stats Beiträge insgesamt: 71381
  • stats Themen insgesamt: 9626
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Makro zum Aufruf anderer Excel-Datei und Bearbeitung  (Gelesen 4710 mal)

Offline Ciesto

  • Newbie
  • Beiträge: 11
Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« am: Februar 26, 2011, 23:12:57 »
Hallo Leute,

ich benötige mal Eure fachmännische Hilfe zur folgender Ausgangssituation:

Excel-Datei A: Diese Datei wird mir einmal im Monat aus SAP bereit gestellt. Sie umfaßt insg. immer 48 Spalten und eine variable Anzahl an Zeilen. Von diesen 48 Spalten werden jedoch nur 18 Spalten benötigt. Die Anordnung der Spalten ist immer gleich.

Excel Datei B: In dieser Datei gibt es 12 Tabellenblätter (Januar bis Dezember). Auf jedem Blatt ist die selbe Grundtabelle. Zeile 1 beinhaltet die Spaltenüberschriften. Ab Zeile zwei kommen die Daten. Ab Spalte 19 kommen verschiedene Spalten mit div. umfangreichen Berechnungen.

Jetzt zu meinem Anliegen. Ich suche eine Möglichkeit, um per "Knopfdruck" (also Makro) aus der Datei B heraus, die Datei A aufzurufen, die nicht benötigten Spalten zu entfernen und anschließend in die übrigen Daten (abzüglich der ersten Zeile, da dies die Überschriften sind) in meine Datei B wieder einzufügen. Der Bereich, in den die Daten in Datei B eingefügt werden ist fest definiert: Von A2:R65000.

Hat irgend jemand eine Idee? Ich wäre Euch da echt dankbar!

Gruß
Ciesto

edit: Ich habe mal noch ein wenig gegoogelt und habe nun folgenden Code:

Private Sub CommandButton1_Click()
x = Application.GetOpenFilename()
If x = False Then Exit Sub
Set xlWB = Workbooks.Open(x)
Sheets("Daten").Select
Range("B:B,D:D,E:E,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T,U:U,X:X,Y:Y,Z:Z,AA:AA,AB:AB,AC:AC,AF:BI").Select
    Selection.Delete Shift:=xlToLeft
    Range("A2:M1000").Select
    Selection.Copy
    Windows("Verrechnete Aufarbeitungen von 01.2011 bis 12.2011.XLS").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Allerdings kommt immer ein Laufzeitfehle '1004' Anwendungs- oder Objektdefinierter Fehler

 
« Letzte Änderung: Februar 27, 2011, 01:35:03 von Ciesto »
 

database

  • Gast
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #1 am: Februar 27, 2011, 09:45:13 »
Hallo,

Zitat
Allerdings kommt immer ein Laufzeitfehle '1004' Anwendungs- oder Objektdefinierter Fehler
...und in welcher Zeile passiert das?
Setz mal einen Haltepunkt aufs Ereignis und fahre den Code mit F8 schrittweise durch
 

Offline Ciesto

  • Newbie
  • Beiträge: 11
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #2 am: Februar 27, 2011, 13:22:58 »
Bei folgender Zeile passiert es:

Sheets("Daten").Select
 

database

  • Gast
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #3 am: Februar 27, 2011, 14:35:57 »
Versuch mal

ActiveWorkbook.Sheets("Daten").Select

der fehler liegt sicher daran, dass das Blatt nicht richtig angesprochen wird.
Sheet allein geht nur wenn der Code in Excel läuft.

 

Offline Ciesto

  • Newbie
  • Beiträge: 11
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #4 am: Februar 27, 2011, 15:16:51 »
Versuch mal

ActiveWorkbook.Sheets("Daten").Select

der fehler liegt sicher daran, dass das Blatt nicht richtig angesprochen wird.
Sheet allein geht nur wenn der Code in Excel läuft.



Nun erschein folgender Fehler:

'Laufzeitfehler 1004'

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.
 

database

  • Gast
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #5 am: Februar 27, 2011, 15:51:18 »
Hallo,

entsteht der Fehler in der gleichen Zeile oder beim Auswählen der Spalten?
 

Offline Ciesto

  • Newbie
  • Beiträge: 11
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #6 am: Februar 27, 2011, 16:01:39 »
Beim Auswählen der Spalten .
 

database

  • Gast
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #7 am: Februar 27, 2011, 16:28:20 »
Versuch dann da mal:

ActiveSheet.Range("B:B,D:D,E:E,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T,U:U,X:X,Y:Y,Z:Z,AA:AA,AB:AB,AC:AC,AF:BI").Select
 

Offline Ciesto

  • Newbie
  • Beiträge: 11
Re: Makro zum Aufruf anderer Excel-Datei und Bearbeitung
« Antwort #8 am: Februar 27, 2011, 17:16:34 »
Danke database!

Jetzt hat's geklappt. Supi...!


edit: Für alle, die es interessiert, hier mal der komplette Code, so wie ich ihn jetzt verwende:

Private Sub CommandButton1_Click()
x = Application.GetOpenFilename()
If x = False Then Exit Sub
Set xlWB = Workbooks.Open(x)
ActiveWorkbook.Sheets("Daten").Select
ActiveSheet.Range("B:B,C:C,D:D,E:E,M:M,N:N,O:O,P:P,Q:Q,R:R,S:S,T:T,U:U,X:X,Y:Y,Z:Z,AA:AA,AB:AB,AC:AC,AF:BI").Select
    Selection.Delete Shift:=xlToLeft
ActiveSheet.Range("A2:L1000").Select
    Selection.Copy
    Windows("Verrechnete Aufarbeitungen von 01.2011 bis 12.2011.XLS").Activate
    ActiveWorkbook.Sheets("Januar 2011").Select
    Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub
« Letzte Änderung: Februar 27, 2011, 17:18:45 von Ciesto »
 

 

Makro geht nicht über Button

Begonnen von Earl of GreenBoard Microsoft Excel

Antworten: 10
Aufrufe: 10718
Letzter Beitrag Mai 25, 2010, 14:33:47
von Earl of Green
Makro zum Speichern einer Arbeitsmappe

Begonnen von ohnePlanBoard Microsoft Excel

Antworten: 16
Aufrufe: 11559
Letzter Beitrag Juli 29, 2010, 13:35:19
von ohnePlan
Forumlar ein- und ausblenden per Button (Makro)

Begonnen von JulianZ.Board Tabelle/Abfrage

Antworten: 5
Aufrufe: 4395
Letzter Beitrag September 21, 2010, 16:41:06
von database
wie kann man die Zeit messen, die ein Makro braucht?

Begonnen von Axel18Board Access-Hilfe

Antworten: 6
Aufrufe: 4899
Letzter Beitrag November 13, 2010, 21:59:27
von database
Alle Datensätze per Makro exportieren

Begonnen von ManusDeiBoard Tabelle/Abfrage

Antworten: 4
Aufrufe: 2859
Letzter Beitrag Dezember 21, 2010, 14:19:42
von ManusDei