3x dasselbe Makro, eines geht nicht !?h
29.08.2021 18:46:08
Basti
Sub Kopiere_Bereich_A7_Einfügen_F20()
'' nur die Werte kopieren
'' Application.Run Kopiere_Bereich_A7_Einfügen_F20
Sheets("Rechnung").Range("A7").Copy
Range("F20").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub
'--------------------------------------------------------------
Sub Kopiere_Bereich_F20_Einfügen_A7()
'' nur die Werte kopieren
'' Application.Run Kopiere_Bereich_F20_Einfügen_A7
Sheets("Rechnung").Range("F20").Copy
Range("A7").PasteSpecial Paste:=xlValues
Application.CutCopyMode = True
End Sub
'--------------------------------------------------------------'
Sub Kopiere_Bereich_A2_Einfügen_G18()
'' nur die Werte kopieren
'' Application.Run Kopiere_Bereich_A2_Einfügen_G18
'Sheets("Rechnung").Range("A2").Copy ' aktuelle Angebotsnr einfügen in G18
'Range("G18").PasteSpecial Paste:=xlValues '
'Application.CutCopyMode = False
'End Sub