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
Kommentar vom Moderator Biber am 02.10.2009 um 15:13:17 Uhr
Original-Titel "Excel Makro" ein bisschen erweitert.

Und auf "Gelöst" gesetzt, falls sich das Feedback verzögern sollte.

gelöst Excel Makro - Daten aus mehreren Tabellen in einer neuen Tabelle zusammenfassen

Mitglied: Marcel-D

Marcel-D (Level 1) - Jetzt verbinden

03.02.2009, aktualisiert 02.10.2009, 13843 Aufrufe, 5 Kommentare

Hallo,

ich habe etwa 2000 Quelldateien, aus denen ich ganz bestimmte Zellen (es sind immer dieselben Zellpositionen) in einer neuen Zieldatei zusammenfügen möchte.
Dies würde ich gern über ein Makro laufen lassen. Nur mein Problem ist, dass ich mich gar nicht mit Makros auskenne.

Habe dies hier gefunden weiß aber nicht genau ob mir das in irgendeiner Form helfen könnte. Außerdem wüsste ich nicht was ich in Zeile 7/8 eintragen soll.
https://www.administrator.de/index.php?content=58175


Wäre nett wenn mir jemand helfen könnte.
Mitglied: bastla
03.02.2009 um 18:49 Uhr
Hallo Marcel-D!

Etwas mehr Informationen (wo befinden sich die Dateien, welche Zellen sollen an welche Positionen eingefügt werden) wäre hilfreich ...

Grüße
bastla
Bitte warten ..
Mitglied: Marcel-D
04.02.2009 um 09:07 Uhr
Also ich habe auf dem Laufwerk E das Verzeichnis Kundenkartei.
Aus allen darin enthaltenen Dateien muss ich folgende Zellen konsolidieren: C2, C5, C7, C9, E3, E5, E7, E9, I1

Gruß
Marcel
Bitte warten ..
Mitglied: bastla
04.02.2009 um 18:08 Uhr
Hallo Marcel-D!

Zum Testen des folgenden Makros vielleicht nur einmal 3 oder 4 Dateien in einen neuen Ordner kopieren und diesen als "sQuellPfad" angeben. Die Zusammenfassungsdatei, in welcher das Makro ausgeführt werden soll, darf nicht im selben Ordner gespeichert sein.
01.
Sub Zusammenfassen() 
02.
sQuellpfad = "E:\Kundenkartei-Test" 
03.
 
04.
Q = Array("C2", "C5", "C7", "C9", "E3", "E5", "E7", "E9", "I1") 'Quellzellen 
05.
Z = Array("A", "B", "C", "D", "E", "F", "G", "H", "I") 'Zielspalten in Sammeldatei 
06.
 
07.
R = 3 'Startzeile in Sammeltabelle 
08.
 
09.
Set wbGes = ActiveWorkbook 
10.
Set fso = CreateObject("Scripting.FileSystemObject") 
11.
N = UBound(Q) 
12.
 
13.
For Each oFile In fso.GetFolder(sQuellpfad).Files 
14.
    If LCase(Right(oFile.Name, 4)) = ".xls" Then 
15.
        Application.Workbooks.Open oFile.Path 
16.
        For i = 0 To N 
17.
            wbGes.Worksheets(1).Cells(R, Z(i)).Value = ActiveWorkbook.Worksheets(1).Range(Q(i)).Value 
18.
        Next 
19.
        ActiveWorkbook.Close False 
20.
        R = R + 1 
21.
    End If 
22.
Next 
23.
 
24.
wbGes.Worksheets(1).Activate 
25.
wbGes.Save 
26.
MsgBox "Fertig." 
27.
End Sub
Die Daten werden dem ersten Tabellenblatt der jeweiligen Quelldatei entnommen und (ohne Formatierung) in die erste Tabelle der Sammeldatei übertragen. Am Ende wird die Sammeldatei automatisch gespeichert (siehe "wbGes.Save").

Grüße
bastla
Bitte warten ..
Mitglied: Marcel-D
05.02.2009 um 08:54 Uhr
Super Danke

Ich werds gleich mal ausprobieren.

Gruß
Marcel
Bitte warten ..
Mitglied: Biber
02.10.2009 um 15:34 Uhr
ich geh mal davon aus, dass das "gleich mal ausprobieren" etwas länger dauert, weil...hmm..
.... schon allein die Wahl der richtigen Schriftart und Schriftart will wohlüberlegt sein....

