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

gelöst Excel - Dateien zusammenfassen zusammenführen - untereinander - gleicher Ordner

Mitglied: Midivirus

Midivirus (Level 2) - Jetzt verbinden

20.04.2010, aktualisiert 21.05.2010, 15534 Aufrufe, 2 Kommentare, 1 Danke

Exceldateien ... in eine!

Moin,

ich stand vor dem Problem, dass wir immer Datenbankauszüge in Form einer Excel (XLS) Datei zugeschickt bekommen.
Diese beinhalten nur eine Arbeitsmappe und gleiche Überschriften.

Wenn jetzt ein Projekt mal 13 oder 14 Dateien beinhaltet, dann wird das schon langweilig, da jede Datei geöffnet, der Bereich markiert und copy/paste gemacht werden müsste.

Hab mich dann im Web auf die Suche gemacht und siehe da, möchte es auch zeigen:


01.
  
02.
Sub makro1() 
03.
Worksheets(1).Activate 
04.
Cells.Select 
05.
Selection.Delete Shift:=xlUp 
06.
Range("A1").Select 
07.
aname = ActiveWorkbook.Name 
08.
 
09.
Cells(1, 2) = "ID" 
10.
Cells(1, 3) = "Nummer" 
11.
 
12.
pfad1 = ActiveWorkbook.Path & "\"             
13.
name1 = Dir(pfad1, vbNormal)                   
14.
 
15.
Do While name1 <> ""                           
16.
    If name1 <> aname Then                    
17.
        If Right(name1, 4) = ".xls" Then        
18.
            GoSub uebernehmen 
19.
        End If 
20.
    End If 
21.
    name1 = Dir                                 
22.
Loop 
23.
    Cells.Select                                
24.
    Cells.EntireColumn.AutoFit                  
25.
    Cells(1, 1).Select                         
26.
Exit Sub                                       
27.
 
28.
uebernehmen: 
29.
Workbooks.Open Filename:=pfad1 & name1 
30.
Worksheets(1).Activate 
31.
lz = Range("b65536").End(xlUp).Row              
32.
If lz > 1 Then 
33.
    Range(Cells(2, 2), Cells(lz, 18)).Select       
34.
    Selection.Copy                                 
35.
    Windows(aname).Activate                        
36.
    l1 = Range("a65536").End(xlUp).Row + 1          
37.
    Cells(l1, 2).Activate                           
38.
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
39.
        :=False, Transpose:=False                 
40.
    Application.DisplayAlerts = False               
41.
    Windows(name1).Close                           
42.
    Application.DisplayAlerts = True              
43.
    l2 = Range("b65536").End(xlUp).Row             
44.
    Range(Cells(l1, 1), Cells(l2, 1)) = name1    
45.
    
46.
    Else 
47.
    Windows(name1).Close                            
48.
End If 
49.
Return                                          
50.
End Sub


Alle Dateien müssen in einem Ordner liegen, wo auch dieses Makro abgelegt ist.

Viel Spaß!
Mitglied: Midivirus
18.05.2010 um 14:54 Uhr
782mal gelesen ... sehr interessant!
Bitte warten ..
Mitglied: Jacksoney
25.11.2010 um 17:28 Uhr
Hallo,
Ich bin nicht so fit in sachen VBA. Ich habe den Code als Test 1:1 kopiert und die Datei zeigt mir zwar die Überschrifften an jedoch keine Daten untereinander. die Daten jedoch erscheinen für einen Bruchteil einer Sekunde. woran kann das liegen?
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Ordner mit mehreren csv. Dateien in eine Excel Datei zusammenfassen

gelöst Frage von Metal008VB for Applications23 Kommentare

Hallo, ich stehe vor folgendem Problem. Ich möchte enorme Datenmengen in eine Excel, oder auch Access Datei zusammenfassen. Ich ...

VB for Applications

VBA Excel Dateien zusammenfassen

Frage von cberndtVB for Applications3 Kommentare

Hi Leute. Ich bin dabei einen Ordner mit Excellisten zusammenzufassen. Im Ordner sind gut 600 einzelne Excel Dateien die ...

Microsoft Office

Daten in Excel zeilenweise zusammenfassen, wenn erste Zelle gleich

Frage von hopperMicrosoft Office1 Kommentar

Ich beziehe aus mehren Datenquellen Daten, welche ich dann in Excel (Excel2007) auswerten möchte. Jeweils zusammengehörende Datensätze sind an ...

Windows 7

Ordner vergleichen, bei gleichem Datum, Inhalt zusammenführen

Frage von ConcurveWindows 73 Kommentare

Guten Tag, ich würde bei einem "Problem" Hilfe benötigen. Leider bin ich was *.bat angeht ziemlich Ahnungslos und hoffe ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 15 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 20 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...