Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Daten aus mehreren Excel Dateien in eier Neuen Datei zusammenfügen

Frage Microsoft Microsoft Office

Mitglied: Magoo2000

Magoo2000 (Level 1) - Jetzt verbinden

08.01.2007, aktualisiert 12.02.2007, 24399 Aufrufe, 5 Kommentare

Hallo ich habe in einen Ordner sehr viele Excel Darein mit denselben Aufbau, und es kommen täglich welche dazu.
Die Exceldateien heißen immer anders. Nun möchte ich eine Excel Datei haben in der aus allen Dateien bestimmte Daten in einer art Liste zusammen geführt werden.

Beispiel: in jeder Datei, Zelle B3 steht der Vereinsname, in Zelle A9 der Name, C9 der Vorname und E9 die Spielernummer.
Dieses geht weiter bis A22, C22, E22. Das heißt es können bis zu 14 Namen in der Datei stehen.
Siehe Bild1
d3a9ef14b7831c94968a7fb45ac86c26-bild1 - Klicke auf das Bild, um es zu vergrößern


Diese Daten sollen in eine Unformatierte Datei eingefügt werden.
Siehe Bild2
f9be80720c091b512c9935f2bffd74aa-bild2 - Klicke auf das Bild, um es zu vergrößern

Da nicht bei allen Mannschaften 14 Namen in der Datei vorhanden sind, sollten nicht die leeren Daten übertragen werden.
Der Vereinsname sollte immer vor jeden Namen erscheinen.

Ich hoffe ihr versteht was ich meine und könnt mir helfen.

Gruß Magoo200
Mitglied: Stefan764
09.01.2007 um 08:20 Uhr
Hallo,

das würde ich in VBA machen:

