Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalte mehrer Blätter auf ein Blatt

Inhalte mehrer Blätter auf ein Blatt
13.07.2017 17:23:33
Martin
Hallo zusammen
Mein Name ist Martin und ich bin neu in diesem Forum.
Ich habe mir eine Münzverwaltung gebastelt die auch hervorragend funktioniert, was noch fehlt _ ist eine Gesamtübersicht mehrerer Blätter in ein bestehendes Arbeitsblatt (Gesamtliste). Folgenden Code denn ich hier unter Beispiele gefunden habe macht genau was ich möchte, außer das der Inhalt immer in ein neues Blatt eingefügt wird. Ich brauche den Inhalt aber im Blatt Gesamtliste und natürlich sollte der alte Inhalt immer überschrieben werden. 

Sub Kopieren()
Dim iCounter As Integer, iRow As Integer
Application.ScreenUpdating = False
Worksheets.Add after:=Worksheets(Worksheets.Count)
iRow = 1
For iCounter = 1 To 3
Worksheets(iCounter).Range("C2").CurrentRegion.Copy _
Cells(iRow, 1)
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Next iCounter
Application.ScreenUpdating = True
End Sub
Es wäre schön wenn mir dabei jemand helfen könnte, VBA Kenntnisse habe ich leider überhaupt keine.
Mit freundlichen Grüßen
Martin

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalte mehrer Blätter auf ein Blatt
14.07.2017 06:05:50
Crazy
Hallo
ungetestet vielleicht so?
Sub Kopieren()
Dim iCounter As Integer, iRow As Integer
Application.ScreenUpdating = False
iRow = 1
With Worksheets("Gesamtliste")
For iCounter = 1 To 3
Worksheets(iCounter).Range("C2").CurrentRegion.Copy .Cells(iRow, 1)
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Next iCounter
End With
Application.ScreenUpdating = True
End Sub
beachte dabei die Punkte vor Cells und Rows.Count
innerhalb der With-Anweisung bezieht es sich dadurch
auf das Blatt "Gesamtliste"
MfG Tom
AW: Inhalte mehrer Blätter auf ein Blatt
14.07.2017 15:33:35
Martin
Hallo
Super, vielen Dank Tom.
Das hilft mir schon mal ungemein weiter.
Allerdings wird bei jedem ausführen des Moduls der
Inhalt fortlaufend unter den alten kopiert.
Auf die schnelle hab ich mir jetzt mit folgendem Makro
geholfen, das den Inhalt der Gesamtliste löscht und die
Formatierung beibehält.
Sub löschen()
Worksheets("Gesamtliste").Cells.ClearContents
End Sub
Wäre es vielleicht möglich das auch in einem Rutsch zu erledigen?
Mit freundlichen Grüßen
Martin
Anzeige
AW: Inhalte mehrer Blätter auf ein Blatt
14.07.2017 16:21:33
Crazy
Hallo
das könnte so aussehen
Sub Kopieren()
Dim iCounter As Integer, iRow As Integer
Application.ScreenUpdating = False
iRow = 1
With Worksheets("Gesamtliste")
.Cells.ClearContents
For iCounter = 1 To 3
Worksheets(iCounter).Range("C2").CurrentRegion.Copy .Cells(iRow, 1)
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Next iCounter
End With
Application.ScreenUpdating = True
End Sub
MfG Tom
AW: Inhalte mehrer Blätter auf ein Blatt
14.07.2017 18:17:25
Martin
Hallo
Ich bin begeistert wie schnell einem hier geholfen wird.
Funktioniert Tadellos und ich hab gelernt das es ohne
Grundkenntnisse eigentlich nicht hinzukriegen ist.
Auch auf die Gefahr hin das es jetzt zu viel wird, wäre es
evtl. noch schön wenn nach jedem kopierten Blatt eine Leerzeile
eingefügt würde.
Mit freundlichen Grüßen
Martin
Anzeige
AW: Inhalte mehrer Blätter auf ein Blatt
14.07.2017 18:40:28
Crazy
Hallo
schau doch mal was passiert wenn du das
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
in das
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
änderst
MfG Tom
AW: Inhalte mehrer Blätter auf ein Blatt
14.07.2017 19:53:53
Martin
Hallo Tom
Jetzt ist es perfekt, hätte ich auch mal draufkommen
können ein bisschen mit den Zahlen rumzuspielen.
Nochmals vielen herzlichen Dank
Jetzt kann ich alles fertigstellen, falls später doch
noch Fragen auftauchen wende ich mich gerne wieder
an dieses tolle Forum.
Mit freundlichen Grüßen
Martin
Anzeige
AW: Inhalte mehrer Blätter auf ein Blatt
15.07.2017 19:35:11
Martin
Hallo
Hab ich mich doch etwas zu früh gefreut.
Mein Problem ist jetzt das in vielen der zu
kopierenden Blättern die Spalte F noch komplett leer ist.
Bei diesen Blättern werden dann auch die Spalten G, H usw.
nicht mehr kopiert. Wenn in Spalte F etwas steht funktioniert
alles wie gewünscht. 
Sub Kopieren()
Dim iCounter As Integer, iRow As Integer
Application.ScreenUpdating = False
iRow = 1
With Worksheets("Gesamtliste")
.Cells.ClearContents
For iCounter = 27 To 49
Worksheets(iCounter).Range("C2").CurrentRegion.Copy .Cells(iRow, 1)
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 2
Next iCounter
End With
Application.ScreenUpdating = True
End Sub
Es wäre schön wenn man mir da auch noch helfen könnte
Mit freundlichen Grüßen
Martin
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige