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

Alle Inhalte mehrerer Tabellen einer Excel-Mappe zusammenführen

Frage Microsoft Microsoft Office

Mitglied: flipflip

flipflip (Level 1) - Jetzt verbinden

24.04.2009, aktualisiert 14:46 Uhr, 12292 Aufrufe, 3 Kommentare

Hallo,

ich habe folgendes Problem und hoffe, dass vielleicht jemand einen Tip für mich hat. =).

Ich bekomme monatlich eine Excel-Datei (also eine Mappe), die sehr viele Tabellen enthält. (1 XLS-Datei mit 1 Mappe mit n Tabellen) Alle Zeilen aller Tabellen muss ich nun in eine neue Tabelle zusammenführen (einfach untereinander einfügen). Bisher habe ich es so gemacht, dass ich in einer neuen Mappe eine neue Tabelle angelegt habe, dann aus jeder vorhandenen Tabelle (1..n, Mappe 1) alle Zeilen per STRG-C kopiert habe und diese dann mit STRG-V am Ende der neu angelegten Tabelle eingefügt habe.

Kennt jemand eine Möglichkeit dies irgendwie zu automatisieren? Wäre dankbar für jeden Tip! =)

Grüße
flipflip
Mitglied: 76109
24.04.2009 um 15:32 Uhr
Hallo flipflip,

verstehe ich das richtig, Du hast eine *.xls-Datei, die heisst Mappe1.xls und hat mehrere Tabellblätter. Und Du möchtest aus allen Tabellenblättern alle Zeilen in eine andere Import.xls-Datei in eine Tabelle einlesen?

Befindet sich die Datei Mappe1.xls im gleichen Ordner, wie die Import.xls?

Gruß Dieter

PS Wie sind die Zeilen Spalten aufgeteilt. Alles gleichmäßig unter- und nebeneinander? Bitte Beispiel?
Bitte warten ..
Mitglied: 76109
24.04.2009 um 17:59 Uhr
Hallo flipflip,

das Makro, kannst Du im VB-Editor in "DieseArbeitsmappe" Deiner Import.xls reinkopieren und wieder zurück in der Excel-Tabellenansicht über Extras><Makro><Makros><Optionen> mit einer Tastenkombination verknüpfen und starten.

Es wird angenommen, das die sich die zu kopierenden Zellen in der Datei Mappe1.xls befinden. Auch wird angenommen, dass sich diese Datei im selben Ordner befindet, wie die andere Datei.

Ansonsten im Makro den Dateinamen oder Pfad ändern.

01.
Sub ImportCells() 
02.
    Dim iWkb As Workbook, iWks As Worksheet, eWks As Worksheet, EndLine As Long 
03.
 
04.
    On Error GoTo Ende 
05.
     
06.
    Set eWks = ActiveWorkbook.ActiveSheet 
07.
    Set iWkb = Workbooks.Open(ThisWorkbook.Path & "\Mappe1.xls") '("Pfad") 
08.
     
09.
    For Each iWks In iWkb.Worksheets 
10.
        iWks.Range("A1", iWks.Cells.SpecialCells(xlLastCell)).Copy 
11.
        With eWks 
12.
            EndLine = .Cells(.Rows.Count, 1).End(xlUp).Row 
13.
            If EndLine > 1 Then EndLine = EndLine + 1 
14.
           .Paste Destination:=.Cells(EndLine, 1) 
15.
        End With 
16.
    Next 
17.
    Application.CutCopyMode = False:  iWkb.Close 
18.
    Exit Sub 
19.
Ende: 
20.
    MsgBox "Unbekannter Fehler", vbExclamation, "Fehler" 
21.
End Sub
Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Datenbanken
MySQL zwei Tabellen zusammenführen
gelöst Frage von RedBullmachtfitDatenbanken10 Kommentare

Hallo, ich habe in MySQL eine Artikel-Tabelle in welcher alle Artikel gespeichert sind sowie eine art_preise-Tabelle, in welcher nur ...

Datenbanken
SQL - Zwei Tabellen zusammenführen
gelöst Frage von Memo66Datenbanken6 Kommentare

Hallo, ich bin dabei SQL zu lernen und habe mir dazu eine Fußballdatenbank angelegt. Ich habe nun folgendes Problem ...

Microsoft Office
Aus Access Tabelle in bestehende Tabelle Excel an eine bestimmte Mappe Werte übergeben
Frage von thomas1972Microsoft Office2 Kommentare

Hallo, ich komme hier an einer Stelle nicht weiter. Wie ist es möglich aus einer Access Tabelle gewisse Spalten ...

Microsoft Office
Excel 2010 - Tabelle mit mehreren Makros?
Frage von Norderney95Microsoft Office2 Kommentare

Ich brauche jeden Monat eine Arbeitsmappe (wie in der angehängten Datei), die folgendes enthält - 1. Blatt „Summe“ - 2. Blatt ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 2 TagenSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Router & Routing
Fritzbox Gastnetz - exposed Host - zur Sophos IPTV
Frage von medikopterRouter & Routing7 Kommentare

Hallo zusammen, ich habe eine Frage bezüglich des Fritz box Gastzugangs an einer Sophos UTM Home. An liebsten wäre ...