Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1640to1644
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zusammenfasen einzelner Sheets in ein Datasheet

Zusammenfasen einzelner Sheets in ein Datasheet
07.09.2018 11:35:28
Scharoll
Hallo,
ich habe folgendes Problem und Suchhe dafür eine Lösung.
Ich habe unterschiedliche Shhets in einem Workbook (Januar, Februar, März... Berechnungstunden, PivotTabelle)
Jetzt möchte ich alle Monate also ab Januar in ein DataSheet zusammenfassen.
Die Spalten Anzahl ist bei allen Sheets gleich, nur unterscheidet sich die Anzahl der Rows.
Bsp. Januar hat 1066 und Februar nur 651
Jedoch sollen im DataSheet die Tabellen untereinander fortlaufend sein.
Datasheet
Januar (A1:AZ1066)
also im Datasheet ab Row 1067 dann die Tabelle
Februar (A2:AZ651
Maerz würde dann folglich an Row 1718 beginnen
Maerz (A2:AZ951)
.
.
.
Ich hoffe ich konnte das einiger maßen erklären was ich brauche. Hoffe hier könnt mir helfen, ich habe nämlich kein Plan wie ich das anstellen soll. Ausser ich nutze handlich ein Verweis das wird mir aber auf dauer ziemlich umständig.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zusammenfasen einzelner Sheets in ein Datasheet
07.09.2018 12:04:15
Rudi
Hallo,
als Ansatz
Sub scharoll()
Application.ScreenUpdating = False
Sheets("Januar").Cells(1, 1).curentregion.Copy Sheets("Datasheet").Cells(1, 1)
Sheets("Februar").Cells(1, 1).CurrentRegion.Offset(1).Copy Sheets("Datasheet").Cells(Rows. _
Count, 1).End(xlUp).Offset(1)
Sheets("Maerz").Cells(1, 1).CurrentRegion.Offset(1).Copy Sheets("Datasheet").Cells(Rows.Count, _
1).End(xlUp).Offset(1)
Sheets("April").Cells(1, 1).CurrentRegion.Offset(1).Copy Sheets("Datasheet").Cells(Rows.Count, _
1).End(xlUp).Offset(1)
'etc
End Sub

Gruß
Rudi
AW: Zusammenfasen einzelner Sheets in ein Datasheet
07.09.2018 13:38:01
Scharoll
Hat super geklappt, dnake für die schnelle Antwort.
den code schniebsel musste ich auskommentieren lief in ein Fehler.
heets("Januar").Cells(1, 1).CurrentRegion.Copy Sheets("Datasheet").Cells(1, 1)
Wie kann ich das jetzt erweitern ohne jedesmal ein weiteren Monat zum Code hinzufügen.
Anzeige
AW: Zusammenfasen einzelner Sheets in ein Datasheet
08.09.2018 23:40:18
Piet
Hallo
Das hinzufügen weiterer Monate wird sich nicht vermeiden lassen!
Da man den Code leicht kopieren kann ist ja nur der Monat zu aendern.
Es gibt noch zwei Varianten die mir einfallen die den Code verkürzen.
Die erste muss jeder Monat angeeben werden, zum kopieren wird GoSub aufgerufen.
Die zweite geht per For Next Schleife über Index. Abarbeiten über die Blatt Nummer.
Index heist, die Nummer wo das Blatt als Reiter steht müssen fortlaufen gestellt sein! Januar, Februar usw.
Hinweis - Bei Index wird nicht geprüft ob das Blatt auch den richtigen Monat als Text aufweist!!
Falls ein Monat fehlt muss das über Fehlermeldung abgefangen werden.
mfg Piet
' Gosub mit Return Variante
Sub scharoll_1()
Dim Sht As String
Application.ScreenUpdating = False
Sheets("Januar").Cells(1, 1).CurrentRegion.Copy Sheets("Datasheet").Cells(1, 1)
'Alle 12 Monate einzeln aufführen
Sht = "Februar":  GoSub cpy
Sht = "März":     GoSub cpy
Sht = "April":    GoSub cpy
'bis Dezember erweitern !!
Exit Sub
cpy:  On Error GoTo Fehler
Sheets(Sht).Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("Datasheet").Cells(Rows.Count, 1).End(xlUp).Offset(, 1)
Return
Fehler:  'Aussprung ab fehlendem Monat
MsgBox Sht & "  Sheet existiert nicht!!"
End Sub
' Fğr Next über Index Variante
Sub scharoll_2()
Dim a As Integer, j As Integer
a = Sheets("Januar").Index
Application.ScreenUpdating = False
Sheets("Januar").Cells(1, 1).CurrentRegion.Copy Sheets("Datasheet").Cells(1, 1)
On Error GoTo Fehler
For j = a To a + 12
Sheets(j).Cells(1, 1).CurrentRegion.Offset(1).Copy _
Sheets("Datasheet").Cells(Rows.Count, 1).End(xlUp).Offset(, 1)
Next j
Exit Sub
Fehler:  'Aussprung ab fehlendem Monat
MsgBox j & ".  Monat Sheet existiert nicht!!"
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige