|
Hallo zusammen
Ich bin ein kompletter VBA Neuling, habe jetzt aber schon verschiedene hilfreiche Sachen entdeckt. Nun möchte ich ein Makro, welches bestimmte Zellbereiche kopiert und dann in eine andere Tabelle, jeweils in die erste freie Zeile, kopiert. Fast alles klappt gut, bis auf die Formatierung, welche übernommen wird, das möchte ich nicht. Im Internet habe ich die Funktion "PasteSpecial Paste:=xlValues" gefunden, schaffe es aber nicht dies in mein Makro einzubauen, damit es richtig läuft. Kann mir dabei jemand helfen? Das Makro habe ich unten aufgeführt. Herzlichen Dank im Voraus.
Sub Makro4()
'
' Makro4 Makro
'
'
Dim obj_wkb_ziel As Workbook
Dim obj_wkb_quelle As Workbook
Dim lng_letzte_zeile As Long
' Hier Pfad anpassen
Workbooks.Open Filename:="C:\Datenaustausch\2022 - Journal.xlsx"
Set obj_wkb_ziel = ActiveWorkbook
Set obj_wkb_quelle = ThisWorkbook
lng_letzte_zeile = obj_wkb_ziel.Worksheets("Liste").Cells(Rows.Count, 2).End(xlUp).Row + _
1
With obj_wkb_quelle.Worksheets("Nutzungsvertrag")
.Range("AJ15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 1)
.Range("AK15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 2)
.Range("AL15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 3)
.Range("AM15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 4)
.Range("AN15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 5)
.Range("AO15").Copy obj_wkb_ziel.Worksheets("Liste").Cells(lng_letzte_zeile, 6)
End With
obj_wkb_ziel.Close savechanges:=True
End Sub
|