Private
Sub
cmb2_Click()
Sheets(
"Status"
).
Select
Range(
"J32"
).
Select
Selection.Copy
Sheets(
"Graphik"
).
Select
Range(
"B7"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Sheets(
"Potenzial"
).
Select
Range(
"J20"
).
Select
Application.CutCopyMode =
False
Selection.Copy
Sheets(
"Graphik"
).
Select
Range(
"B8"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Sheets(
"Strategie"
).
Select
Range(
"J19"
).
Select
Application.CutCopyMode =
False
Selection.Copy
Sheets(
"Graphik"
).
Select
Range(
"B9"
).
Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=
False
, Transpose:=
False
Application.CutCopyMode =
False
End
Sub