Tabellen untereinander kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZusammenFuehren() Dim intSheets As Integer Dim lngLastRow As Long ' Das nur wenn gewünscht, löscht die letzte Tabelle vor dieser Aktion. ' Sheets(ActiveWorkbook.Sheets.Count).Cells.Delete For intSheets = 1 To ActiveWorkbook.Sheets.Count - 1 Sheets(intSheets).UsedRange.Copy lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(65536, 1).End(xlUp).Row + 1 Sheets(ActiveWorkbook.Sheets.Count).Paste Destination:=Sheets(ActiveWorkbook.Sheets.Count).Cells(lngLastRow, 1) Next intSheets Application.CutCopyMode = False End Sub

Hallo,
das funktioniert schonmal sehr gut.
Gibt es vielleicht noch eine Moeglichkeit, dass die erste Zeile nicht mitkopiert wird? Da ist naemlich die ueberschrift drin und die brauche ich nicht.
Herzlichen Dank schonmal.
Hm, weisst du zufaellig wie mein 2. Problem zu loesen ist?
Ich habe eine Mappe mit 2 Blaettern. Auf dem ersten werden die Daten eingegeben und auf dem 2. per WENN etc. eingefuegt. Das funktioniert auch super gut.
Nur wenn man im 1. Blatt eine Zeile einfuegt, dann erscheint diese nicht im 2. weil die Formeln nach unten "rutschen". Ich weiss ich koennte beide Blaetter auswaehlen und dann wuerde auch in beiden Blaettern eine Zeile eingefuegt, aber da ich die Daten nicht selber eingebe, soll das ganze moeglichst Idiotensicher sein.
Geht das vielleicht ohne Makro?
Danke, Danke, Danke...
Maria

Hallo Maria,
hier die Änderung:


Sub ZusammenFuehren()
Dim intSheets As Integer
Dim lngLastRow As Long
' Das nur wenn gewünscht, löscht die letzte Tabelle vor dieser Aktion.
Sheets(ActiveWorkbook.Sheets.Count).Cells.Delete
For intSheets = 1 To ActiveWorkbook.Sheets.Count - 1
Sheets(intSheets).UsedRange.Copy
lngLastRow = Sheets(ActiveWorkbook.Sheets.Count).Cells(65536, 1).End(xlUp).Row + 1
Sheets(ActiveWorkbook.Sheets.Count).Paste Destination:=Sheets(ActiveWorkbook.Sheets.Count).Cells(lngLastRow, 1)
Sheets(ActiveWorkbook.Sheets.Count).Rows(lngLastRow).Delete
Next intSheets
Application.CutCopyMode = False
End Sub

Zum 2. Problem, würde ich vorschlagen einen neuen Thread aufzumachen, da ich dir auf die schnelle dazu keinen Vorschlag machen kann. Schau aber vorher nochmal unter "SERVICES" in der Recherche nach, denn das ist bestimmt kein neues Problem.

Gruß Heiko

PS: Rückmeldung wäre nett !

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread