MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 17.10.2018, 18:39   #1
entilzha
Neuer Benutzer
Neuer Benutzer
Ups Excel 2013 - Daten aus mehreren Datenblättern zusammenfassen

Hallo,
ich habe in einer Excel Tabelle mehrere Tabellenblätter a, b, c, d, e, f, g, h und noch paar weitere Buchstaben, je nach dem manchmal bis zu 400 Blätter.

Ich möchte gern, wenn das geht, die Spalte B2 bis Ende (B1 ist Überschrift) aus jedem Blatt untereinander in eine neu erstellen Tabellenblatt "Auswertung" einfügen.

Ich habe das versucht über Konsolidieren, leider ohne Erfolg.

Ein kleines Excel Bsp. Datei hängt bei

Vielen Dank im Voraus!
Angehängte Dateien
Dateityp: xlsx Inhalt aus Spalte B kopieren.xlsx (11,6 KB, 4x aufgerufen)
entilzha ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 19:35   #2
Hasso
MOF Meister
MOF Meister
Standard

Hallo entilzha,

ich habe dazu mal ein Makro geschrieben:
Code:

Option Explicit

Sub Werte_Kopieren()

Dim wksBlatt As Worksheet
Dim lngLetzteZeile As Long
Dim lngLetzteZeileAuswertung As Long

lngLetzteZeileAuswertung = 2

'Alle Blätter außer "Auswertung" durchgehen:
For Each wksBlatt In ThisWorkbook.Worksheets
  If wksBlatt.Name <> "Auswertung" Then
    'Letzte Zeile des Tabellenblatts in Spalte B ermitteln:
    lngLetzteZeile = wksBlatt.Cells(Rows.Count, 2).End(xlUp).Row
    'Erste freie Zeile der Tabellenblatts "Auswertung" in Spalte B ermitteln:
    lngLetzteZeileAuswertung = Worksheets("Auswertung").Cells(Rows.Count, 2).End(xlUp).Row + 1
    'Die Werte aus dem Blatt in das Tabellenblatt "Auswertung" in Spalte B einfügen:
    wksBlatt.Range("B2:B" & lngLetzteZeile).Copy _
      Destination:=Worksheets("Auswertung").Range("B" & lngLetzteZeileAuswertung)
  End If
Next wksBlatt

End Sub
Angehängte Dateien
Dateityp: xlsm Inhalt aus Spalte B kopieren.xlsm (19,5 KB, 4x aufgerufen)

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 19:45   #3
entilzha
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Dankeschön, funktioniert perfekt
Wünsche dir noch einen schönen Abend
entilzha ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2018, 19:46   #4
Hasso
MOF Meister
MOF Meister
Standard

Danke für die Rückmeldung!

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 16:16 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.