Wie kann ich den Code vereinfachen bzw verkuerzen?
es handelt sich um zwei kleine Tabellen in einem worksheet.
Sub Gr_1A_F0()
Application.Goto Reference:="Fehlerort"
Range("G9:H13").Select
Selection.Copy
Worksheets("190.1.a").Activate
Application.Goto Reference:="Gr_1A_F0"
Range("S16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Aus.Gr").Activate
Range("I9:I13").Select
Selection.Copy
Worksheets("190.1.a").Activate
Range("U16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Aus.Gr").Activate
Range("J9:J13").Select
Selection.Copy
Worksheets("190.1.a").Activate
Range("X16").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="eingabeabt"
End Sub
Sub Gr_1A_F1()
Application.Goto Reference:="Fehlerort"
Range("G9:H13").Select
Selection.Copy
Worksheets("190.1.a").Activate
Application.Goto Reference:="Gr_1A_F1"
Range("S7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Aus.Gr").Activate
Range("I9:I13").Select
Selection.Copy
Worksheets("190.1.a").Activate
Range("U7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Worksheets("Aus.Gr").Activate
Range("J9:J13").Select
Selection.Copy
Worksheets("190.1.a").Activate
Range("X7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Application.Goto Reference:="eingabeabt"
End Sub