Und ob sich bastlas Schnipsel wirklich mit Copy&Paste übernehmen lässt oder ob ich jemenad einstellen sollte, der es eintippt.... hmm...

Und überhaupt... eigentlich lohnt es sich doch gar nicht mehr, mit Excel 2008 anzufangen, bald gibt es doch bestimmt Excel 2015....

Fragen über Fragen.... endlose Diskussionen im ganzen Entwicklungsteam....

Ach weisst Du... während Du es noch schnell ausprobierst setze ich schon mal den Beitrag auf "Erledigt".

MfG Biber
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Seitenumbruch in Excel soll neue Tabelle sein

gelöst Frage von killtecMicrosoft Office10 Kommentare

Hallo zusammen, ein Kollege trat gerade an mich ran und hatte gefragt, ob es möglich ist, eine Exceltabelle die ...

Microsoft Office

Excel Daten aus diversen Tabellen sammeln

Frage von FitforLifeMicrosoft Office9 Kommentare

Hallo, habe folgendes Aufgabe zu lösen: Es bestehen diverse Sheets. Beispielhaft hier auf 3 reduziert. Auf Sheet 1 und ...

Microsoft Office

Excel Tabelle

Frage von samsamsamMicrosoft Office17 Kommentare

Hallo Ich habe ein Problem mit einer Tabelle In der ersten Tabebelle hab ich Namen aufgelistet und 1 Zelle ...

Microsoft Office

Excel Tabelle gefiltert auf neues Tabellenblatt

gelöst Frage von Florian86Microsoft Office3 Kommentare

Hallo, ich habe folgendes Problem und zwar möchte ich eine Excel Tabelle mit folgenden Aufbau Datum Lfd. Nr. Menge ...

Neue Wissensbeiträge
Windows Server

Windows Server Backup schlögt Fehl -Lösung 2008-2016

Tipp von BiGnoob vor 1 StundeWindows Server

Hi zusammen , ich möchte gerne einen Lösungstipp abgeben für folgenden fehler: lösung ist folgende:

Humor (lol)
Telekom vs. O2 - 3:2
Erfahrungsbericht von the-buccaneer vor 14 StundenHumor (lol)2 Kommentare

Unglaublich aber wahr: Nachdem mein privater Anschluss am 19.04.18 auf VOIP und VDSL umgestellt wurde, hatte ich seitdem 1,5 ...

Batch & Shell

Windows 10 Heimnetzgruppe abgeschaft. Ein Script für einfache Netzwerk - Freigabe im Heimnetzwerk

Anleitung von treehe vor 16 StundenBatch & Shell3 Kommentare

Anleitung für eine einfache Netzwerkfreigabe unter Windows 10 Wie weiter hab mal ein kleines CMD - Script gebastelt. Womit ...

Verschlüsselung & Zertifikate

Efail die II - Warum SMime und PGP der Zeit hinterherhinken

Information von certifiedit.net vor 2 TagenVerschlüsselung & Zertifikate

Guten Morgen, nachdem der letzte Beitrag rege kommentiert wurde, die IT-Republik sich nun darüber streitet ob es nun ein ...

Heiß diskutierte Inhalte
Netzwerke
IP-Adresse am zweiten Domänencontroller fest vergeben - Server verschwunden
Frage von DanielG1974Netzwerke18 Kommentare

Ich hab ein Problem, was ich bisher noch nicht erlebt habe Ich habe erfolgreich einen zweiten Server mit ActiveDirectory ...

Windows Server
Windows Server 2012 - Update - Beim Booten bleibt der Server beim Windows Zeichen stehen
Frage von KeilbachWindows Server14 Kommentare

Hallo Zusammen, ich grüße euch, mein Name ist Michele. Ich bin hier ganz Neu - da ich einfach nicht ...

Windows Tools
Virtueller Drucker gesucht (Schnittstelle: USB oder Seriell)
Frage von chrisButterflyWindows Tools14 Kommentare

Hi, ich suche einen virtuellen Drucker, den ich über eine USB oder serieller Schnittstelle ansprechen kann. Dieser Drucker soll ...

Firewall
Sophos SG 125 nicht mehr erreichbar
Frage von GwaihirFirewall14 Kommentare

Hallo zusammen, ausgerechnet über die Feiertage stimmt etwas mit meiner Firmen-Firewall nicht. Es ist eine Sophos SG 125 und ...