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

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, 11846 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Datenbanken
Kein Zugriff auf Inhalte der Tabellen in Datenbank (5)

Frage von Server2503 zum Thema Datenbanken ...

Microsoft Office
Excel Daten aus diversen Tabellen sammeln (9)

Frage von FitforLife zum Thema Microsoft Office ...

Microsoft Office
Excel 2010 - Zwei Tabellen vergleichen (Zugriffsprüfung) (2)

Frage von d4shoerncheN zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...