01.
Dim fs, f, f1, fc, s 
02.
Set fs = CreateObject("Scripting.FileSystemObject") 
03.
Set f = fs.GetFolder("c:\excel\") 
04.
Set fc = f.Files 
05.
 
06.
Dim a, b 
07.
 
08.
a = 0 
09.
 
10.
For Each f1 In fc 
11.
     
12.
  Workbooks.Open "c:\excel\" & f1.Name 
13.
 
14.
  Dim Ziel, Quelle As Worksheet 
15.
 
16.
  Set Ziel = Workbooks.Item(1).Worksheets(1) 
17.
  Set Quelle = Workbooks.Item(2).Worksheets(1) 
18.
 
19.
  b = 0 
20.
   
21.
  While Quelle.Cells(b + 9, 1) <> "" 
22.
     
23.
    Ziel.Cells(a, 1) = Quelle.Cells(3, 2) 
24.
    Ziel.Cells(a, 2) = Quelle.Cells(b + 9, 1) 
25.
    Ziel.Cells(a, 3) = Quelle.Cells(b + 9, 3) 
26.
    Ziel.Cells(a, 4) = Quelle.Cells(b + 9, 5) 
27.
    b = b + 1 
28.
    a = a + 1 
29.
     
30.
  Wend 
31.
 
32.
  Set Ziel = Nothing 
33.
  Set Quelle = Nothing 
34.
 
35.
  Workbooks.Item(2).Close (False) 
36.
 
37.
Next
Das Programm konnte ich leider nicht testen, da ich Ihre Dateien nicht habe

mfG
Stefan
Bitte warten ..
Mitglied: Magoo2000
09.01.2007 um 10:29 Uhr
Hallo Stefan,
danke für die schnelle Hilfe.
Ich habe das VBA Skript eingegeben. Es bringt mir eine Fehlermeldung " fehler beim Kompilieren. Außerhalb der Prozedur ungültig.

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")

und zwar an der Set Stelle.

Ich habe keine Ahnung von VBA und habe mal die Datein unter

www.westfalenliga.de/dateien.rar hochgeladen.
Die Dateien liegen bei mir im Verzeichnis C:\Liga 2006\Teamkarten

Gruß Markus
Bitte warten ..
Mitglied: Stefan764
09.01.2007 um 11:03 Uhr
Hallo,

Da mußt du natürlich noch eine Procedur-Definition drumbauen.

Etwa so :

01.
Private Sub CommandButton1_Click() 
02.
Dim fs, f, f1, fc, s 
03.
Set fs = CreateObject("Scripting.FileSystemObject") 
04.
Set f = fs.GetFolder("C:\Liga 2006\Teamkarten\") 
05.
Set fc = f.Files 
06.
 
07.
Dim a, b 
08.
 
09.
a = 1    '  < hier war auch noch ein Fehler 
10.
 
11.
For Each f1 In fc 
12.
     
13.
  Workbooks.Open "C:\Liga 2006\Teamkarten\" & f1.Name 
14.
 
15.
  Dim Ziel, Quelle As Worksheet 
16.
 
17.
  Set Ziel = Workbooks.Item(1).Worksheets(1) 
18.
  Set Quelle = Workbooks.Item(2).Worksheets(1) 
19.
 
20.
  b = 0 
21.
   
22.
  While Quelle.Cells(b + 9, 1) <> "" 
23.
     
24.
    Ziel.Cells(a, 1) = Quelle.Cells(3, 2) 
25.
    Ziel.Cells(a, 2) = Quelle.Cells(b + 9, 1) 
26.
    Ziel.Cells(a, 3) = Quelle.Cells(b + 9, 3) 
27.
    Ziel.Cells(a, 4) = Quelle.Cells(b + 9, 5) 
28.
    b = b + 1 
29.
    a = a + 1 
30.
     
31.
  Wend 
32.
 
33.
  Set Ziel = Nothing 
34.
  Set Quelle = Nothing 
35.
 
36.
  Workbooks.Item(2).Close (False) 
37.
 
38.
Next 
39.
End Sub
mfG
Stefan
Bitte warten ..
Mitglied: Magoo2000
09.01.2007 um 11:59 Uhr
Genau das ist es

Danke für die schnelle und kompetente Hilfe
Bitte warten ..
Mitglied: erasor001
12.02.2007 um 18:35 Uhr
Hallo,
benötige auch in der Art eine Auswertung.
Könnte mir jemand die Fertige Datei(en) zukommen lassen damit ich es "nur" auf meine Bedürfnisse abändern muß. Kenn mich leider für die Erstellung zu wenig aus. Danke schon mal.
mfg
e-Mail volker@lehmann-on.net
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Einzelne daten aus verschiedenen csv dateien in eine excel zusammenfügen
Frage von K1200RVB for Applications4 Kommentare

Guten Tag zusammen, ich habe folgende Aufgabe und brauche ein VBA Code oder ähnliches: Ich habe ein Ordner mit ...

Batch & Shell
Aus mehreren Excel-Dateien Daten auslesen und in eine Excel Datei einfügen - Batch
gelöst Frage von LegolegolasBatch & Shell7 Kommentare

Nachdem mir hier schon einmal geholfen wurde, möchte ich erneut um Eure Hilfe für einen Batch bieten. Folgendes Szenario: ...

Microsoft Office
Excel Dateien durchsuchen und mehrere Werte in neue Excel Datei auslesen
Frage von CollatusMicrosoft Office7 Kommentare

Hallo zusammen, im Forum bin ich schon auf einen guten Ansatz gestoßen der mir schon sehr weiter Hilft aber ...

Microsoft Office
Excel VBA UserForm1 - Daten in neue Datei kopieren
gelöst Frage von abuelitoMicrosoft Office10 Kommentare

Hallo an Alle, ich habe wieder mal ein Problem mit meiner UserForm1. Ich habe eine UserForm1 und möchte über ...

Neue Wissensbeiträge
Windows 10

Windows 10 Fall Creators Update - Neue Funktion Hyper-V Standardswitch kann ggf. Fehler bei Proxy Configs verursachen

Erfahrungsbericht von rzlbrnft vor 10 StundenWindows 102 Kommentare

Hallo Kollegen, Da wir die Gefahr lieben, haben wir bei einigen Usern nun mittlerweile das Creators Update drauf. Einige ...

Sicherheit

TLS-Zertifikat und privater Schlüssel von Microsofts Dynamics 365 geleakt

Information von Penny.Cilin vor 12 StundenSicherheit

Microsoft hat versehentlich das TLS-Zertifikat inklusive dem privaten Schlüssel seiner Business-Anwendung Dynamics 365 geleakt. TLS-Zertifikat und privater Schlüssel von ...

Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 1 TagViren und Trojaner3 Kommentare

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 1 TagRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

Netzwerkmanagement
NAS über zwei weitere Ethernet Anschlüsse verbinden
gelöst Frage von Sibelius001Netzwerkmanagement16 Kommentare

Sorry - ich bin hier wahrscheinlich als kompetter IT Trottel unterwegs. Aber eventuell kann mir jemand ganz einfach helfen: ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Netzwerkgrundlagen
Hi eine blöde frage. xD
Frage von 132954Netzwerkgrundlagen13 Kommentare

Also: Habe 2012 r2 essentials neuinstalliert, allerdings installiert diese version ja gleich diesen gangen AD kram mit, den hab ...