Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Frage Microsoft Microsoft Office

Mitglied: Midivirus

Midivirus (Level 2) - Jetzt verbinden

20.04.2010, aktualisiert 21.05.2010, 15212 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
VBA Excel Dateien zusammenfassen (3)

Frage von cberndt zum Thema VB for Applications ...

Microsoft Office
gelöst Excel Dateien durchsuchen und Teile extrahieren (14)

Frage von Beranavan zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(39)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

SAN, NAS, DAS
+100tb Storagelösung (12)

Frage von Data-Fabi zum Thema SAN, NAS, DAS ...

LAN, WAN, Wireless
Cisco W-Lan Controller als Applicance oder Software (11)

Frage von Herbrich19 zum Thema LAN, WAN, Wireless ...

DNS
gelöst Komplette TLD Überschreiben bzw eigene Definieren (10)

Frage von Herbrich19 zum Thema DNS ...