mitkopieren der Zeilenhöhe
18.07.2023 12:51:01
Pascal Gundlach
habe als VBA anfänger ein Problem, dass ich mit alleiniger Recherche nicht lösen kann und hoffe hier Hilfe zu finden. Bin nach zwei Tagen so matschig im Kopf, dass ich die Formularspamschutzfrage mit dem Taschenrechner lösen musste.
Habe aus dem Forum immerhin schon wahnsinnig viel mitgenommen und gelernt =).
Es geht um eine Berichtserstellung, die wir automatisieren wollen. Hintergrund ist der, dass meine Kollegen und ich es alle zu uneinheitlich machen.
1. Auf einem Worksheet soll der Bericht geschrieben werden mit per Makro einzufügenden Zeilen - funktioniert (wenn auch evtl. hässlich, aber hey...)
2. Der ausgefüllte dynamische Bereich soll kopiert werden. - funktioniert
3. Der kopierte Teil soll ab einer bestimmten Stelle in einem anderen Blatt eingefügt werden - funktioniert leider nur ohne Zellenhöhenanpassung
Ganze Zeilen kann ich leider nicht kopieren und die VBA lösungen zur .Rangefunktion geht mir noch über den Kopf
So habe ich momentan das Kopieren und Einfügen gelöst:
Sub Bereichsauswahl_Bericht()
' markiert dynamisch den ausgefüllten Bericht aus und kopiert ihn
Dim sht As Worksheet
Dim LR As Long
Dim FirstCell As Range
Set sht = Worksheets("Tabelle1")
Set FirstCell = Range("C2")
LR = sht.Cells.Find("*", SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
sht.Range("C2:K" & LR).Copy Worksheet("report full").Cells(22, 1)
End Sub
Das ist die angehangene Datei
https://www.herber.de/bbs/user/159970.xlsm
Vielen Dank schonmal für die Antworten =D