Makro zum kopieren eines Projektberichtes

Hallo

Ich beschäftige mich vergeblich mit folgendem Problem:

Ich benötige ein Makro, welches folgenden Prozess ausführt

Ich möchte in einem Tabellenblatt (Vorlage Bericht) einen bestimmten Bereich "D4 bis AD65" (in dem Bericht gibt es verbundene Zellen) kopieren und in ein bestehendes Tabellenblatt Projektberichte einfügen. Dieser Vorgang aus der Vorlage kann immer wieder durchgeführt werden. Somit muss in dem Zielblatt geprüft werden, welches die erste Freie Spalte (recht vom letzten Bericht) ist, in der der nächste Bericht eingefügt werden kann (wenn hier schon ein oder mehrere Bericht/e vorhanden ist/sind).

1. Tabelle Blatt Vorlage ist ausgeblendet.
2. Tabellen Blatt, Projektbericht ist Aktiv. Das Makro soll hier mit einem Button aufgerufen werden (mach ich dann selber)

Erst einmal Danke für die Unterstützung.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub kopiereBericht() Dim zz As String Dim shQuelle As Worksheet Set shQuelle = Sheets("Vorlage Bericht") Dim shZiel As Worksheet Set shZiel = Sheets("Projektberichte") With shZiel zz = shZiel.Cells(1, Columns.Count).End(xlToLeft).Address shQuelle.Range("D4:AD65").Copy Destination:=.Range(zz) End With End Sub

Option Explicit Sub Projektbericht_kopieren() Dim zz As Long 'Variablentyp verändert Dim shQuelle As Worksheet Set shQuelle = Sheets("Vorlage Bericht") Dim shZiel As Worksheet Set shZiel = Sheets("Projektberichte") With shZiel zz = .Cells(4, Columns.Count).End(xlToLeft).Column + 27 ' hier Änderung weil in der Zeile jeweils nur in der 1. Zelle der Vorlage etwas enthalten ist shQuelle.Range("D4:AD65").Copy Destination:=.Cells(4, zz) 'Destination geändert, jetzt statt Range eine genaue Zelle End With End Sub

vllt. noch eine Verbesserung; deine von mir modifizierte Arbeitsmappe enthält den nochmals veränderten Code:
https://www.herber.de/bbs/user/166888.xlsm
Damit funktioniert das Einfügen der Berichte in der Waagerechten m.E. recht ordentlich,
weil jetzt auch die Spaltenbreiten korrekt angepasst werden und so die Berichte tatsächlich alle gleich aussehen..
Was Du unbedingt bedenken solltest:
Irgendwann ist das Ende der Spalten erreicht, die Arbeitsmappe wird überdies richtig gross, was u.U. problematisch werden kann.
Evtl. ist daher zu überlegen, ob es nicht evtl. sinnvoll wäre, die Berichte (mit sinnvoll zu recherchierenden Namen) als pdf-Files in einem Sammelordner zu speichern?
Nun, das liegt ganz bei Dir, hier jedenfalls zusätzlich auch der Makro-Code:

Option Explicit

Sub Projektbericht_kopieren()

  Dim zz As Long 'Variablentyp verändert

  Dim shQuelle As Worksheet

  Set shQuelle = Sheets("Vorlage Bericht")

  Dim shZiel As Worksheet

  Set shZiel = Sheets("Projektberichte")

  With shZiel

    zz = .Cells(4, Columns.Count).End(xlToLeft).Column + 27 ' hier Änderung weil in der Zeile jeweils nur in der 1. Zelle der Vorlage etwas enthalten ist

    If zz = 30 Then zz = 4

    shQuelle.Range("D4:AD65").Copy Destination:=.Cells(4, zz) 'Destination geändert, jetzt statt Range eine genaue Zelle

    shQuelle.Columns("D:AD").Copy

    .Columns(zz).Resize(, 27).EntireColumn.PasteSpecial _

     Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

    Application.CutCopyMode = False

    .Range("A1").Select

  End With

End Sub

Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

Makro zum kopieren eines Projektberichtes

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro zum kopieren eines Projektberichtes

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread