wie kann ich 2 Makros in eines integrieren?
Hintergrund ist, ich habe ein Makro (hier aus dem Forum) das gut funtkioniert. Jetzt habe ich ein zweites, das funktioniert auch. Allerdings habe ich dieses (um auch mal was alleine zu schaffen und nicht immer im Forum nachzufragen ;) per Aufzeichnungsfunktion erstellt. Nun möchte ich dieses 2. in das 1. ergänzen um beides gleichzeitig über einen Button aufzurufen.
Muss ich dabei was beachten? Wie geht das am einfachsten?
Makro 1:
Sub SpalteKopieren()
Dim QuellBlatt As Worksheet
Dim ZielBlatt As Worksheet
Dim ZielZelle As Range
'Blätter bestimmen
With ThisWorkbook
Set QuellBlatt = .Worksheets("Reiter 2 Liste MP-O gefiltert") 'anpassen
Set ZielBlatt = .Worksheets("MP_Punkte") 'evtl. anpassen
Set ZielZelle = ZielBlatt.Range("F10") 'evtl. anpassen
End With
'Quell-Bereich (hier A1:Ax) im o.a. Quellblatt kopieren
'Bereich ggf. anpassen
With QuellBlatt
.Range("J2:J" & .Cells(.Rows.Count, 1).End(xlUp).Row).Copy
End With
With ZielBlatt
'Werte und Formate einfügen
With ZielZelle
.PasteSpecial xlPasteValues 'Werte
.PasteSpecial xlPasteFormats 'Formate
End With
End With
End Sub
Makro 2:
Sub Ausfüllen()
Application.ScreenUpdating = False
shtInput = "Reiter 2 Liste MP-O gefiltert"
shtOutput = "MP_Punkte"
Sheets(shtInput).Select
lastRow = Range("A" & Rows.Count).End(xlUp).Row
Range("A2:B" & lastRow).Copy
Sheets(shtOutput).Range("B8").PasteSpecial Paste:=xlPasteValues
Range("D2:E" & lastRow).Copy
Sheets(shtOutput).Range("D8").PasteSpecial Paste:=xlPasteValues
Range("J2:J" & lastRow).Copy
Sheets(shtOutput).Range("F8").PasteSpecial Paste:=xlPasteValues, Paste:=xlPasteFormats
Sheets(shtOutput).Select
Application.ScreenUpdating = True
End Sub