Copy in andere Mappe und in letzte Zeile
16.04.2020 15:13:49
Eisi
Jetzt brauche ich bitte Eure Hilfe. Mir raucht schon der Kopf.
Dieser Code funktioniert erst mal.
Den Code habe ich im aktiven Sheet (PLZ Erfassung_Thomas.xlsm) mit einer Form verbunden.
------------------------------------------------------------------------------------------------ _ ----
Sub fragecode()
Range("B5:E" & Cells(Rows.Count, "C").End(xlUp).Row).Resize(, 4).Select
' Der Bereich B5 bis Spalte E und bis letzte gefüllte Zelle in der Spalte C werden selektiert.
Selection.Copy
Workbooks("Testmappe.xlsm").Sheets("Tabelle1").Range("A1").PasteSpecial Paste:=xlPasteValues _
_
' Selection ohne Formatierung einfügen.
Application.CutCopyMode = False
End Sub
----------------------------------------------------------------------------------------------------
Es fehlen mir aber noch folgende Einstellungen:
1. Wenn ich nochmal auf den Button drücke, soll diesmal der kopierte Bereich unter dem
letzten Eintrag der Spalte B in der Mappe Testmappe.xlsm in Spalte A beginnend
kopiert werden.
2. Dann soll die Mappe Testmappe.xlsm gespeichert werden und bleibt erstmal offen.
3. Zum Schluss soll wieder die ursprüngliche Mappe PLZ Erfassung_Thomas.xlsm aktiviert
werden und zwar unter der letzten Zelle mit einem Eintrag.
Mit einem eigenen Button arbeite ich bereits mit folgendem Code:
Sub TabellenEnde_finden()
With ActiveSheet
Application.Goto .Cells(.Rows.Count, "C").End(xlUp).Offset(1), True
End With
End
Sub
Vielen herzlichen Dank für Euer Feedback.
LG Eisi :-)