Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mehrere Datein öffnen und 1.Sheet kopieren
zurück: Drucken der UserForm mittels commandbutton weiter: Zellen aus aktiver Zeile in ein anders Arbeitsblatt kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
snoopyine
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Mai 2007, 12:35
Rufname:

Mehrere Datein öffnen und 1.Sheet kopieren - Mehrere Datein öffnen und 1.Sheet kopieren

Nach oben
       Version: Office 2003

Hallo zusammen,

stehe vor folgendem Problem. Ich möchte per VBA aus mehreren Dateien das 1.Sheet kopieren und in meine Zieldatei kopieren. Den Code für das öffnen habe ich schon. Da ich das über ein Array mache, habe ich dann aber das Problem, dass ich das Sheet aus meinen Quelldateien nicht kopieren kann (quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2))

Hier erst mal mein bisheriger Code:

Sub öffnen()
Dim l As Long
Dim quelldateien As Variant
Dim zieldatei As Workbook
Dim wrks As Worksheets

Set zieldatei = ActiveWorkbook

l = 0
quelldateien = Application.GetOpenFilename("Excel-Dateien (*.xls),*.xls", MultiSelect:=True)
If IsArray(quelldateien) Then
For l = LBound(quelldateien) To UBound(quelldateien)
Workbooks.Open quelldateien(l)
quelldateien(l).Worksheets(1).Copy after:=zieldatei.Worksheets(2)
quelldateien(l).Close
Next l

Else
MsgBox "Sie haben keine Arbeitsmappe ausgewählt!", vbInformation
End If

End Sub



Weiß jemand Rat??

grüße
Sabbel
arnoldh
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Mai 2007, 13:04
Rufname:

AW: Mehrere Datein öffnen und 1.Sheet kopieren - AW: Mehrere Datein öffnen und 1.Sheet kopieren

Nach oben
       Version: Office 2003

Hallo,

änder dein Code wie folgt ab:

Code:
Sub öffnen()
    Dim l As Long
    Dim quelldateien As Variant
    Dim zieldatei As String
    Dim strSsource As String
    Dim wrks As Worksheets
   
    zieldatei = ActiveWorkbook.Name
   
   
    l = 0
    quelldateien = Application.GetOpenFilename("Excel-Dateien (*.xls),*.xls", MultiSelect:=True)
    If IsArray(quelldateien) Then
    For l = LBound(quelldateien) To UBound(quelldateien)
        Workbooks.Open quelldateien(l)
        strSource = ActiveWorkbook.Name
        Worksheets(1).Copy after:=Workbooks(zieldatei).Worksheets(2)
        Windows(strSource).Close
    Next l
   
    Else
    MsgBox "Sie haben keine Arbeitsmappe ausgewählt!", vbInformation
    End If
End Sub


Gruß,

Arnold

_________________
**************************************

Eine Antwort ob es geklappt hat wäre schön

**************************************
snoopyine
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Mai 2007, 13:41
Rufname:


AW: Mehrere Datein öffnen und 1.Sheet kopieren - AW: Mehrere Datein öffnen und 1.Sheet kopieren

Nach oben
       Version: Office 2003

Danke !!!
Funktioniert Super !!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Daten per Button kopieren 4 Gast 1462 16. Nov 2005, 20:38
etron795 Daten per Button kopieren
Keine neuen Beiträge Excel Formeln: Relativer Zellbezug - Kopieren in andere Bereiche 5 Ralf123 1458 18. Aug 2005, 18:14
fridgenep Relativer Zellbezug - Kopieren in andere Bereiche
Keine neuen Beiträge Excel Formeln: Fußzeile in mehrere Exceldateien kopieren oder übergeben ... 2 nugget 1453 02. Aug 2005, 10:53
nugget Fußzeile in mehrere Exceldateien kopieren oder übergeben ...
Keine neuen Beiträge Excel Formeln: Sortieren auf dem zweiten Sheet 0 Gast I 742 20. Jul 2005, 12:11
Gast I Sortieren auf dem zweiten Sheet
Keine neuen Beiträge Excel Formeln: kmpl. Zeilen aus mehrere Tab. in neue Tab. kopieren wenn.... 2 maddoc 1470 11. Jul 2005, 18:08
maddoc kmpl. Zeilen aus mehrere Tab. in neue Tab. kopieren wenn....
Keine neuen Beiträge Excel Formeln: errechneten Wert aus Zelle kopieren? 2 Markus_H 1755 06. Jul 2005, 10:25
Markus_H errechneten Wert aus Zelle kopieren?
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Zelle vergleichen und dann andere Zellen kopieren?? 7 Aleks 2283 27. März 2005, 21:59
ae Zelle vergleichen und dann andere Zellen kopieren??
Keine neuen Beiträge Excel Formeln: Formel zum kopieren 1 Fazer 665 26. Feb 2005, 18:12
G Formel zum kopieren
Keine neuen Beiträge Excel Formeln: Autoausfüllen bzw. Kopieren von Zellen mit Formeln 3 UnitedBlue 1585 23. Feb 2005, 18:08
The BOO-M-AN Autoausfüllen bzw. Kopieren von Zellen mit Formeln
Keine neuen Beiträge Excel Formeln: *** Automatische übernahme einer Zeile in ein anderes Sheet 5 Lucas 1586 10. Feb 2005, 17:44
fridgenep *** Automatische übernahme einer Zeile in ein anderes Sheet
Keine neuen Beiträge Excel Formeln: Text von Tabelle1 auch in Tabelle 2 kopieren 7 Pinguin1977 2848 30. Jan 2005, 16:56
Pinguin1977 Text von Tabelle1 auch in Tabelle 2 kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum